3

したがって、基本的に、Adobe Reader で開くようにデフォルト設定されているウィンドウである PDF ファイルを開こうとしても、何も起こりません。デフォルトのプログラムを Internet Explorer に設定すると、動作します。

これが私のコードです

var
openDialog : TOpenDialog;    // Open dialog variable
begin
  openDialog := TOpenDialog.Create(self);
  openDialog.InitialDir := MaskEditLocation.Text;
  if openDialog.Execute then
   ShellExecute(Handle, PChar('Open'), PChar(openDialog.FileName), nil, nil,
   SW_SHOWNORMAL);
  openDialog.Free;
end;

何か案は？

助けてくれてありがとう！

4

1 に答える 1

20

openアプリケーションがorのような特定の動詞を登録したと思い込まないでくださいrun。デフォルトの動作が必要な場合は、動詞を空のままにして、Windows に決定させます。

ShellExecute(Handle, nil, PChar(OpenDialog.FileName), nil,  nil, SW_SHOWNORMAL);
于 2012-06-01T20:24:46.143 に答える