Convertir Jpeg a PDF durante el scaneo

[ecfisa]

Hola de nuevo.

Y si lo deseas hacer desde Delphi:

Código Delphi [-]
...
uses Registry;

procedure SetPDFCAutoSavePath(NewPath: string);
begin
  with TRegistry.Create do
  try
    NewPath := IncludeTrailingPathDelimiter(NewPath);
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\PDFCreator\Program', True) then
    begin
      if ReadString('AutosaveDirectory') <> NewPath then
        WriteString('AutosaveDirectory', NewPath);
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetPDFCAutoSavePath(Edit1.Text);
end;

Saludos

[shoulder]

Hola Gracias, funciono lo unico hice cambios porque la version 2.1 del pdfcreator es distinta, lo mas importante es la doble //.

Código Delphi [-]

 with TRegistry.Create do
  try
    NewPath := 'c:\\control\\factura';
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\PDFCreator.net\settings\ConversionProfiles\0', True) then
    begin
      WriteString('FileNameTemplate','fotografia');
    if OpenKey('\Software\PDFCreator.net\settings\ConversionProfiles\0\AutoSave', True) then
     begin
        WriteString('TargetDirectory', NewPath);
        WriteString('Enabled', 'True');
     end;     /
     CloseKey;
    end;
  finally
    Free;
  end;