[hackvl]

Сделал таймер

PHP код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if
exe_running('notepad.exe', false) then
begin
timer2.Enabled:=True;
timer3.Enabled:=True;
timer4.Enabled:=True;
end
else
showmessage('Процесс незапущен');
end; 


при проверке вылазит ошибка
[Error] Unit1.pas(32): Undeclared identifier: 'exe_running'

Что нетак сделал? или чтото надо добавить или компонент какойнить кинуть на форму?

[Страдалецъ]

Код:

exe_running('notepad.exe', false)

возможно имелось ввиду это?

Код:

uses ShellApi;
...ShellExecute(Handle, 'open',
  'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

[hackvl]

мне нужно так
если этот процесс запущен ***.exe то влючаются таймеры в моей программе, если процесс незапущен вылазит сообщение

код взял от сюда http://articles.org.ru/cfaq/index.php?qid=1741&catid=58
не весь код брал только вот етот вставил

Код:

// example 1: is a exe-file running ? 
procedure tform1.button1click(sender: tobject); 
begin 
if exe_running('notepad.exe', false) then 
showmessage('exe is running') 
else 
showmessage('exe is not running'); 
end;

Кто что подскажет?

[Страдалецъ]

Ну так и надо было копировать описание функции, а то вы выдернули только ее вызов.

Код:

function exe_running(filename: string; bfullpath: boolean): boolean; 
var 
i: integer; 
myproclist: tstringlist; 
begin 
myproclist := tstringlist.create; 
try 
getprocesslist(myproclist); 
result := false; 
if myproclist = nil then exit; 
for i := 0 to myproclist.count - 1 do 
begin 
if not bfullpath then 
begin 
if comparetext(extractfilename(myproclist.strings[i]), filename) = 0 then 
result := true 
end 
else if comparetext(myproclist.strings[i], filename) = 0 then result := true; 
if result then break; 
end; 
finally 
myproclist.free; 
end; 
end; 

[hackvl]

function exe_running(filename: string; bfullpath: boolean): boolean;
перед var ставить? я втыкнул и мне ошибка вылазит
[Error] Unit1.pas(21): Unsatisfied forward or external declaration: 'exe_running'

[hackvl]

Ктонить напишите эту штук и скиньте иходник,
ниче у меня невыходит, одни ошибки ккието

[hackvl]

v1s2222
Спасибо огромное, очень помог