ich habe lange gesucht, um das Default-Verzeichnis für den Adobe Acrobat Distiller einzustellen
und Adobe mit Parametern zu starten, möchte ich die Lösung hier zeigen:
Einstellen des Default-Verzeichnisses
(Beispiel: C:\ für das Programm Project1.exe)
Delphi-Quellcode:
uses registry
procedure TForm1.Button1Click(Sender: TObject);
var
regist: TRegistry;
begin
regist := TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
if regist.OpenKey('Software\Adobe\Acrobat Distiller\PrinterJobControl', true) then begin
regist.WriteString('LastPdfPortFolder - ' + ExtractFileName(paramstr(0)) ,'C:');
//oder so: regist.WriteString('LastPdfPortFolder - Project1.exe') ,'C:');
end;
finally
regist.free;
inherited;
end;
end;
Mit Adobe PDF-Dateien ausdrucken:
ohne Parameter: Datei in Adobe nur anzeigen
/p : Adobe gleich mi Printerdialog starten
/p /h : im Hintergrund drucken ohne Dialog
Delphi-Quellcode:
uses ShellApi
ShellExecute(Application.Handle, 'open', pchar('C:\Programme\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe'),
pChar(' /p /h ' + 'C:\Test.pdf'), nil, SW_SHOWNORMAL);
Viel Spass
Ralf