請問如何變更桌面壁紙 ?
這是網路上的範例, 可以執行, 沒有錯誤, 但是也沒有效果
請問問題在哪 ? (小弟在 Windows XP Delphi 7 Enterprise 上測試)
uses
Registry;
procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TregIniFile;
begin
Reg:=TRegIniFile.Create('ControlPanel');
Reg.WriteString('desktop','Wallpaper','c:\windows\HPQ1280h.BMP');
Reg.WriteString('desktop','Wallpaper','c:\windows\winnt.bmp');
Reg.WriteString('desktop','TileWallpaper','1');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

這樣就可以
var
THEPCHAR:pchar;
begin
//THEPCHAR:='c:\1.bmp';
THEPCHAR:='1.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE)
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！