delphi - Windowsの写真印刷ウィザードを表示するにはどうすればよいですか？

Question

私はVB関数を見つけましたShowPhotoPrintingWizard：

CommonDialog.ShowPhotoPrintingWizard( _
  ByVal Files As VARIANT _
) As HRESULT

Delphiでそれを呼び出す、または同等の機能を取得するにはどうすればよいですか？Delphi2010を使用しています。

Answer 1

私はそれが単一のファイルに対してこのようになるかもしれないと思います：

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  CommDlg: OleVariant;
begin
  CommDlg := CreateOleObject('WIA.CommonDialog');
  CommDlg.ShowPhotoPrintingWizard('d:\Image.jpg');
end;

または、複数のファイルの場合も同様です。

procedure TForm1.Button1Click(Sender: TObject);
var
  Files: OleVariant;
  CommDlg: OleVariant;
begin
  CommDlg := CreateOleObject('WIA.CommonDialog');
  Files := CreateOleObject('WIA.Vector');
  Files.Add('d:\Image 1.jpg');
  Files.Add('d:\Image 2.jpg');
  CommDlg.ShowPhotoPrintingWizard(Files);
end;