🚀 go-pugleaf

"Chow Hoi Ka, Eric" wrote:
> 
> Hello,
> 
> 1) How to get the current WallPaper in the DeskTop ?
> 2) How to change the WallPaper ????
> 
> Best regards,
> Eric

Try this:

uses
  Registry;
var
  cReg: TRegistry;
  sOldWallPaper: string;
begin
  cReg := TRegistry.Create;
  with cReg do try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Control Panel\desktop',False);
    sOldWallPaper := ReadString('Wallpaper','');
    WriteString('Wallpaper','c:\windows\mywallpaper.bmp');
    CloseKey;
  finally
    Free;
  end;
end;

You probably also have to broadcast a WM_SETTINGSCHANGE message if you
change the wallpaper, but I'm not sure about that.

Alternatively use the Win32 API function SystemParametersInfo with the
SPI_SETDESKWALLPAPER flag (for reasons beyond my understanding,
SPI_GETDESKWALLPAPER does not exist).

Hope this helps.

Gerhard