Как узнать запущена ли программа(не по имени файла а по пути)

[Crystallon]

Собственно как узнать запущена ли программа?
Узнать необходимо не просто по имени файла а по полному пути, т.е. в системе возможно присутствие нескольких процессов с одинаковым названием(несколько копий одной и той же программы расположеные соответственно в разных папках, а получить информацию о том запущена программа или нет нужно именно об одной конкретной копии расположенной в конкретной папке).
Заранее спасибо за помощь =)

[xrenomx]

Сообщение от Crystallon

Собственно как узнать запущена ли программа?
Узнать необходимо не просто по имени файла а по полному пути, т.е. в системе возможно присутствие нескольких процессов с одинаковым названием(несколько копий одной и той же программы расположеные соответственно в разных папках, а получить информацию о том запущена программа или нет нужно именно об одной конкретной копии расположенной в конкретной папке).
Заранее спасибо за помощь =)

Насколько я знаю,выяснить это можно по тому активен данный процесс или нет.

[Crystallon]

Сообщение от xrenomx

Насколько я знаю,выяснить это можно по тому активен данный процесс или нет.

Ваш ответ не содержит смысловой нагрузки...

[eoln]

Первое что пришло в голову, так это попробовать получить доступ к файлу и посмотреть что нам ответит на это система. Что-то вроде етакой ереси:

try
  assignfile(f, 'c:\program.exe');
  reset(f);
  closefile(f);
  showmessage('Всё нормально');
except
  showmessage('Ошибка №' + inttostr(getlasterror) + #10#13 + syserrormessage(getlasterror));
end

Если получили ошибку 32, то "The process cannot access the file because it is being used by another process."
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[Crystallon]

Сообщение от eoln

Первое что пришло в голову, так это попробовать получить доступ к файлу и посмотреть что нам ответит на это система. Что-то вроде етакой ереси:

try
  assignfile(f, 'c:\program.exe');
  reset(f);
  closefile(f);
  showmessage('Всё нормально');
except
  showmessage('Ошибка №' + inttostr(getlasterror) + #10#13 + syserrormessage(getlasterror));
end

Если получили ошибку 32, то "The process cannot access the file because it is being used by another process."
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Спасибо, по идее должно работать, как по мне гениальное решение, сам бы я до такого врятли додумался xD

[Crystallon]

Эхх гениальное решение не прокатило =( а было бы просто замечательно еслиб все было так просто... Вобщем после запуска программы ее исполняемый файл не "занят", т.е. его хоть удалять можно а программа будет работать...
Еще какие варианты есть? ^_^

[eoln]

Наверное эта программа (та которую в запущенном состоянии можно удалить) очень хитрая

[p51x]

Может начнем читать документацию?

szExeFile

The name of the executable file for the process. To retrieve the full path to the executable file, call the Module32First function and check the szExePath member of the MODULEENTRY32 structure that is returned. However, if the calling process is a 32-bit process, you must call the QueryFullProcessImageName function to retrieve the full path of the executable file for a 64-bit process.

[Crystallon]

Нашел готовенькое ^^

    function GetExeFilePath(ExeFileName:string):string;
    var hSnapshot,hSnapshot2:THandle;
        proc:TProcessEntry32;
        m:TModuleEntry32;
    begin
    result:='';
    hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    proc.dwSize:=Sizeof(proc);
    if Process32First(hSnapshot,proc) then repeat
     if AnsiSameText(proc.szExeFile,ExeFileName) then begin
     hSnapshot2:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,proc.th32ProcessID);
     m.dwSize:=SizeOf(TModuleEntry32);
     if Module32First(hSnapshot2,m) then begin
      result:=(m.szExePath);
      CloseHandle(hSnapshot2);
      CloseHandle(hSnapshot);
      exit;
      end;
     end;
    until not Process32Next(hSnapshot,proc);
    CloseHandle(hSnapshot);
    end;

[p51x]

Ровно то, что и было написано в доках