05.01.2010, 23:06
|
 |
Активный
|
|
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
|
|
Код:
Uses ShellApi;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open','','Open','C:\Program Files',SW_SHOWNORMAL);
end; |