ShowFileConversionDlg example for Delphi
procedure TForm1.ShowFileConversionDlgClick(Sender: TObject);
begin
LEADDlgFile1.Overwrite:= DLG_FILECONVERSION_OVERWRITE_SKIP;
LEADDlgFile1.FileFormatsCount:= 0;
LEADDlgFile1.DestinationPath:= 'c:\output';
LEADDlgFile1.UseLogReport:= True;
LEADDlgFile1.RemoveSourceFile:= False;
LEADDlgFile1.ShowFullPath:= True;
LEADDlgFile1.UseOriginalFolder:= True;
LEADDlgFile1.SourceFileList:= 'C:\images\Image1.jpg|C:\images\Image2.jpg|C:\images\Image3.jpg|C:\images\Image4.jpg|';
LEADDlgFile1.DlgFlags:= DLG_FILECONVERSION_SHOW_PREVIEW Or
DLG_FILECONVERSION_SHOW_LOADOPTIONS Or
DLG_FILECONVERSION_SHOW_FILEINFO Or
DLG_FILECONVERSION_SHOW_PREVIEW_PAGES Or
DLG_FILECONVERSION_SHOW_RESIZE Or
DLG_FILECONVERSION_SHOW_ROTATE Or
DLG_FILECONVERSION_SHOW_NAMINGTEMPLATE Or
DLG_FILECONVERSION_SHOW_OVERWRITE Or
DLG_FILECONVERSION_SHOW_OVERWRITE_ALL Or
DLG_FILECONVERSION_SHOW_ADD Or
DLG_FILECONVERSION_SHOW_ADDFOLDER Or
DLG_FILECONVERSION_SHOW_REMOVE Or
DLG_FILECONVERSION_SHOW_SELECTALL Or
DLG_FILECONVERSION_SHOW_DELETEORIGINAL;
LEADDlgFile1.ShowFileConversionDlg ( Self );
end;