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]

Como obtengo la ruta del escritorio del actual usuario..???

Para Windows 2000


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:


uses
ShlObj;

function GetDesktopFolder: String;
var
Buffer: array[0..MAX_PATH] of Char;

begin
ShGetSpecialFolderPath(0, Buffer, CSIDL_DESKTOPDIRECTORY, false);
Result := Buffer;
end;


// Saludos