ShellTreeView где ты?

[Прик]

В моей Д2010 не существует компонента ShellTreeView. На нем в Д7 строил диалог выбора папок. Теперь вот нету и куды бечь?

Может кто подскажет где его взять.
Или наведет на диалог выбора папок. Не на того уродца, который в стиле Win 3.1 (он то как раз есть в палитре компонентов), а посимпатичнее чего-нибудь.

[Silver_S]

Я делал так

uses ShlObj;
procedure CoTaskMemFree(pv: Pointer); stdcall;
  external 'ole32.dll' name 'CoTaskMemFree';
function GetFolderPath: String;
var
  bi: TBrowseInfo;
  i: PitemIDList;
  p: pointer;
  buf: array [0..MAX_PATH-1] of char;
begin
  Result:='';
  ZeroMemory(@bi, SizeOf(bi));
  bi.hwndOwner:=Application.Handle;
  bi.lpszTitle:=PChar('Выбор каталога');
  bi.ulFlags:=BIF_RETURNONLYFSDIRS;
  i:=SHBrowseForFolder(bi);
  if i<>nil then
  begin
    if SHGetPathFromIDList(i, @buf) then
    begin
      Result:=buf;
      if (Length(Result)>0) and
        (Result[Length(Result)]<>'\') then
        Result:=Result+'\';
    end;
    CoTaskMemFree(i);
  end;
end;

[Alter]

Это можно заменить

  if SHGetPathFromIDList(i, @buf) then
  begin
    Result:=buf; 
    if (Length(Result)>0) and (Result[Length(Result)]<>'\') then
      Result:=Result+'\';
  end;

на

  if SHGetPathFromIDList(i, @buf) then
  begin
    Result:=buf; 
    if Length(Result) > 0 then
      Result := IncludeTrailingBackslash(Result);
  end;

[Silver_S]

Скопировал со старого исходника не задумываясь... Тут кажется утечка памяти. попозже постараюсь исправить.

Исправил

[volod3000]

Поставьте Alphacontrols, там есть TsShellTreeView

[Alter]

Можно и компонентами JEDI VCL. TJvBrowseForFolderDialog со вкладки Jv Dialogs. Можно полностью настроить вид.

Установка:
0. Delphi закрыт, не запущен
1. после скачивания архива распаковать содержимое в каталог с путем из латинских символов
2. зайти в папку jsl и запустит Install.bat, следовать инструкции инсталлятора.
3. после удачной установки содержимого из jsl, зайти в папку jvcl и запустите Install.bat, следовать инструкции инсталлятора.
4. Установка завершена.