Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Программирование _ Обзор диска на Delphi

Автор: ILDAR_I Суббота, 11 Декабря 2004, 16:24

Здравствуйте, у меня следующая проблема. Когда вы вставляете диск с софтом, открывается меню, в нем есть кнопка "Обзор диска". Помогите сделать эту кнопку на Delphi. Искал в разделе, но ничего не нашел, искал в интернете тоже пусто. В справке, тоже не нашел. Подскажите где можно найти решение, или пример. Заранее спасибо!!!

Автор: mokc0der Воскресенье, 12 Декабря 2004, 21:07

ShellExecute(.,'explore',......) не помогает ?

Автор: Ekho Понедельник, 13 Декабря 2004, 23:29

ILDAR_I, ищи на панели компонент FileOpenDialog или FileSaveDialog
Делай кнопку
а далее при клике на кнопку вызываешь метод Execute у твоего компонента, ежели он вернул True, то из свойства FileName получешь имя и путь выбранного файла...
Все.

P.S. А я ещё люблю юзать набор компонентов RXLib

Автор: ILDAR_I Вторник, 14 Декабря 2004, 11:45

Спасибо за советы, я сделал через ShellExecute, надо попробовать и через FileOpenDialog, хотя используется та же функция. Вот пример, кому понадобиться:

ShellExecute(handle,'open','путь','NULL','NULL',SW_SHOWNORMAL); - для открытия в простом окне;
ShellExecute(handle,'explore','путь','NULL','NULL',SW_SHOWNORMAL); - для открытия с помощью проводника;

Не забудте в разделе Uses объявить ShellAPI;