Richard3000在吗？接着问个问题。(0分)

这是你刚才告诉我调出保存路径的对话框的代码，我试过了，很好用，正是我想要的，先谢谢了。
但我想问一下，这个对话框出来的时候，标题栏里显示的是中文“浏览文件夹”，怎样把
它改成英文的？谢谢！（没分了，不好意思）
procedure TForm1.DirBtnClick(Sender: TObject);
var
bi: TBrowseInfo;
pidl: pItemIdList;
strpath, displayname: string;
begin
SetLength (displayname, 100);
bi.hwndOwner := Handle;
bi.pidlRoot := nil;
bi.pszDisplayName := pChar (displayname);
bi.lpszTitle := 'Select a folder';
bi.ulFlags := bif_StatusText;
bi.lpfn := nil;
bi.lParam := 0;
pidl := ShBrowseForFolder (bi);
SetLength (strPath, 100);
ShGetPathFromIdList (pidl, PChar(strPath));
DirEdit.Text := strPath;
end;

其他大虾知道的也请告诉一声，谢谢了。

up

接受答案了.