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;
|