Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

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


Alex0097   (10.07.17 17:35

Господа программисты, нужен ваш совет. Не работает с компонентом 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]

один эс говоришь... ну ну..


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо