Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=26)
-   -   Crear un acceso directo a una aplicion desde MS-DOS (https://www.clubdelphi.com/foros/showthread.php?t=10427)

aram2r 19-05-2004 13:24:09

Crear un acceso directo a una aplicion desde MS-DOS
 
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 19-05-2004 16:07:20

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

roman 19-05-2004 17:14:59

Cita:

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


La franja horaria es GMT +2. Ahora son las 14:07:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi