그럼 저 함수를 사용하려면 어떻게 해야 되나요?




아루스 님이 쓰신 글 :
: 쓰시려면 사용법보다 이해를 하셔야 할 거 같은데요.
: Process ID 를 받아서 프로세스 목록 스냅샷을 떠서 일치하는 프로세스를 찾아 Suspend 시키는 코드입니다.
:
: 백진수 님이 쓰신 글 :
: : 구글링하다 찾은 suspend process 소스입니다.
: : 버튼을 눌러 프로세스를 중지시킬려고 하는데
: :
: : 사용하는 방법좀 알려주세요..
: :
: :
: : 
: :
: : function SuspendProcess(PID:DWORD):Boolean;
: : var
: : hSnap:  THandle;
: : THR32:  THREADENTRY32;
: : hOpen:  THandle;
: : begin
: :   Result := FALSE;
: :   hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);
: :   if hSnap <> INVALID_HANDLE_VALUE then
: :   begin
: :     THR32.dwSize := SizeOf(THR32);
: :     Thread32First(hSnap, THR32);
: :     repeat
: :       if THR32.th32OwnerProcessID = PID then
: :       begin
: :         hOpen := OpenThread($0002, FALSE, THR32.th32ThreadID);
: :         if hOpen <> INVALID_HANDLE_VALUE then
: :         begin
: :           Result := TRUE;
: :           SuspendThread(hOpen);
: :           CloseHandle(hOpen);
: :         end;
: :       end;
: :     until Thread32Next(hSnap, THR32) = FALSE;
: :     CloseHandle(hSnap);
: :   end;
: : end;