为什么这样获取不了选择的目录路径 ( 积分: 50 )

procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;bi:&nbsp;TBrowseInfo;<br>&nbsp;&nbsp;pidl:&nbsp;pItemIdList;<br>&nbsp;&nbsp;strPath,CreatePath,displayname:&nbsp;string;<br>begin<br>&nbsp;&nbsp;SetLength&nbsp;(displayname,&nbsp;100);<br><br>&nbsp;&nbsp;bi.hwndOwner&nbsp;:=&nbsp;Handle;<br>&nbsp;&nbsp;bi.pidlRoot&nbsp;:=&nbsp;nil;<br>&nbsp;&nbsp;bi.pszDisplayName&nbsp;:=&nbsp;pChar&nbsp;(displayname);&nbsp;//是用来取得文件名的<br>&nbsp;&nbsp;bi.lpszTitle&nbsp;:=&nbsp;'选择文件夹';<br>&nbsp;&nbsp;bi.ulFlags&nbsp;:=$0040;&nbsp;//对话框类型<br>&nbsp;&nbsp;bi.lpfn&nbsp;:=&nbsp;nil;<br>&nbsp;&nbsp;bi.lParam&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;pidl&nbsp;:=&nbsp;ShBrowseForFolder&nbsp;(bi);//取得目录(文件夹)名称<br>&nbsp;&nbsp;SetLength&nbsp;(strPath,&nbsp;100);<br>&nbsp;&nbsp;ShGetPathFromIdList&nbsp;(pidl,&nbsp;PChar(strPath));<br>&nbsp;&nbsp;CreatePath:='mkdir'+'&nbsp;'+&nbsp;string(strPath)&nbsp;+&nbsp;'&nbsp;'+'../';<br>&nbsp;&nbsp;Edit1.Text:=CreatePath;<br><br>end;<br><br><br><br>比如选择了&nbsp;C:/aa&nbsp;,那么Edit1上的文本应该是C:/aa../&nbsp;才是，但为什么还是C:/aa&nbsp;？<br><br><br>谢谢

后面再写一句：<br>Edit1.Text:=Edit1.Text+'../';

已经成了，谢谢<br><br>可为什么要这样写呢&nbsp;？能说说原因吗&nbsp;？

[]