文件名中含有逗号、引号、问号、书名号，如何打开pdf文件？

[xiongdingfu]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI,StrUtils;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
end;

//处理文件路径中带问号，逗号
s:=AnsiReplaceText(s,'？','"？"');//问号
s:=AnsiReplaceText(s,',','","');//逗号
s:=AnsiReplaceText(s,'，','"，"');//逗号

s:='"'+s+'"';//处理带空格的情况
ShellExecute(0, 'open', 'AcroRd32.exe', PChar(s), '', SW_SHOWMAXIMIZED);

end;

end.

为什么程序运行之后会出现下面的错误？

[lyhoo163]

1、保存文件时，尽可能地在文件名中，不要使用特殊字符； 2、文件名已经有（汉字双字节）符号，时直接用原文件名可以打开。 你的问题是，打开文件时，将原文件名中的双字节的符号，换成单字符的符号。修改了文件名。出现打开一个不存在的文件错误。

[lyhoo163]

procedure TForm1.Button2Click(Sender: TObject);
var  s:string;
begin
  if OpenDialog1.Execute then
  begin
  ShellExecute(0, 'open', 'AcroRd32.exe', PChar(OpenDialog1.FileName), '', SW_SHOWMAXIMIZED);
  END;
end;