Crear un acceso directo a una aplicion desde MS-DOS

[aram2r]

Hola me gustaria saber si es posible crear un acceso directo desde MS-DOS...y como claro...Si es posible, como logro ponerlo en el escritorio??? Como obtengo la ruta del escritorio del actual usuario..??? Gracias.

[delphi.com.ar]

¿Que significa desde DOS?... ¿En qué compilarás tu aplicación o que creará este acceso directo?

[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