[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    program wallpapr;

    uses
    Registry, WinProcs;

    procedure SetWallpaper(
    sWallpaperBMPPath : String;
    bTile : boolean );
    var
    reg : TRegIniFile;
    begin
    //
    // change registry
    //
    // HKEY_CURRENT_USER
    //   Control Panel\Desktop
    //     TileWallpaper (REG_SZ)
    //     Wallpaper (REG_SZ)
    //
    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;
    //
    // let everyone know that we changed
    // a system parameter
    //
    SystemParametersInfo( SPI_SETDESKWALLPAPER,
    0, Nil, SPIF_SENDWININICHANGE );
    end;
    begin
    SetWallpaper( 'c:\winnt\winnt.bmp', False );
    end.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]