Re: Prevent an app to be closed

Posted by -BB- on August 18, 2000 at 23:48:38:

In Reply to: Prevent an app to be closed posted by bee on August 16, 2000 at 21:19:02:

: I wanna make an app that can not be closed by the Ctrl-Alt-Del.

Put this code in your form's OnCreate event.

procedure TForm1.FormCreate(Sender: TObject);
var
Kernel: array[0..12] of char;
RSP: array[0..22] of char;
ptrKernel: pointer;
ptrRSP: pointer;
HideMe: DWORD;
begin
Kernel := 'Kernel32.dll';
RSP := 'RegisterServiceProcess';
ptrKernel := @Kernel;
ptrRSP := @RSP;
asm
push ptrKernel
call GetModuleHandle
push ptrRSP
push eax
call GetProcAddress
mov [HideMe],eax
push 1
push 0
call HideMe
end;
end;