여기 팁란에 강민주님이 올리신 글이 있었는데.. 안보셨나보군요.







http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=309&db=tips&ftype=7&fval=바탕화면&backdepth=1





조헌철 wrote:

> 바탕화면을 바꾸는 소스를 보고 한번 만들어 보려고 해도 뭐가 뭔지를 몰라서 이렇게 부탁을 드립니다.

> 아래에 소스를 이용해서 아무 그림이나 바탕화면에 뜨게 예제 하나만 만들어 주실 분을 찾습니다.

> 죄송하지만 만드는대로 저의 메일로 보내주셨으면 좋겠는데요.

> 꼭 부탁드립니다.

> 그럼 이만

>

>

>

> 윈도 바탕화면 바꾸기

> procedure ChangeWallPaper(FileName:String; Tile:Boolean);

> var

> Reg : TRegIniFile;

> begin

> Reg:= TRegIniFile.Create('Control Panel');

> Reg.WriteString('Desktop', 'Wallpaper', PChar(FileName));

> if Tile then Reg.WriteString('Desktop', 'TileWallpaper', '1')

> Else Reg.WriteString('Desktop', 'TileWallpaper', '0');

> Reg.Free;

> SystemParametersInfo(SPI_SETDESKWALLPAPER,0, Nil, SPIF_SENDWININICHANGE);

> end;

>

> procedure SetWallPaper(FileName:String);

> begin

> SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), 0);

> end;

>

> BOOL SystemParametersInfo(

> UINT uiAction, // system parameter to query or set

> UINT uiParam, // depends on action to be taken

> PVOID pvParam, // depends on action to be taken

> UINT fWinIni // user profile update flag

> );

>