Prozess pulverisieren

[Neutral General]

Hi,

Habe hier mal eine sehr nützliche Procedure falls man einen Prozess beenden will:

Delphi-Quellcode:

procedure PulverizeProcess(hProcess: THandle);
const BUFFERSIZE = 4096;
var c,i: Cardinal;
    buffer: Pointer;
begin
  GetMem(buffer,Kilobyte*4);
  FillChar(buffer,BUFFERSIZE ,0);
  i := 0;
  while i < $FFFFFF do
  begin
    WriteProcessMemory(hProcess,Pointer(i),buffer,BUFFERSIZE ,c);
    inc(i,BUFFERSIZE);
  end;
  FreeMem(buffer);
end;

procedure PulverisizeWindow(WindowName: String);
var wnd: hWnd;
     id: Cardinal;
  hProc: THandle
begin
  wnd := FindWindow(nil,PChar(WindowName));
  GetWindowThreadProcessId(wnd,id);
  hProc := OpenProcess(PROCESS_ALL_ACCESS,false,id);
  PulverizeProcess(hProc);
  CloseHandle(hProc);
end;

Gruß
Neutral General