TOpenDialog

← →
K.o.Z (2004-06-02 18:19) [0]

TOpenDialog для выбора директорий без VCL на Win32 API.
Как это осуществить?

← →
serge © (2004-06-02 18:22) [1]

SHBrowseForFolder

← →
WebErr © (2004-06-02 18:25) [2]

OPENFILENAME + WinSDK Help

function SelectFolder(Wnd: HWND; Text, Title: PChar; OutPutDir: string; ShowPath: Bool): string;
var
pidlRoot, resPIDL : PITEMIDLIST ;
tbi : TBrowseInfoA;
name, path : Array[0..max_path] of char;
begin
SHGetSpecialFolderLocation(wnd, CSIDL_DRIVES,PidlRoot);
tbi.pidlRoot := PidlRoot;
tbi.lpszTitle := title;
if (text <> nil) or showPath then tbi.ulFlags := BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT
else tbi.ulFlags := BIF_RETURNONLYFSDIRS;
tbi.lpfn:=nil;
tbi.hwndOwner:=wnd;
tbi.pszDisplayName:=name;;
ResPIDL:=SHBrowseForFolder(tbi);
if ResPIDL <> nil then
begin
SHGetPathFromIDList(ResPIDL,path);
Result:=Path;
end
else
Result:="";
end;

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