如何顯示Windows照片打印嚮導？

Question

我發現VB功能ShowPhotoPrintingWizard：

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

如何調用或者在Delphi中得到等價的功能？我使用德爾福2010年

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;