H
hahabb
Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在活动桌面下更换墙纸？
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);
H
hahabb
Unregistered / Unconfirmed
GUEST, unregistred user!
这种方法不能动态更新，必须重新启动后才能生效。
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
那用 SystemParametersInfo(SPI_SETDESKWallpaper,0,'C:/a.bmp',SPIF_SendWinIniChange);
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
获得墙纸
procedure TForm1.Button1Click(Sender: TObject);
var
ADeskTop:IActiveDesktop;
wallpaper
wideChar;
begin
ADeskTop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
GetMem(wallpaper,128);
ADeskTop.GetWallpaper(wallpaper,128,0);
ShowMessage(string(wallpaper));
FreeMem(wallpaper);
end;
设置墙纸
procedure TForm1.Button1Click(Sender: TObject);
var
ADeskTop:IActiveDesktop;
wallpaperwideChar;
begin
ADeskTop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
wallpaper:='d:/2.bmp';
ADeskTop.SetWallpaper(wallpaper,0);
ADeskTop.ApplyChanges(AD_APPLY_ALL);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ADeskTop:IActiveDesktop;
wallpaper
wideChar; begin
ADeskTop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
GetMem(wallpaper,128);
ADeskTop.GetWallpaper(wallpaper,128,0);
ShowMessage(string(wallpaper));
FreeMem(wallpaper);
end;
设置墙纸
procedure TForm1.Button1Click(Sender: TObject);
var
ADeskTop:IActiveDesktop;
wallpaper
wideChar; begin
ADeskTop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
wallpaper:='d:/2.bmp';
ADeskTop.SetWallpaper(wallpaper,0);
ADeskTop.ApplyChanges(AD_APPLY_ALL);
end;
H
hahabb
Unregistered / Unconfirmed
GUEST, unregistred user!
IActiveDesktop是什么？我运行的时候提示未知标识符。
L
liuly
Unregistered / Unconfirmed
GUEST, unregistred user!
uses
ComObj, // For CreateComObject
ShlObj; // For IActiveDesktop
ComObj, // For CreateComObject
ShlObj; // For IActiveDesktop
H
hahabb
Unregistered / Unconfirmed
GUEST, unregistred user!
CLSID_ActiveDesktop是什么？
H
hahabb
Unregistered / Unconfirmed
GUEST, unregistred user!
Who can help me?
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
;CLSID_ShellDesktop: TGUID = (
D1:$00021400; D2:$0000; D3:$0000; D4
$C0,$00,$00,$00,$00,$00,$00,$46));
就是com对象的全球唯一标识符Guid啊
D1:$00021400; D2:$0000; D3:$0000; D4
$C0,$00,$00,$00,$00,$00,$00,$46));就是com对象的全球唯一标识符Guid啊
H
hubdog
Unregistered / Unconfirmed
GUEST, unregistred user!
或者简单点，不用com的话,
永久改变
SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, 'Sample.bmp', SPIF_UPDATEINIFILE);
永久改变
SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, 'Sample.bmp', SPIF_UPDATEINIFILE);
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.