下载本文示例代码
I think that you neednt modify the ini file, the API function sysparainfo has
a argument that modify the registry auto.
在 maple@argo (P II，奔腾的心) 的大作中提到:
: 很简单的程序,大家不妨一试
: var
: reg : TRegInIFile;
: begin
: reg := TRegInIFile.Create( Control Panel );
: reg.WriteString( desktop , WallPaper , wallpaper.bmp );
: reg.WriteString( desktop , TileWallPaper , 1 );
: reg.Free;
: SystemParametersInfo( SPI_SETDESKWALLPAPER , 0 , nil , SPIF_SENDWININICHA;
: end;
I think that you neednt modify the ini file, the API function sysparainfo has
a argument that modify the registry auto.
在 maple@argo (P II，奔腾的心) 的大作中提到:
: 很简单的程序,大家不妨一试
: var
: reg : TRegInIFile;
: begin
: reg := TRegInIFile.Create( Control Panel );
: reg.WriteString( desktop , WallPaper , wallpaper.bmp );
: reg.WriteString( desktop , TileWallPaper , 1 );
: reg.Free;
: SystemParametersInfo( SPI_SETDESKWALLPAPER , 0 , nil , SPIF_SENDWININICHA;
: end;
下载本文示例代码
用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸用Delphi设置墙纸
阅读(125) | 评论(0) | 转发(0) |
