Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2009, 22:08   #1
Sk!f
Пользователь
 
Аватар для Sk!f
 
Регистрация: 24.04.2008
Сообщений: 72
По умолчанию "Проводник" носителя

Здраствуйте! Помогите в вопросе:

Есть прорамма, которая помещена на флеш-носитель, настроен автозапуск этой проги. Какой можно прописать код в клике кнопки, чтобы открывался проводник этого носителя?
Работаем, работаем ...
Sk!f вне форума Ответить с цитированием
Старый 06.06.2009, 22:27   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Код:
Uses
   ShellApi;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open','',Nil,Nil,SW_SHOWDEFAULT);
End;

Или

Uses
   ShellApi;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open',PChar(ExtractFileDrive(ParamStr(0))),Nil,Nil,SW_SHOWDEFAULT);
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 06.06.2009, 22:31   #3
Sk!f
Пользователь
 
Аватар для Sk!f
 
Регистрация: 24.04.2008
Сообщений: 72
По умолчанию

Огромное спасибо!!!
Работаем, работаем ...
Sk!f вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
блок "cont" с права не принимает значение "margin: 10px;" которое описано в body tabikA HTML и CSS 5 24.02.2009 21:50
Под прикрытием "кризиса" наши доблестные "управители" хотят утопить нас в радиоактивных отходах mihali4 Свободное общение 1 17.01.2009 01:43
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 10:03