Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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]

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


 
©   (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.015 c
2-1421904151
i2e
2015-01-22 08:22
2017.01.15
В MDI-приложении надо программно сделать окно активным


15-1452881433
xayam
2016-01-15 21:10
2017.01.15
Приглашаю на шахматный турнир Delphi Masters 4 (2016)


2-1421218510
Drowsy
2015-01-14 09:55
2017.01.15
Нужен компонент типа PaintBox.


15-1448881398
Анна
2015-11-30 14:03
2017.01.15
имеет ли право начальство поставить программу считывания информ


2-1423343442
Andrey K
2015-02-08 00:10
2017.01.15
Как работать с портом LAN