배경화면에 뛰우려고 하는데 뜨질 안네요

고수님들 부탁합니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls,registry;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}

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

var

Reg : TRegIniFile;

begin

Reg:= TRegIniFile.Create('SOFTWAREMicrosoftInternet ExlporerDesktop');

Reg.WriteString('General','TileWallpaper',

'C:WINDOWSWebWallpaperWindows98.htm');

if Tile then Reg.WriteString('General', 'TileWallpaper',

'1')

Else Reg.WriteString('General', '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;



procedure TForm1.Button1Click(Sender: TObject);

begin

SetWallPaper('C:WINDOWSWebWallpaperWindows98.htm');

end;

end.