Bonjour,

Je souhaite utiliser l'assistant Photograhie Windows pour imprimer des photos sélectionnées via mon programme.
J'ai réussi, avec l'aide de NABIL74 de le faire sous Delphi.
La discussion se trouvant ici

Voici le code de NABIL74 (merci à lui) :
Code delphi : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses ActiveX, ComObj, StdCtrls;
 
procedure ShowPhotoPrintWizard(Files: TStringList);
var
  I: Integer;
  CommonDialog: OleVariant;
  Vector: OleVariant;
begin
  if not Assigned(Files) then
    Exit;
  CommonDialog := CreateOleObject('WIA.CommonDialog');
  Vector := CreateOleObject('WIA.Vector');
  for I := 0 to Files.Count - 1 do
    Vector.Add(Files[i]);
  CommonDialog.ShowPhotoPrintingWizard(Vector);
  Vector := Unassigned;
  CommonDialog := Unassigned;
end;

Utilisation :
Code delphi : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var
   List: TStringList;
begin
   List := TStringList.Create;
   with List do
   try
     Append('D:\image 3.jpg');//la 1ère photo
     Append('D:\4.jpg');//la 2ème photo
     ShowPhotoPrintWizard(List);
   finally
     Free;
   end;
end;

Je n'arrive pas à invoquer CommonDialog et Vector
Quelqu'un peut-il m'aiguiller ?

Merci