Вызов других программ

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: VRSLazy@mail.ru

Увеличения числа участников при подготовке опаздывающей программы только замедляет процесс.

uses …ToolWin, Windows…

procedure Run(App: string);

var

ErrStr: string;

PMSI: TStartupInfo;

PMPI: TProcessInformation;

begin

try

CreateProcess(nil, @App[1], nil, nil, False, NORMAL_PRIORITY_CLASS,

nil, nil, PMSI, PMPI);

except

ErrStr := ‘Fault run process: »’ App »»;

Application.MessageBox(@ErrStr[1], ‘Failure process’, MB_OK MB_ICONERROR);

end;

end;

{/codecitation}

Добавить комментарий