Как определить, запущен ли определенный файл?

← →
smok_er (2002-10-27 12:43) [0]

Уважаемые знатоки! Вопрос конечно уже сто раз обсуждался, но нужен срочный ответ, а времени рыться в факах нет :(
Как получить список всех запущенных приложений? Конкретнее, надо узнать, запущен ли файл, к примеру C:\Program Files\1\1.exe или нет.

Заранее огромное спасибо!

← →
Cobalt © (2002-10-27 13:24) [1]

Если конкретного файла, то можно просто попробовать открыть его на запись. Если не получиться - значит запущен.
Сами подумайте - кто же будет читать из ехе-ка просто так?

← →
LENIN INC (2002-10-27 13:28) [2]

Можно проверить используется ли файл в данный момент:

Function ApplicationUse(fName : string ) : boolean; var HFileRes : HFILE; begin Result := false; if not FileExists(fName) then exit; HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; //пример использования функции: procedure TForm1.Button1Click(Sender: TObject); begin if ApplicationUse("c:\project1.exe") then ShowMessage("Application in use") else ShowMessage("Application not in use"); end;

← →
smok_er (2002-10-28 23:11) [3]

Огромное спасибо!
Все замечательно работает!

Как определить, запущен ли определенный файл? Найти похожие ветки