SHBrowseForFolder爆了

[visual_cjiajia]

我要调用SHBrowseForFolder来弹出特殊的文件夹窗体;
编译时没问题； 但程序运行到pidl:=SHBrowseForFolder(selectwin);
时DELPHI一直报错，请教一下错在哪里了*_*？

uses shlobj;

var
selectwin:TBrowseInfo;
pidl:PItemIDList;
itemid:integer;
begin
selectwin.hwndOwner :=form1.Handle ;
itemid:=0;
SHGetSpecialFolderLocation(form1.Handle,itemid,pidl);

selectwin.pidlRoot := pidl;
selectwin.lpszTitle :=PAnsiChar('浏览文件夹');
selectwin.ulFlags := BIF_RETURNONLYFSDIRS;

pidl:=SHBrowseForFolder(selectwin);//一直报错EAccessVoilation Error
end;

[lxpbuaa]

SHBrowseForFolder需要一个回调函数，可以这样写：

function BrowseCallbackProc(H: HWND; uMsg: Cardinal; lParam, lpData: Integer): Integer;
stdcall;
begin
//
end;

调用SHBrowseForFolder前加一句：
selectwin.lpfn := BrowseCallbackProc;


—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————