Квк определить, запущен ли процесс???

[vovken1997]

Всем привет!
Мне надо определить, запущена ли служба. Легче это сделать через процессы. Как определить запущен ли процесс???

[dolphin705]

function processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;


// Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin
if processExists('calc.exe') then
ShowMessage('process is running')
else
ShowMessage('process NOT running');
end;

[GSirr]

Чуть-чуть гугла:
http://www.cyberforum.ru/delphi-begi...ead154229.html

[vovken1997]

dolphin705, огромное СПАСИБО!!!

[GunSmoker]

*facepalm*

Если служба - то её статус проверять надо запросом у SCM. То, что процесс существует, не значит вообще ничего. Служба можеть быть остановлена, но ещё не выгружена.