Текущий архив: 2017.01.15;
Скачать: CL | DM;
Вниз
Открыть приложение Найти похожие ветки
← →
Гарик (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]Удалено модератором
← →
Rouse_ © (2015-02-28 12:09) [10]Удалено модератором
← →
Kilkennycat © (2015-02-28 12:16) [11]Удалено модератором
← →
Rouse_ © (2015-02-28 12:22) [12]Удалено модератором
← →
Kilkennycat © (2015-02-28 13:01) [13]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2017.01.15;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.019 c
