Article #16351: Creating a Wallpaper Using Delphi

 Technical Information Database

TI1351D.txt   Creating a Wallpaper Using Delphi
Category   :General Programming
Platform    :All
Product    :Delphi  All

Description:
To the wallpaper in Windows 95 you must use the Win32 
API function SystemParametersInfo. SystemParametersInfo retrieves
and sets system wide parameters including the wallpaper. The 
code below illustrates setting the wallpaper to the Athena bitmap.

---- Code Follows ------


procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
   s := 'c:\windows\athena.bmp';
   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s), 0)
end;



Reference:


7/16/98 4:34:09 PM
 

Last Modified: 01-SEP-99