Открыть приложение

← →
Гарик (2015-02-27 18:06) [0]

Как при нажатии кнопки открыть OpenDialog и запустить exe файл?

← →
Rouse_ © (2015-02-27 18:10) [1]

if OpenDialog.Execute then
ShellExecute(параметрами OpenDialog.FileName )

← →
DVM © (2015-02-27 18:11) [2]

> Rouse_ © (27.02.15 18:10) [1]

не находит OpenDialog и ShellExecute :(

← →
Rouse_ © (2015-02-27 18:18) [3]

Удалено модератором

← →
Smile © (2015-02-27 18:21) [4]

Удалено модератором

← →
Гарик (2015-02-27 18:23) [5]

Объявил ShellAPI.. А что дальше??
P.S.: Грешно смеяться над незнающими людьми (((

← →
Rouse_ © (2015-02-27 18:28) [6]

Ну а дальше как обычно.
Кидаешь на форму TOpenFileDialog и кнопку.
Щелкаешь на ней два раза и переходишь в ее обработчик, где пишешь:

implementation uses ShellAPI; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ShellExecute(0, "open", PChar(OpenDialog1.FileName), nil, PChar(ExtractFilePath(OpenDialog1.FileName)), SW_SHOWNORMAL); end;

← →
Гарик (2015-02-27 18:38) [7]

Александр, огромное вам спасибо!!!

← →
p © (2015-02-28 08:31) [8]

Удалено модератором

← →
Kilkennycat © (2015-02-28 12:05) [9]

Удалено модератором

Открыть приложение Найти похожие ветки