как определить запущена ли какая либо прога...?

← →
raven79 (2002-11-21 15:40) [0]

использовал сторонний модуль...
и работал так:
if IsFileActive("app.exe")
then
begin
Label.Visible:=True;
Label.Caption:="запущенo";
end
else
begin
Label.Visible:=True;
Label.Caption:="не запущенo";
end;
как провернуть это стандартными функциями или командами АПИ...?

← →
GLUKAS (2002-11-21 16:06) [1]

Zapusheno:= FindWindow(nil,windowName)<>0;

← →
raven79 (2002-11-21 16:20) [2]

это поиск по заголовку...
например "Безымянный - Блокнот"....
а нужно соответсвенно "notepad.exe"....
так как...? :)

← →
raven79 (2002-11-22 13:43) [3]

так чё, варианты иссякли...?

← →
Mirovodin (2002-11-22 14:31) [4]

Используй модуль TlHelp32, там есть функции позволяющие сделать снимок процессов. Перемещаясь по нему можно получить информацию о загрженных процессах - имя файла, путь и т.д.

← →
raven79 (2002-11-22 17:10) [5]

яж ясно вроде выразился.... с модулями я и так могу... раздел форума какой - ВинАпи.... ну так и помогите на чистом апи код состряпать....

← →
Song (2002-11-22 17:12) [6]

:-))
Хорошо, а что такое по-твоему WinAPI ?

← →
MikeP (2002-11-22 17:21) [7]

if (CreateFile("app.exe",GENERIC_WRITE,.....)=INVALID_HANDLE_VALUE) and (GetLastError=ERROR_SHARING_VIOLATION) then Запущено

← →
Игорь Шевченко (2002-11-22 17:31) [8]

raven79 (22.11.02 17:10)

> раздел форума какой - ВинАпи.... ну так и помогите на чистом
> апи код состряпать....

Эт только за деньги. С какой радости народ тебе ДОЛЖЕН ПОМОГАТЬ чего-то делать, что ты сам ленишься (подумать, поискать в инете) ?

← →
kostik78ua (2002-11-22 17:50) [9]

Можешь, например, узнать заблокирован файл или нет.

var F: File;
begin
{$I-}
AssignFile(F,"c:\kievenergo_temp\prjMain.exe");
Reset(F);
if GetLastError=0 then
begin
ShowMessage("Ok");
CloseFile(F);
end else ShowMessage("Bad")
{$I+}
end;

Что-нибудь в этом роде.

← →
raven79 (2002-11-22 18:35) [10]

попробовал (CreateFile("WebMoney.exe", GENERIC_WRITE, FILE_SHARE_READ, nil, TRUNCATE_EXISTING, FILE_ATTRIBUTE_ARCHIVE, null)
получил в итоге еррор 220.... как быть, чё не так...

как определить запущена ли какая либо прога...? Найти похожие ветки