Código Delphi [-]uses ... ShlObj function GetDesktopFolder: string; var Folder: array [0..MAX_PATH] of CHAR; begin SHGetSpecialFolderPath(0, @Folder[0], CSIDL_DESKTOPDIRECTORY, false); Result:= Folder; end;
uses ... ShlObj function GetDesktopFolder: string; var Folder: array [0..MAX_PATH] of CHAR; begin SHGetSpecialFolderPath(0, @Folder[0], CSIDL_DESKTOPDIRECTORY, false); Result:= Folder; end;