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