delphi中关于ShellExecute打开文件所在的位置（处理文件名中有逗号，单引号问题）

在delphi中，引用ShellAPI单元，可以用shellexecute方法 打开文件所在的位置并且定位到文件，但是在文件名种含有逗号（中，英文输入法）或者有单引号（英文输入法）的时候，会提示找不到文件所在的位置。这是需要把文件的路径处理下，即可。代码如下，仅供参考：本人用的delphiXE版本
// 处理含有逗号的方法
function TForm1.TeShuFileName(FFilename: string): string;
var
  i:Integer;
  newfilename:string;
begin
   for i := 1 to Length(FFilename) do
   begin
      if (FFilename[i]=',') or (FFilename[i]='，') then
          newfilename :=newfilename +'"'+FFilename[i]+'"'
      else
        newfilename :=newfilename+FFilename[i];

   end;
   Result :=newfilename;
end;
 //以下是使用
procedure TForm1.Button2Click(Sender: TObject);
var
  str:string;
begin
  if OpenDialog1.Execute then
  begin
    str:=OpenDialog1.FileName;
  end;
  str:=TeShuFileName(str);
   ShellExecute(Handle,    nil,    'Explorer.exe',    PChar(Format('/e,/select,%s',[str])),    nil,    SW_NORMAL);
end;