有没有哪个控件,既可以选择文件,也可能选择文件夹?Opendialog对话框只能选择文件,而不能选择文件夹.(100)

如题!

function SelectDirectory(handle: THandle;const Caption: string; const Root: WideString;out Directory: string): Boolean;var lpbi:_browseinfo; buf:array [0..MAX_PATH] of char; id:ishellfolder; eaten,att:cardinal; rtitemidlist; initdirwidechar;begin result:=false; lpbi.hwndOwner:=handle; lpbi.lpfn:=nil; lpbi.lpszTitle:=pchar(caption); lpbi.ulFlags:=BIF_RETURNONLYFSDIRS+64; SHGetDesktopFolder(id); initdir:=pwchar(root); id.ParseDisplayName(0,nil,initdir,eaten,rt,att); lpbi.pidlRoot:=rt; getmem(lpbi.pszDisplayName,MAX_PATH); try result:=shgetpathfromidlist(shbrowseforfolder(lpbi),buf); except freemem(lpbi.pszDisplayName); end; if result then directory:=buf;end;

to abin30你的只能选择目录吗?我既要选择目录,又要选择文件.

将abin30的代码与Opendialog综合在一块不就实现了吗？

有 你下载一个Rz控件就行了