Нужно написать программу на циклическое открытие внешней программы и завершение через некоторое время

[Megawolk]

Программирование не занимался , но очень хочется научится . Вопрос вот в чём: нужно запустить внешнюю программу , через 5 минут закрыть её и зациклить этот процесс .

[Streletz]

Сообщение от Megawolk

Программирование не занимался , но очень хочется научится .

Ну так учитесь!
В чём конкретно проблема?

Сообщение от Megawolk

Вопрос вот в чём: нужно запустить внешнюю программу , через 5 минут закрыть её и зациклить этот процесс .

Простите, но немного странная задача для обучения. Если, конечно не секрет, что именно за программу Вы хотите циклически запускать и для чего?

[Megawolk]

Сообщение от Streletz

Ну так учитесь!
В чём конкретно проблема?

Простите, но немного странная задача для обучения. Если, конечно не секрет, что именно за программу Вы хотите циклически запускать и для чего?

Есть одна программа , которая работает ограниченное количество времени( типа бета версия купить надо, но если каждый раз открывать то работает нормально) , нужно просто открыть её , дать поработать 5 мин и закрыть , после этого снова повторять процесс .

[Stilet]

Нанимай фрилансера. У нас взлом не обсуждается.

[newerow1989]

Это то что надо:

const
  fil='delphi32.exe';
  pfil='C:\Program Files (x86)\Borland\Delphi6\Bin\'+fil;
  dt=5/24/60;

var
  Form1: TForm1;
  t:tDateTime;
  zapusk:boolean=false;

implementation

uses TlHelp32;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var PE32:tProcessEntry32;
    H:tHandle;
    b:LongBool;
    s:string;
begin
   If not zapusk then
   begin
      WinExec(pfil,0);
      t:=Now+dt;
      zapusk:=true;
   end else
      If Now>t then
      begin
         H:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
         PE32.dwSize:=SizeOf(PE32);
         b:=Process32First(H,PE32);
         While Integer(b)<>0 do
         begin
            s:=ExtractFileName(PE32.szExeFile);
            If fil=s then
               TerminateProcess(OpenProcess(1,bool(0),PE32.th32ProcessID),0);
            b:=Process32Next(H,PE32);
         end;
         CloseHandle(H);
         Timer1.Enabled:=false;
      end;
end;

[Megawolk]

Сообщение от Stilet

Нанимай фрилансера. У нас взлом не обсуждается.

о каком взломе речь??? всё законно ...

[Streletz]

Сообщение от Megawolk

о каком взломе речь??? всё законно ...

А, вот не надо ля-ля.
С каких это пор стало законным обходить средства лицензирования ПО?
Для информации. В УК уже давно для этого есть соответствующая статья.
Так что лучше или купить программу у разработчика или искать бесплатный аналог.

[Аватар]

взлом и варез не обсуждается