我找到了VB函数ShowPhotoPrintingWizard
:
CommonDialog.ShowPhotoPrintingWizard( _
ByVal Files As VARIANT _
) As HRESULT
如何在 Delphi 中调用它或获得等效功能?我正在使用德尔福 2010。
我找到了VB函数ShowPhotoPrintingWizard
:
CommonDialog.ShowPhotoPrintingWizard( _
ByVal Files As VARIANT _
) As HRESULT
如何在 Delphi 中调用它或获得等效功能?我正在使用德尔福 2010。
我认为单个文件可能是这样的:
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;