Crear un acceso directo a una aplicion desde MS-DOS

[roman]

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