Конференция "KOL" » перезапуск процесса при его закрытии [Delphi]
 
  • Alex0097 (10.07.17 17:35) [0]
    Господа программисты, нужен ваш совет. Не работает с компонентом KOL. Ни чего не происходит. Без него работает как и должен, а с ним даже не реагирует. Может кто сталкивался?

    [CODE]{ KOL MCK } // Do not remove this line!
    program 1C;

    uses
    KOL,
     Windows,
     Unit1 in 'Unit1.pas' {Form1};

    //{$R *.res}

    procedure RunNew();
    var
     StartInfo    : TStartupInfo;
     ProcInfo     : TProcessInformation;
    begin
     ZeroMemory(@StartInfo,SizeOf(StartInfo));
     StartInfo.cb := SizeOf(StartInfo);

     if Createprocess( nil, PChar(ParamStr(0)), nil, nil, False,
                        CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
                        nil, nil, StartInfo, ProcInfo)
     then
     begin
       CloseHandle(ProcInfo.hThread);
       CloseHandle(ProcInfo.hProcess);
     end

     else
       // процесс не запустился

    end;

    begin // PROGRAM START HERE -- Please do not remove this comment

    {$IF Defined(KOL_MCK)} {$I 1c_0.inc} {$ELSE}

     Application.Initialize;
     Application.MainFormOnTaskbar := True;

     Application.CreateForm(TForm1, Form1);
     Application.Run;

     RunNew();

    {$IFEND}

    end.[/CODE]
  • QAZ (10.07.17 18:30) [1]
    один эс говоришь... ну ну..
 
Конференция "KOL" » перезапуск процесса при его закрытии [Delphi]
Есть новые Нет новых   [118614   +65][b:0][p:0]