![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#2
|
||||
|
||||
|
Можно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('C:\\expl.exe',SW_SHOWNORMAL);
end;Можно ещё и так (в uses добавь ShellAPI): Код:
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,'Open','C:\\expl.exe',nil,nil,SW_SHOWNORMAL); end; |