Folder.

← →
ASoft (2004-12-10 12:05) [0]

Уважаемые мастера!
Не сочтите за труд, подскажите функцию открытия Change Folder в Windows.
До этого, я юзал компонент Disk Control.
Спасибо.

← →
Cosinus © (2004-12-10 12:15) [1]

Если я правильно понял вопрос, то...
uses ShellAPI, ShlObj; ... procedure TForm1.Button1Click(Sender: TObject); var TitleName : string; 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 := Form1.Handle; BrowseInfo.pszDisplayName := @DisplayName; TitleName := "Please specify a directory"; BrowseInfo.lpszTitle := PChar(TitleName); BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS; lpItemID := SHBrowseForFolder(BrowseInfo); if lpItemId <> nil then begin SHGetPathFromIDList(lpItemID, TempPath); ShowMessage(TempPath); GlobalFreePtr(lpItemID); end; end;

← →
ASoft (2004-12-10 12:39) [2]

Cosinus ©
Я как-то раз пробовал SHBrowseForFolder(), но что-то Delphi ругалась, щас не помню. Спасибо за инфу

← →
DiamondShark © (2004-12-10 12:53) [3]

> GlobalFreePtr(lpItemID);

Ни разу не так.

var
...
Malloc: IMalloc;
begin
...
SHGetMalloc(Malloc);
Malloc.Free(lpItemID);

MSDN, в принципе говорит, что:
>SHGetMalloc Function

--------------------------------------------------------------------------------

Not currently supported.

Remarks

This function should no longer be used. Use the CoTaskMemFree and CoTaskMemAlloc functions in its place.

Folder. Найти похожие ветки