Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
Вниз
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);
← →
VMcL © (2004-12-10 12:58) [4]MSDN, в принципе говорит, что:
>SHGetMalloc Function
--------------------------------------------------------------------------------
Not currently supported.
Remarks
This function should no longer be used. Use the CoTaskMemFree and CoTaskMemAlloc functions in its place.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c
