Заморозка процесса (в чем ошибка?)

[logitech12]

var
  Form10: TForm10;
  c:dword;

const
 THREAD_SUSPEND_RESUME  = $00000002;

implementation

{$R *.dfm}

Function OpenThread(dwDesiredAccess: dword; bInheritHandle: bool;
  dwThreadId: dword): dword; stdcall; external 'kernel32.dll';


function GetProcessPID(process: string): Cardinal;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase('process.exe')) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase('process.exe'))) then
      Result := FProcessEntry32.Th32ProcessID;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;


procedure SuspendProcess(ProcessID:DWORD);
var
  ThreadsSnapshot:THandle;
  ThreadRecord:TThreadEntry32;
  ThreadHandle: THandle;
begin
  ThreadsSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,0);
  ThreadRecord.dwSize:=sizeof(ThreadRecord);
  if Thread32First(ThreadsSnapshot,ThreadRecord) then
   begin //n 101
    repeat
     if ThreadRecord.th32OwnerProcessID=ProcessID then
      begin
       ThreadHandle:=OpenThread(THREAD_SUSPEND_RESUME,False,ThreadRecord.th32ThreadID);
       if ThreadHandle=0 then Exit;
       SuspendThread(ThreadHandle);
       CloseHandle(ThreadHandle);
      end;
    until not Thread32Next(ThreadsSnapshot,ThreadRecord);
   end;  //k 101
  CloseHandle(ThreadsSnapshot);
end;




procedure ResumeProcess(ProcessID:DWORD);
var
  ThreadsSnapshot:THandle;
  ThreadRecord:TThreadEntry32;
  ThreadHandle: THandle;
begin
  ThreadsSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,0);
  ThreadRecord.dwSize:=sizeof(ThreadRecord);
  if Thread32First(ThreadsSnapshot,ThreadRecord) then
   begin //n 101
    repeat
     if ThreadRecord.th32OwnerProcessID=ProcessID then
      begin
       ThreadHandle:=OpenThread(THREAD_SUSPEND_RESUME,False,ThreadRecord.th32ThreadID);
       if ThreadHandle=0 then Exit;
       ResumeThread(ThreadHandle);
       CloseHandle(ThreadHandle);
      end;
    until not Thread32Next(ThreadsSnapshot,ThreadRecord);
   end;  //k 101
  CloseHandle(ThreadsSnapshot);
end;


procedure TForm10.Button3Click(Sender: TObject);
begin

c:=GetProcessPid('process.exe');
edit1.text:=InttoStr(c);

end;

procedure TForm10.Button1Click(Sender: TObject);

begin
SuspendProcess(GetProcessID(strtoint(Edit1.Text)));
end;

procedure TForm10.Button2Click(Sender: TObject);
begin
ResumeProcess(GetProcessID(strtoint(Edit1.Text)));
end;


end.

вот что выдает при запуске



надеюсь на Вашу помощь

[Человек_Борща]

      AnsiUpperCase('process.exe')) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase('process.exe'))) then

Вы вообще понимаете что вы пишите?
я вам скинул готовую функцию, а вы её в добавок за чем-то изменили и притом так, что она будет возвращать 0 всегда.

А ошибка наверное в том что, либо OpenThread не правильно экспоритируется, либо в ней не все параметры.
Проверить не сложно:

type 
  TCallFunc = function (aD:DWORD; aB:BOOL):DWORD;

var
  DLLh:cardinal;
  Func:TcallFunc;
begin
  DLLh:=SafeLoadLibrary('kernel32.dll');
  If DLLh <> 0 then
  begin
  @CallFunc:=GetProcAddress(DLLh,'OpenThread');
  If assigned(@CallFunc) then
  ShowMessage('OpenThread function exists')
  else
  ShowMessage('OpenThread function not found');
  end else
  ShowMessage('Беблиотека не загружена.');
end;

Гуглите MSDN и пару книг по синтаксису Паскаля и азам Delphi.