#14681   김병진   (chin79  )
[참고] 14678 배경그림 바꾸기                 02/07 06:51   16 line

델파이왕입니다. 제가 질문 했는데 제가 답하는 군요....

하이텔 비파툴의 Q&A에서 김병진님이 답을 해 주셨습니다...

쩝쩝???  그 많은 질문 중에 유독 제 질문에 답을 해 주셔더군요..

아래 코드는 배경 화면을 kim.bmp로 바꾸는 코드 입니다.

procedure ChangeIt;
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel');
  Reg.WriteString('desktop','Wallpaper','c:\windows\kim.bmp');
  Reg.WriteString('desktop', 'TileWallpaper', '1');
  Reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);
end;


           -  델파이왕국을 델파이왕  -