перезапуск процесса при его закрытии

[alex0097]

Господа программисты, нужен ваш совет. Не работает с компонентом KOL. Ни чего не происходит. Без него работает как и должен, а с ним даже не реагирует. Может кто сталкивался?

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

uses
KOL,
  Windows,
  Forms,
  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(Application.ExeName), 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.

Подозреваю что ошибка в этой строчке

if Createprocess( nil, PChar(Application.ExeName), nil, nil, False,

[Serge_Bliznykov]

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

Подозреваю что ошибка в этой строчке

if Createprocess( nil, PChar(Application.ExeName), nil, nil, False,

ну, так заменить Application.ExeName проще простого.
на самом деле это ParamStr(0)

попробуйте:

if Createprocess( nil, PChar(ParamStr(0)), nil, nil, False,
...

p.s. а что, KOL реально так необходим? Размер приложения крайне критичен?

[alex0097]

Serge_Bliznykov Да желательно меньший вес. И так Студия пакует его килограммом ненужного шлака.

Нет не помогло. к сожалению. Код компилируется хорошо. но не работает с KOL компонентом. Искал решения в гугле. не Помогло. Может кто сталкивался

[Serge_Bliznykov]

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

но не работает с KOL компонентом. Искал решения в гугле. не Помогло. Может кто сталкивался

Насколько я понимаю и судя по оф.сайту проект больше не поддерживается?

Вы, надеюсь, используете версию Delphi не старше 2012 года?

Поддерживаются Delphi2, Delph3, Delphi4, Delphi5, Delphi6, Delphi7, BDS 2005-2012, Kylix а так же Free Pascal Compiler 1.0.5 и выше.

Ещё на официальный форум сходите, там больше вероятности получить квалифицированный ответ.

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

Да желательно меньший вес. И так Студия пакует его килограммом ненужного шлака.

"Желательно" - это не синоним "крайне необходимо".
Если выбирать из двух - маленького EXEшника, который не работает, и
ОГРОМНОГО (на много мегабайт) EXEшника, который корректно работает, я, пожалуй, выберу большой, но работающий.

Хотя тоже не люблю тонны лишнего шлака, который попадает в исполняемый код после компиляции. Но что же делать - гигабайты сейчас дешёвые, а ручной квалифицированный труд - нет.

а по сути проблемы.
А в чём заключается -

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

Код компилируется хорошо. но не работает с KOL компонентом.

программа не запускается? Выдаёт при запуске ошибки? Или в чём проблема?

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

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

  Application.Initialize;
  Application.MainFormOnTaskbar := True;

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

  RunNew();

{$IFEND}

у вас задана условная компиляция.
переменная KOL_MCK определена?
1С_0.inc что содержит?

[alex0097]

RAD Studio 2010 у меня.

Вот что он содержит:

{ KOL MCK } // Do not remove this line!
{ 1c_0.inc
  Do not edit this file manually - it is generated automatically.
  You can only modify 1c_1.inc and 1c_3.inc
  files. }

{$IFDEF Pcode}
 InstallCollapse;
{$ENDIF Pcode}
  NewForm1( Form1, nil );
{$I 1c_1.inc}

{$I 1c_2.inc}

{$I 1c_3.inc}

  Run( Form1.Form );

{$I 1c_4.inc}

[Serge_Bliznykov]

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

Вот что он содержит:

ну вот, RunNew(); в компилируемом коде нет.

попробуйте вынести RunNew(); за пределы блока условной компиляции:

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

  Application.Initialize;
  Application.MainFormOnTaskbar := True;

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

{$IFEND}

RunNew();

[alex0097]

Serge_Bliznykov пробовал, перед тем как писать на форум. и так же пробовал перед.

[Serge_Bliznykov]

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

Serge_Bliznykov пробовал

и что происходит?

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

и так же пробовал перед.

это что означает?
Вы попробовали запускать ваше приложение через CreateProcess перед тем, как оно откроется?! А зачем?


но это неважно. по сути вопроса мне добавить нечего, извините.

[Aliens_wolfs]

Попробуйте примерно так

{$IFNDEF KOL_MCK}{$I 1c_0.inc}
RunNew();
{$ELSE}
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
 {$ENDIF}

Возможно это поможет http://delphikol.narod.ru/docs/kolvcl.htm