Доброго времени суток,
Вот посмотрел Ваше произведение Советы по делфи, мне очень понравилось :-)
Правда в вопросе/решении запустить другую программу просто обалдел :-( Я как
то долго мучился с этим самым ShellExecute пока не пришёл к следующему:
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;
|
