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

[[escafandra]]

Aporto mi granito de arena:

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;

Saludos.