| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Открыть приложение
Гарик © (2015-02-27 18:06:00)Как при нажатии кнопки открыть OpenDialog и запустить exe файл?
Kilkennycat (2015-02-28 13:01:00) [1]Удалено модератором
Rouse_ (2015-02-28 12:22:00) [2]Удалено модератором
Kilkennycat (2015-02-28 12:16:00) [3]Удалено модератором
Rouse_ (2015-02-28 12:09:00) [4]Удалено модератором
Kilkennycat (2015-02-28 12:05:00) [5]Удалено модератором
p (2015-02-28 08:31:00) [6]Удалено модератором
Гарик (2015-02-27 18:38:00) [7]Александр, огромное вам спасибо!!!
Rouse_ (2015-02-27 18:28:00) [8]Ну а дальше как обычно.
Кидаешь на форму 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:23:00) [9]Объявил ShellAPI.. А что дальше??
P.S.: Грешно смеяться над незнающими людьми (((
Smile (2015-02-27 18:21:00) [10]Удалено модератором
Rouse_ (2015-02-27 18:18:00) [11]Удалено модератором
DVM (2015-02-27 18:11:00) [12]
> Rouse_ © (27.02.15 18:10) [1]
не находит OpenDialog и ShellExecute :(
Rouse_ (2015-02-27 18:10:00) [13]if OpenDialog.Execute then
ShellExecute(параметрами OpenDialog.FileName )
| |
