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



Автор: [email protected]

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


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;


Далее: Добраться через Handle формы до какого-либо CONTROLа »»