ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Пацаны, ну помогите написать один код на delphi который будет каждую минуту открывать файл 1.txt в диске C:\ , и если там написано '123', то тогда программа должна проверить запущен ли процесс 1.exe, и если да, то закрыть его и вывести сообщение типа 'Процесс закрыт', цикл должен быть бессконечным.

Плиз, просто сам никак не могу написать такой код, новичок еще в этом деле...=)))

[code delphi]
f:text;
s:string;

Assign(f,'C:\1.txt');
Reset(f);
ReadLn(f,s);
Close(f);
if s='123' then
//проверяем наличие процесса
if Proc then begin
//убиваем процесс
Application.Messagebox('','Ok',0);
end;

[/code]