¿Cómo puedo guardar el archivo directamente en el escritorio?

[darkbits]

hago revivir este hilo
como puedo guardar el archivo directamente en el escritorio? cual sera la direccion que tendria que colocar

Código Delphi [-]
frxPDFExport1.filename:='C:\respaldo\archivo1.PDF';

gracias

[[movorack]]

Pensaría que con System.Sysutils.GetEnvironmentVariable puedes obtener la ruta del escritorio.

Empezado por darkbits

Código Delphi [-]
// http://docwiki.embarcadero.com/Libra...onmentVariable
// https://en.wikipedia.org/wiki/Environment_variable
//'APPDATA'; //C:\Users\%UserName%\AppData\Roaming
//'LOCALAPPDATA'; //C:\Users\%UserName%\AppData\Local
//'USERPROFILE'; //C:\Users\%UserName%\

lPath := IncludeTrailingPathDelimiter(GetEnvironmentVariable('USERPROFILE')) + 'Desktop';

frxPDFExport1.filename:= lPath '\archivo1.PDF';

[darkbits]

Si me funciona, cuando escritorio esta en la unidad C, C:\Users\COMPUTER\Desktop pero cuando cambio de direccion escritorio por seguridad llevo a unidad D y en otras PC esta en E ejm. D:\Users\RAFAEL\Desktop NO me funciona siempre tiene que buscar la unidad C, y me tira un error.

como puedo solucionar ese detalle que siempre apunte a escritorio sin que este buscando en que unidad esta?

agradezco su ayuda

Empezado por movorack

Pensaría que con System.Sysutils.GetEnvironmentVariable puedes obtener la ruta del escritorio.

[Casimiro Notevi]

¿Y cómo creas un usuario en D: o en otra unidad? que yo recuerde pregunta el nombre del nuevo usuario pero no la unidad donde se alojará.

[darkbits]

vas a C:\Users\COMPU CLICK derecho ESCRITORIO y PROPIEDADES Y ahi le dices cambiar de ubicación y lo llevo a D o E
y termina D:\Users\Compu\Desktop y en delphi siempre busca c:\Users\Compu\Desktop

yo lo que necesito es que busque DESKTOP que estoy utilizando... sin importar en que unidad este almacenada .../../Compu\Desktop

mil disculpas si no me explique bien.

Empezado por Casimiro Notevi

¿Y cómo creas un usuario en D: o en otra unidad? que yo recuerde pregunta el nombre del nuevo usuario pero no la unidad donde se alojará.

[[movorack]]

¡Hola, darkbits!

En el registro de windows, las rutas de Desktop, Pesonal, Favorites, etc. Se almacenan en "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"

Aunque, la primera entrada de registro dice esto

"!Do not use this registry key Use the SHGetFolderPath or SHGetKnownFolderPath function instead"

Yo también muevo las ubicaciones de mis documentos, descargas y escritorio a otra unidad. Por lo tanto en esta llave tengo:

 
Personal=D:\Users\movorack\Documents
Desktop=D:\Users\movorack\Escritorio
My Pictures=D:\Users\movorack\Imágenes

Volviendo a la recomendación de Microsoft. En la VCL, la función SHGetFolderPath se encuentra en la unidad Winapi.SHFolder y con el código a continuación me muestra la ruta de mi escritorio.

Código Delphi [-]
unit Unit1;

interface

uses
  .. SHFolder;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function GetSpecialFolder(CSIDL: Integer; ForceFolder: Boolean = False): string;
    function getDesktopFolder: string;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin  
  ShowMessage(getDesktopFolder); //Resultado: D:\Users\movorack\Escritorio
end;

function TForm1.getDesktopFolder: string;
  const
    CSIDL_DESKTOP = $0000;
begin
  Result := GetSpecialFolder(CSIDL_DESKTOP);
end;

function TForm1.GetSpecialFolder(CSIDL: Integer; ForceFolder: Boolean): string;
CONST
  SHGFP_TYPE_CURRENT = 0;
VAR
  i: Integer;
begin
  SetLength(Result, Max_Path);
  if ForceFolder then
    ShGetFolderPath(0, CSIDL OR CSIDL_FLAG_CREATE, 0, 0, PChar(Result))
  else
    ShGetFolderPath(0, CSIDL, 0, 0, PChar(Result));

  i := Pos(#0, Result);
  if i > 0 then
    SetLength(Result, pred(i));

  Result := IncludeTrailingPathDelimiter(Result);
end;

end.