Текущий архив: 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.021 c