Главная страница
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-1419002742
Вован Петрович
2014-12-19 18:25
2017.01.15
Локализация ПО


15-1454189402
Юрий
2016-01-31 00:30
2017.01.15
С днем рождения ! 31 января 2016 воскресенье


1-1343890489
rioko
2012-08-02 10:54
2017.01.15
Stream.Seek Stream.Position возвращает ноль.


2-1408987238
Black7777
2014-08-25 21:20
2017.01.15
TChromium DCEF3


6-1281776559
Симулятор
2010-08-14 13:02
2017.01.15
Как сделать симуляцию в индиевских серверах?