[개발/MFC] 프로세스가 살아있는지 검사, 프로세스 죽이기

프로세스가 살아있는지 검사, 프로세스 죽이기

프로세스가 살아있는지 검사

 

// uses 에 TlHelp32 추가

functionIsRunningProcess(constProcName: String) : Boolean;

var

  Process32: TProcessEntry32;

  SHandle:   THandle;

  Next:      Boolean;

begin

  Result:=False;

 

  Process32.dwSize:=SizeOf(TProcessEntry32);

  SHandle         :=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);

 

  // 프로세스 리스트를 돌면서 매개변수로 받은 이름과 같은 프로세스가 있을 경우 True를 반환하고 루프종료

 ifProcess32First(SHandle, Process32) then begin

    repeat

      Next:=Process32Next(SHandle, Process32);

      if AnsiCompareText(Process32.szExeFile, Trim(ProcName))=0then begin

        Result:=True;

        break;

     end;

    until notNext;

  end;

  CloseHandle(SHandle);

end;

 

 

// 사용예.  계산기(calc.exe)가 떠있는지 확인하고 싶을 경우

procedureTForm1.Button1Click(Sender: TObject);

begin

  ifIsRunningProcess('calc.exe') thenOutputDebugString('계산기 있음')

  else                                 OutputDebugString('계산기 없음');

end;

 

 

 

 

 

 

프로세스 죽이기 (강제종료)

 

// uses 에 TlHelp32 추가

functionKillProcess(constProcName: String): Boolean;

var

  Process32: TProcessEntry32;

  SHandle:   THandle;

  Next:      Boolean;

  hProcess: THandle;

  i: Integer;

 

begin

  Result:=True;

 

  Process32.dwSize       :=SizeOf(TProcessEntry32);

  Process32.th32ProcessID:=0;

  SHandle                :=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);

 

  // 종료하고자 하는 프로세스가 실행중인지 확인하는 의미와 함께...

  ifProcess32First(SHandle, Process32) then begin

    repeat

      Next:=Process32Next(SHandle, Process32);

      ifAnsiCompareText(Process32.szExeFile, Trim(ProcName))=0thenbreak;

    until notNext;

  end;

  CloseHandle(SHandle);

 

  // 프로세스가 실행중이라면 Open & Terminate

  ifProcess32.th32ProcessID<>0then begin

    hProcess:=OpenProcess(PROCESS_TERMINATE, True, Process32.th32ProcessID);

    ifhProcess<>0then begin

      if notTerminateProcess(hProcess, 0) thenResult:=False;

    end

    // 프로세스 열기 실패

    elseResult:=False;

 

    CloseHandle(hProcess);

  end// if Process32.th32ProcessID<>0

  elseResult:=False;

end;

 

 

 

 

// 사용예. 계산기(calc.exe) 프로세스를 죽이고자 할 때.

procedureTForm1.Button1Click(Sender: TObject);

begin

  ifKillProcess('calc.exe') thenOutputDebugString('계산기 죽이기 실패. 계산기 프로세스가 없었거나...')

  else                            OutputDebugString('계산기 죽이기 성공.');

end;

출처 : http://blog.naver.com/erroring/150097804539
VC++에서 사용중인건데... 루틴은 동일하고 delphi로 되어있어서 퍼옵니다.