|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.07.2008, 09:21 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
04.07.2008, 10:05 | #3 |
Пользователь
Регистрация: 13.04.2007
Сообщений: 65
|
function SelectDirectory(AOwner : HWnd) : string;
var lpItemID : PItemIDList; BrowseInfo : TBrowseInfo; DisplayName : array[0..MAX_PATH] of Char; TempPath : array[0..MAX_PATH] of Char; begin FillChar(BrowseInfo, sizeof(TBrowseInfo), #0); BrowseInfo.hwndOwner := AOwner; BrowseInfo.pszDisplayName := @DisplayName; BrowseInfo.lpszTitle := 'Specify a directory'; BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; lpItemID := SHBrowseForFolder(BrowseInfo); if Assigned(lpItemId) then begin SHGetPathFromIDList(lpItemID, TempPath); GlobalFreePtr(lpItemID); end else Result := ''; Result := string(TempPath); end; |
04.07.2008, 12:39 | #4 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Сама функция:
Код:
Код:
|
04.07.2008, 16:06 | #5 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Вы чего человека таким листингом пугаете?))
Правильно Stilet писал. Вот пример: Код:
______________________ Можно и FileCtrl... Цитата:
Последний раз редактировалось zetrix; 04.07.2008 в 16:50. |
|
04.07.2008, 16:31 | #6 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
04.07.2008, 16:35 | #7 |
Форумчанин
Регистрация: 29.06.2008
Сообщений: 603
|
Если добавить QDialogs, а не Dialogs, то придется таскать за собой еще и qtinf.dll
|
04.07.2008, 16:52 | #8 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Мне кажется, что Stilet сообщает нам, что есть другая функция с такимже названием и если их перегрузить, то компилятор вызовет нужную.....
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
04.07.2008, 17:05 | #9 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
04.07.2008, 17:17 | #10 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
FaTaL, а что это за страшная функция? В нее случайно кнопочки/галочки свои нельзя добавить?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать диалог | F1kus | Общие вопросы Delphi | 13 | 21.08.2008 08:33 |
при открытии большого файла должно появляться окно с ProgressBar и показывать ход открытия | Михаил Юрьевич | Общие вопросы Delphi | 3 | 28.05.2008 23:33 |
Диалог | Михаил Юрьевич | Общие вопросы Delphi | 2 | 26.04.2008 22:35 |
Открытия графических файлов | Kocapb | Общие вопросы C/C++ | 3 | 01.12.2007 19:11 |