С# FolderBrowserDialog

[Troll]

В общем мне необходим диалог выбора папки. Согласно документации это он и есть. Но при его отображении я наблюдаю абсолютно чистое диалоговое окно с парой кнопок.
Код:

FolderBrowserDialog folderDialog = new FolderBrowserDialog();
folderDialog.ShowNewFolderButton = false;
folderDialog.RootFolder = Environment.SpecialFolder.Personal;
DialogResult result = folderDialog.ShowDialog();

Мб...кто знает что за нафиг?

[Messiah]

Сообщение от Troll

..кусь...Мб...кто знает что за нафиг?

А может так? Если title - заголовок диалога (поставить на свой вкус ), h - хэндл окна-владельца (то есть программы).

interface

uses
Windows, Messages, SysUtils, Classes, Controls, ShlObj;

type
TBrowseFolderDlg = class(TComponent)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
function BrowseFolder(title: PChar; h: hwnd): String;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Dialogs', [TBrowseFolderDlg]);
end;

function TBrowseFolderDlg.BrowseFolder(title: PChar; h: hwnd): String;
var
lpItemID: PItemIDList;
path: array[0..Max_path] of char; //выбранная папка
BrowseInfo: TBrowseInfo; //настройки диалога
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
SHGetSpecialFolderLocation(h,csidl_desktop,BrowseI nfo.pidlRoot);
//устанавливаем свойства диалогового окна
with BrowseInfo do begin
hwndOwner := h; //окно-владелец
lpszTitle := title; //заголовок диалога
//не показываем некоторые системные папки: "Корзина", "Панель управления" и т.д
ulFlags := BIF_RETURNONLYFSDIRS+BIF_EDITBOX+BIF_STATUSTEXT;
end;
//выводим диалог
lpItemID := SHBrowseForFolder(BrowseInfo);
//папка, указанная юзером, существует?
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, Path);
result:=path;
GlobalFreePtr(lpItemID); //освобождаем ресурсы
end;
end;

end.

[Troll]

Кхе-кхе....на делфе с использованием Api я знаю как сделать Вся загвозка в том, что под дотнет у мну приложение. Просмотрел кучу примеров, вроде усе правильно, да и ошибится там негде то. Во я и хз...

[Messiah]

Сообщение от Troll

Кхе-кхе....на делфе с использованием Api я знаю как сделать Вся загвозка в том, что под дотнет у мну приложение. Просмотрел кучу примеров, вроде усе правильно, да и ошибится там негде то. Во я и хз...

Мдя..вот и мне навскидку ничё в голову не приходит. Однако порассуждать да подумать надо...вроде как и ошибки нет.

[Messiah]

Сообщение от Troll

...кусь...Вся загвозка в том, что под дотнет у мну приложение. Просмотрел кучу примеров, вроде усе правильно, да и ошибится там негде то. Во я и хз...

Так решился вопрос с диалогом? Это же если я правильно помню сам .NET Framework содержит класс System.Windows.Forms.FolderBrowserDialog?

[Pitty]

Проверил, у меня в фреймворке 3.5 на висте работает без проблем.
Проверь, получает ли у тебя код доступ к это папке.
Когда отображается диалог, есть ли там хотя бы сам листбокс (или тривью, как он в дельфе назывался). В студии не помню как этот компонент называется.
Посмотри, может у тебя сам путь не существует (хотя парадокс, быть такого не могет). Может быть запускается от имени системы, поэтому и нет персонал. Но диалог в той форме как ты его запускаешь работает стопудово. Ща файлик приложу.
<Файл в приложении.>
Попробуй тестовый код написать из под юзера.
Кстати, у Scream есть компонентик (самописный), который сам строит дерево. Не такой красивый, как системный, зато точно работает. В) правда ему надо скормить структуру папок.

С вложением фигня какая-то - на диске файл нормально читабельный, 90 кб, как загружаю во вложение, он его нафига-то пережимает В( зачем, хздиалог.jpg

[Troll]

Сообщение от Pitty

Проверил, у меня в фреймворке 3.5 на висте работает без проблем.
Проверь, получает ли у тебя код доступ к это папке.
Когда отображается диалог, есть ли там хотя бы сам листбокс (или тривью, как он в дельфе назывался). В студии не помню как этот компонент называется.
Посмотри, может у тебя сам путь не существует (хотя парадокс, быть такого не могет). Может быть запускается от имени системы, поэтому и нет персонал.
Вложение 13488

В том то и дело, что нету даже лист бокса, вообще ни чего нету, кроме окна и кнопок ))) Пока эксперементировать времени небыло, найду в чем проблемма отпишусь!

[Ruble]

Сообщение от Troll

В общем мне необходим диалог выбора папки. Согласно документации это он и есть. Но при его отображении я наблюдаю абсолютно чистое диалоговое окно с парой кнопок.
Код:

FolderBrowserDialog folderDialog = new FolderBrowserDialog();
folderDialog.ShowNewFolderButton = false;
folderDialog.RootFolder = Environment.SpecialFolder.Personal;
DialogResult result = folderDialog.ShowDialog();

Мб...кто знает что за нафиг?

было у меня такое, это не ошибка в прграммировании, это ошибка самой библиотеки - мне помогла тупо переустановка фрэймворков и студии.