.

말씀하신대로 팁란에 찾아 봤는데요..
핸들값을 리턴하지는 않더군요..
핸들값을 리턴 받으려면 어찌해야되는지..

안녕하세요. 최용일입니다.

질답란 검색해보세요.

예전에 제가 써둔 답변이 있을겁니다.

^^ 항상 즐코하세요...

검색을 계속 해 보았는데요..
아무리 찾아봐도 제가 원하는 내용은 없는데요..
다시 한번 도와 주시면 안될까요..
그럼.. 즐거운 하루 되세요..

흠 전 분명히 찾아서 썼었는데 말이죠....

이 펑션은 실행파일명을 가지고 실행 되있는 프로세스를 죽이는겁니다.

어느분께서 올려 주셨는지 제가 뭘 고쳤었는지는 잘기억이 안납니다.

최용일님이 올려 주신건지...흠....

function TerminateIsRun(sFindFile : String): Boolean;
var
  peList : TProcessEntry32;
  hL, hP : THandle;
begin
  Result := False;
  peList.dwSize := SizeOf(TProcessEntry32);
  hL             := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(hL, peList) then begin
  repeat
   if CompareText(peList.szExeFile, sFindFile) = 0 then begin
     hP := OpenProcess(PROCESS_ALL_ACCESS, TRUE, peList.th32ProcessID);
     TerminateProcess(hP, 0);
     Result := True;
     end;
   until not Process32Next(hL, peList);
  end;
  CloseHandle(hL);
end;