Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

Проверка процессов   Найти похожие ветки 

 
ArchValentin ©   (2006-02-12 08:09) [0]

Доброго всем времени суток. Проблема такая, у меня есть путь типа c:\Прога\proga.exe, как можно проверить, запущена ли она. Заранее благодарен


 
kaZaNoVa ©   (2006-02-12 11:33) [1]

в uses добавь Tlhelp32, PsApi

Function IfRunProgram(ProgramFullName:string):Boolean;
var
hSnapshot, hProcess: THandle;
PE: TProcessEntry32;
Path: array [0..MAX_PATH] of Char;
begin
Result:=False;
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if hSnapshot <> INVALID_HANDLE_VALUE then
begin
  PE.dwSize := sizeof(PE);
  if Process32First(hSnapshot, PE) then
    repeat
      hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, PE.th32ProcessID);
      if GetModuleFileNameEx(hProcess, 0, Path, sizeof(Path)) <> 0 then
        if (pos(UpperCase(ProgramFullName),UpperCase(Path))>0  ) then Result:= True;
      CloseHandle(hProcess)
    until not Process32Next(hSnapshot, PE);
    CloseHandle(hSnapshot)
end
end;

//пример использования

If IfRunProgram("Explorer") then MessageBox(0,"Программа запущена","Внимание",0);



 
maxim161 ©   (2006-02-12 17:29) [2]

Так это надо в каком-нибудб таймере ставить?


 
kaZaNoVa ©   (2006-02-13 00:22) [3]

maxim161 ©   (12.02.06 17:29) [2]
ага


 
kaZaNoVa ©   (2006-02-13 12:14) [4]

да, чуть не забыл .. код  [1] может некорректно выдавать начало пути.. поэтому лучше писать тока конец . .например If IfRunProgram("proga.exe") then MessageBox(0,"Программа запущена","Внимание",0);




Страницы: 1 вся ветка

Текущий архив: 2006.05.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
15-1144829216
kaand
2006-04-12 12:06
2006.05.07
Шрифты.


15-1145135589
Shastox
2006-04-16 01:13
2006.05.07
Старая загадка на новый лад


2-1145249159
Bolek
2006-04-17 08:45
2006.05.07
pervasiv&amp;delphi


3-1142429140
Olmar
2006-03-15 16:25
2006.05.07
BDE Paradox


15-1144848011
Толян
2006-04-12 17:20
2006.05.07
MySQL