![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как закрыть приложение из батника
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. В других версиях - не знаю.