Форум: "WinAPI";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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.... как быть, чё не так...

---

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

Форум: "WinAPI";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c