下面代码是动态更改windows墙纸的,但还差一步,有哪位高手可以试试把99度变为100度(100分)

K

kk6527

Unregistered / Unconfirmed
GUEST, unregistred user!
下面代码是动态更改windows墙纸的,但还差一步,有哪位高手可以试试把99度变为100度
var
Registry:TRegistry;
begin
Registry:=TRegistry.Create;
try
if Registry.OpenKey('Control Panel/DeskTop',False) then
begin
Registry.WriteString('TileWallPaper','1'); //平铺方式
Registry.WriteString('WallPaperStyle','0'); //非拉伸方式
Registry.WriteString('WallPaper','d:/bud/256_1.bmp');
end;
Registry.CloseKey;
Finally
Registry.Free;
end;
//广播注册表改动的消息
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);

 
TRY前面加入:
Registry.Rootkey:= Hkey_Current_User;
ok?
 
顶部