Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как закрыть приложение из батника


Layner ©   (2005-07-22 15:00:00) 

Есть приложение, иногда перестающее работать, приходится его в ручную снимать, и запускать. Хотелось бы автоматизировать процесс, поставить батник на задания в WinNT, и снимать раз в сутки принудительно, и запускать тут же, по новой, этим батником. С запуском приложения проблем нет, а вот как его можно снять, если возможно, то какой командой(ми)..
Заранее благодарю.


DDA   (2005-07-23 17:11:00) [1]

procedure TForm1.FormDestroy(Sender: TObject);
var f:textFile;
FileName:String;
begin
 FileName:=changefileext(paramstr(0),'.bat');
 assignFile(f,FileName);
 rewrite(f);
 writeln(f,':1');
 writeln(f,format('Erase "%s"',[paramstr(0)]));
 writeln(f,format('If exist "%s" Goto 1',[paramstr(0)]));
 writeln(f,format('Erase "%s"',[FileName]));
 closefile(f);
 ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide);
end;


Lamer@fools.ua   (2005-07-22 15:50:00) [2]

P.S. А чем не устраивает настроить Job в планировщике заданий, а в джобе указать: снимать задачу через столько-то часов:минут?


Lamer@fools.ua   (2005-07-22 15:49:00) [3]

В WinXP есть tskill. В других версиях - не знаю.


Наверх

Титульная страница Поиск, карта сайта Написать письмо