Search results for 'TRegIniFile'. 1 post(s) found.

  1. 2007/08/25 How To Change The Desktop Wallpaper
2007/08/25 09:53

How To Change The Desktop Wallpaper


Change the Wallpaper of your system by code

uses 
  Registry, WinProcs; 

procedure SetWallPaper(  
            sWallpaperBMPPath : String;  
            bTile : boolean ); 
var 
  reg : TRegIniFile

begin 
  reg := TRegIniFile.Create('Control Panel\Desktop' ); 
  with reg do 
  begin 
    WriteString( '', 'Wallpaper',   sWallpaperBMPPath ); 
    if( bTile )then 
    begin 
      WriteString(   '', 'TileWallpaper', '1' ); 
    end else 
    begin 
      WriteString(   '', 'TileWallpaper', '0' ); 
    end; 
  end; 
  reg.Free; 
  

  SystemParametersInfo(  
    SPI_SETDESKWallpaper,  
    0,  
    Nil,  
    SPIF_SENDWININICHANGE ); 
end;

Trackback 3 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject different money making ideas

    Tracked from moneyideas 2010/01/28 22:57 delete

    moneyideas

  2. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 07:10 delete

    moneyideas

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:39 delete

    moneyideas