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