1:
2:
3:
4:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
end;					

1:
2:
3:
4:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
end;					

1:

form1.caption := 'test'; //nur so nebenbei					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

//hook'n
procedure TForm1.Button1Click(Sender: TObject);
var
  pid: integer;
begin
  pid := uallProcess.FindProcess('taskmgr.exe');
  if pid = 0 then
    MessageBox(0, 'Prozess nicht gefunden!', nil, 0) else
  begin
    if uallHook.InjectLibrary(pid, pchar(uallUtil.GetExeDirectory + 'hook.dll')) <> nil then
      MessageBox(0, 'Erfolgreich gehookt!', nil, 0) else
        MessageBox(0, 'Hook fehlgeschlagen!', nil, 0);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

//Hook DLL
library hook;

uses
  windows;

{$R *.res}

var
  oldTerminateProcess: function(hProcess: THandle; UExitCode: UInt): boolean; stdcall;
  dll: integer;

function myTerminateProcess(hProcess: THandle; UExitCode: UInt): boolean;
begin
  if hProcess <> findwindow(nil, 'test') then
    oldTerminateProcess(hProcess, UExitCode); 
end;

procedure Phook(fromaddr, toaddr: pointer);
var
  b: ^byte;
  c: ^cardinal;
  old: cardinal;
begin
  virtualprotect(fromaddr, 5, PAGE_EXECUTE_READWRITE, old);
  b := fromaddr;
  b^ := $E9;
  c := pointer(cardinal(b) + 1);
  c^ := cardinal(toaddr) - 5 - cardinal(b);
  virtualprotect(fromaddr, 5, old, old);
end;

procedure memcopy(a,b: pointer; l: cardinal);
var old1, old2, i: cardinal;
    b1, b2: ^byte;
begin
  virtualprotect(a, l, PAGE_EXECUTE_READWRITE, old1);
  virtualprotect(b, l, PAGE_EXECUTE_READWRITE, old2);
  for i := 0 to l - 1 do
  begin
    b1 := pointer(cardinal(a) + i);
    b2 := pointer(cardinal(b) + i);
    b2^ := b1^;
  end;
  virtualprotect(a, l, old1, old1);
  virtualprotect(b, l, old2, old2);
end;

begin
  dll := getmodulehandle('Kernel32.dll');
  memcopy(getprocaddress(dll, 'TerminateProcess'), @oldTerminateProcess, 30);
  Phook(getprocaddress(dll, 'TerminateProcess'), @myTerminateProcess);
end.