천객만래 [千客萬來] (It has an interminable succession of visitors)
프로세스가 살아있는지 검사, 프로세스 죽이기

프로세스가 살아있는지 검사
 
// 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로 되어있어서 퍼옵니다.

Posted by SB패밀리
쌈꼬쪼려 소백촌닭

사용자의 인터넷익스플로러 창 모두 닫기

//네임스페이스 선언
using System.Diagnostics;

//현재 사용자 컴퓨터에 열려 있는 익스플로러의 창을 모두 닫는다.
public static void KillExplorer()
{
   Process[] procs = Process.GetProcessesByName("IEXPLORE");
   for(int i=0; i< procs.Length; i++) procs[i].Kill();
}

현재 실행중인 프로세스를 죽이는 방법으로 iexplore를 종료시킵니다.

Posted by SB패밀리