delphi 快速选择文件夹路径

uses ShlObj;

function FindFolder(Handle: THandle; Title: string = '请选择文件夹路径'): string;

var

lpItemID: PItemIDList;

BrowseInfo: TBrowseInfo;

DisplayName: array[0..MAX_PATH] of char;

TempPath: array[0..MAX_PATH] of char;

begin

Result := '';

FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);

BrowseInfo.hwndOwner := Handle;

BrowseInfo.pszDisplayName := @DisplayName;

BrowseInfo.lpszTitle := PChar(Title);

BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;

lpItemID := SHBrowseForFolder(BrowseInfo);

if lpItemId <> nil then//delphitop.com

begin

SHGetPathFromIDList(lpItemID, TempPath);

Result := TempPath;

GlobalFreePtr(lpItemID);

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Caption:=FindFolder(Self.Handle);

end;

推荐分享