Ver Mensaje Individual
  #5  
Antiguo 04-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita