Цитата:
|
[Error] Unit1.pas(28): Undeclared identifier: 'exe_running'
|
Говорит о том, что о функции exe_running компилятор не знает. Либо ты ее не добавил, либо не добавил модуль с ней, либо сам ее забыл написать.
Цитата:
|
[Error] Unit1.pas(30): ';' not allowed before 'ELSE'
|
В дельфи по закону синтаксиса перед else не ставятся ";"
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if exe_running('***.exe', false) then
showmessage('процесс запущен')
else
showmessage('процесс незапущен');
end;
end.
Так правильнее.
А вообще в руки учебник по дельфи и читать, читать, читать. Ибо ошибки допущенные тобой простейшие.