Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как определить запущена ли какая либо прога...? [D5, Win95/98, WinME, NT4, Win2k, WinXP]

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

raven79 (2002-11-22 18:35:00) [1]
попробовал (CreateFile("WebMoney.exe", GENERIC_WRITE, FILE_SHARE_READ, nil, TRUNCATE_EXISTING, FILE_ATTRIBUTE_ARCHIVE, null)
получил в итоге еррор 220.... как быть, чё не так...

kostik78ua (2002-11-22 17:50:00) [2]
Можешь, например, узнать заблокирован файл или нет.

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;

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

Игорь Шевченко (2002-11-22 17:31:00) [3]
raven79 (22.11.02 17:10)

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

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

MikeP (2002-11-22 17:21:00) [4]
if (CreateFile("app.exe",GENERIC_WRITE,.....)=INVALID_HANDLE_VALUE) and (GetLastError=ERROR_SHARING_VIOLATION) then Запущено

Song (2002-11-22 17:12:00) [5]
:-))
Хорошо, а что такое по-твоему WinAPI ?

raven79 (2002-11-22 17:10:00) [6]
яж ясно вроде выразился.... с модулями я и так могу... раздел форума какой - ВинАпи.... ну так и помогите на чистом апи код состряпать....

Mirovodin (2002-11-22 14:31:00) [7]
Используй модуль TlHelp32, там есть функции позволяющие сделать снимок процессов. Перемещаясь по нему можно получить информацию о загрженных процессах - имя файла, путь и т.д.

raven79 (2002-11-22 13:43:00) [8]
так чё, варианты иссякли...?

raven79 (2002-11-21 16:20:00) [9]
это поиск по заголовку...
например "Безымянный - Блокнот"....
а нужно соответсвенно "notepad.exe"....
так как...? :)

GLUKAS (2002-11-21 16:06:00) [10]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »