Comment afficher l'assistant d'impression de photos Windows?

Question

Je trouve la fonction VB ShowPhotoPrintingWizard:

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

Comment appeler cela ou obtenir des fonctionnalités équivalentes dans Delphi? J'utilise Delphi 2010.

Answer 1

Je pense qu'il pourrait être de cette façon pour un seul fichier:

uses 
    ComObj; 

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

Ou le même pour les fichiers multiples:

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;