如何用delhpi程序改变win xp桌面墙纸?
各位贤者快给我答复吧
thank you!
各位贤者快给我答复吧
thank you!
解决方案 »
- 准备用delphi写程序,请问用哪个版本好?
- XE2 发布会PPT
- [高分急求]如何调用jmail控件?
- 大家看看我的存储过程有什么问题?
- 如何累计应用程序的运行次数??各位大虾!请来相助在下!!!我请求帮助!!!!
- 請問:那位有文件Copy表單。。。
- 请问WSAStartup()作用是什么?
- 如何用delphi做类似vba的开发
- 如何得到每个框架的Document,(此题比较难,关注有分!)
- delphi 需求如下:查询各个表中的数据列的数据类型,除int外,所有数据都要通过加密代码加密,代码写到如何读取类型所对应的列值时
- 请教delphi 7.0问题
- DBNavigator的Insert方法不能将数据录入数据表吗?
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\Control Panel\Desktop',False);
Reg.WriteString('TileWallpaper','0');
Reg.WriteString('WallPaperStyle','0');
Reg.WriteString('Wallpaper',NewFile);
Reg.CloseKey;
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDCHANGE + SPIF_UPDATEINIFILE);
uses
Shlobj;procedure SetWallPaper(StrFile: String; Style: Integer); //StrFile: 图片文件名
Var
DT: IActiveDesktop;
WPO: TWallpaperOpt;
WS: WideString;
Begin
DT := CreateComObject(CLSID_ActiveDesktop) As IActiveDesktop;
WS := StrFile;
Case Style Of
0: WPO.dwStyle := WPSTYLE_CENTER; {居中}
1: WPO.dwStyle := WPSTYLE_TILE; {平铺}
2: WPO.dwStyle := WPSTYLE_STRETCH; {拉伸}
Else
WPO.dwStyle := WPSTYLE_CENTER;
End;
WPO.dwSize := SizeOf(WPO);
DT.SetWallpaperOptions(WPO, 0);
DT.SetWallPaper(PwideChar(WS), 0);
DT.ApplyChanges(AD_APPLY_ALL);end;
uses
Shlobj;procedure SetWallPaper(StrFile: String; Style: Integer); //StrFile: 图片文件名
Var
DT: IActiveDesktop;
WPO: TWallpaperOpt;
WS: WideString;
Begin
DT := CreateComObject(CLSID_ActiveDesktop) As IActiveDesktop;
WS := StrFile;
Case Style Of
0: WPO.dwStyle := WPSTYLE_CENTER; {居中}
1: WPO.dwStyle := WPSTYLE_TILE; {平铺}
2: WPO.dwStyle := WPSTYLE_STRETCH; {拉伸}
Else
WPO.dwStyle := WPSTYLE_CENTER;
End;
WPO.dwSize := SizeOf(WPO);
DT.SetWallpaperOptions(WPO, 0);
DT.SetWallPaper(PwideChar(WS), 0);
DT.ApplyChanges(AD_APPLY_ALL);end;
uses
Shlobj;procedure SetWallPaper(StrFile: String; Style: Integer); //StrFile: 图片文件名
Var
DT: IActiveDesktop;
WPO: TWallpaperOpt;
WS: WideString;
Begin
DT := CreateComObject(CLSID_ActiveDesktop) As IActiveDesktop;
WS := StrFile;
Case Style Of
0: WPO.dwStyle := WPSTYLE_CENTER; {居中}
1: WPO.dwStyle := WPSTYLE_TILE; {平铺}
2: WPO.dwStyle := WPSTYLE_STRETCH; {拉伸}
Else
WPO.dwStyle := WPSTYLE_CENTER;
End;
WPO.dwSize := SizeOf(WPO);
DT.SetWallpaperOptions(WPO, 0);
DT.SetWallPaper(PwideChar(WS), 0);
DT.ApplyChanges(AD_APPLY_ALL);end;
uses
Shlobj;procedure SetWallPaper(StrFile: String; Style: Integer); //StrFile: 图片文件名
Var
DT: IActiveDesktop;
WPO: TWallpaperOpt;
WS: WideString;
Begin
DT := CreateComObject(CLSID_ActiveDesktop) As IActiveDesktop;
WS := StrFile;
Case Style Of
0: WPO.dwStyle := WPSTYLE_CENTER; {居中}
1: WPO.dwStyle := WPSTYLE_TILE; {平铺}
2: WPO.dwStyle := WPSTYLE_STRETCH; {拉伸}
Else
WPO.dwStyle := WPSTYLE_CENTER;
End;
WPO.dwSize := SizeOf(WPO);
DT.SetWallpaperOptions(WPO, 0);
DT.SetWallPaper(PwideChar(WS), 0);
DT.ApplyChanges(AD_APPLY_ALL);end;