Sistem - Delphi ile Masaüstü Kağıdını Değiştirmek

Delphi ile masaüstü duvar kağıdını değiştirmek için;
gerekli image dosyanız hazır ise;
1 adet button ekleyin buttonun click eventına aşağıdaki kodu yazın.

var
  St: array[0..100] of Char;
begin
  St:='C:\klasorunuz\resminiz.bmp';
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @St, SPIF_SENDCHANGE);

  programı çalıştırıp buttona tıkladığınızda resmin masaüstü duvar kağıdı olduğunu göreceksiniz.
 Bir sonraki yazımızda buluşmak üzere...