При запуске *.exe ,должен включиться timer1 [Delphi]
вот у меня в программе несколько таймеров, и мне нужно сделать так чтоб когда я запускаю какуюнибудь определенную программу *.exe то в моей программе сами включались таймеры
помогите, очень нужно
если твоя программа сама не запускает эти .exe, то просто постоянно скань из своей проги список процессов на предмет появления процесса с нужной .exe программой. И запускай нужный таймер.
Я не оказываю услуги гаранта!
База данных кидал: blacklist.rf-cheats.ru
Обязательно проверяйте человека через чёрный список прежде чем совершать с ним сделку.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if exe_running('***.exe', false) then
showmessage('процесс запущен');
else
showmessage('процесс незапущен');
end;
end.
При проверке выдает ошибки:
[Error] Unit1.pas(28): Undeclared identifier: 'exe_running'
[Error] Unit1.pas(30): ';' not allowed before 'ELSE'
Что нетак сделал? или чтото надо добавить или компонент какойнить кинуть на форму?
Добавлено через 36 минут
исправил
[Error] Unit1.pas(30): ';' not allowed before 'ELSE'
showmessage('процесс запущен'); убрал ;
Добавлено через 7 часов 10 минут
Все сделал
Последний раз редактировалось woroms007; 14.01.2011 в 13:20.
Причина: Добавлено сообщение
Говорит о том, что о функции 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.
Так правильнее.
А вообще в руки учебник по дельфи и читать, читать, читать. Ибо ошибки допущенные тобой простейшие.
Программирование сегодня — это гонка разработчиков программ, стремящихся писать программы больше и с лучшей идиотоустойчивостью, и вселенной, которая пытается создавать больших и лучших идиотов. Пока вселенная побеждает.
— Rick Cook
История России — борьба невежества с несправедливостью. (c) МихМих