» Delphi: SelectDirectory() доп. фнкц. в виде создать катало

Всем доброе время суток,

Как можно заставить что бы у SelectDirectory() были следующие фишки:

1) Кнопки создать и удалить каталог
2) При открытии автоматом переходил на нужный каталог (который я укажу), как показано на ScreenShort-е



Заранее всем благодарен

п.с. Пытался воспользоваться другим вариантом этой же функции но без результата, в инете уже целый день ищу но тоже без результатов.

SHBrowseForFolder

Delphi6

Цитата:

Всем доброе время суток,

Как можно заставить что бы у SelectDirectory() были следующие фишки:

смотри тут, делается аналогично.
http://forum.ru-board.com/topic.cgi?forum=33&topic=5903#1

Цитата:

2) При открытии автоматом переходил на нужный каталог (который я укажу), как показано на ScreenShort-е

Если не найдешь, в понедельник дам код, делается фонарно, читай про флаги при создании и колбэк функцию, которая будет ставить нужный каталог.

Delphi6
Когда-то я делал так [more]
Код: var
d: String;

function BrowseCallbackProc(hwnd: HWND; uMsg: DWORD; lParam: Integer; lpData: Integer): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then begin
SendMessage(hwnd, BFFM_SETSELECTION, -1, Integer(PChar(d)))
end;
result := 0;
end;
//}
function SelectDir(const TitleName: String; var Dir: String): Boolean;
var
lpItemID: PItemIDList;
BrowseInfo: TBrowseInfo;
DisplayName: array[0..MAX_PATH] of char;
TempPath: array[0..MAX_PATH] of char;
begin
d := Dir;
FillChar( BrowseInfo, SizeOf( TBrowseInfo ), #0 );
BrowseInfo.hwndOwner := GetActiveWindow;
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.lpszTitle := PChar( TitleName );
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
BrowseInfo.lpfn := @BrowseCallbackProc;
lpItemID := SHBrowseForFolder( BrowseInfo );
result := lpItemId <> nil;
if result then
begin
SHGetPathFromIDList( lpItemID, TempPath );
Dir := IncludeTrailingPathDelimiter(TempPath);
GlobalFreePtr( lpItemID );
end;
end;

stusivanv
Спасибо интерестная функция

ShIvADeSt
Спасибо, ваш пост помог мне найти хорошое решение:
http://www.swissdelphicenter.ch/torry/showcode.php?id=1509


Добавлено:
FireZone
Спасибо, я часть твоего кода уже заюзал Надеюсь авторские права не нарушил