Cita:
Empezado por aram2r
Como obtengo la ruta del escritorio del actual usuario..???
|
Para Windows 2000
Código Delphi
[-]
uses
ShFolder, ShlObj;
const
SHGFP_TYPE_CURRENT = 0;
function GetDesktopFolder: String;
var
Buffer: array[0..MAX_PATH] of Char;
begin
ShGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, SHGFP_TYPE_CURRENT, Buffer);
Result := Buffer;
end;
Para otros Windows:
Código Delphi
[-]
uses
ShlObj;
function GetDesktopFolder: String;
var
Buffer: array[0..MAX_PATH] of Char;
begin
ShGetSpecialFolderPath(0, Buffer, CSIDL_DESKTOPDIRECTORY, false);
Result := Buffer;
end;
// Saludos