使用selectdirectory('选择文件夹','',s)打开选择文件夹对话框,怎么使对话框居中显示?

Question

一种 自已重做
一种 找到窗口的Handle再改变位置

Answer 1

函数本身没有提供控制位置的参数，只有到vcl源代码中去找了，
或者直接用shbrowserfolder这个api函数了

Answer 2

function SelectDirectory(handle:hwnd;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;
rt:pitemidlist;
initdir:pwidechar;
begin
result:=false;
lpbi.hwndOwner:=handle;
lpbi.lpfn:=nil;
lpbi.lpszTitle:=pchar(caption);
lpbi.ulFlags:=BIF_RETURNONLYFSDIRS+16;
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;
必须
uses ShellApi;

Answer 3

40Star(陪你去看--☆流星雨★) :
不是uses ShellAPI，是ShlObj 
用过Kingron写的这个函数，当时就因为没有找到这个单元无法编译。