Obtener el Path de TEMP de windows sin ~

[apicito]

Necesito obtener el path del directorio temporal de un usuario de windows, tanto 98 como xp, pero todas las opciones que he probado me resume los directorios con el caracter ~. Por ejemplo: C:\DOCUME~1\luis\CONFIG~1\Temp\

He probado esto:

function TDatos.GetWindowsTemp(): String;
var
  Path: array[0..MAX_PATH] of Char;
begin
  GetTempPath(SizeOf(Path), Path);
  Result:=Path;
end;

y esto

  Result := IncludeTrailingPathDelimiter(GetEnvironmentVariable('TEMP'));

Sin conseguir el path real.
Un saludo.

[dec]

Hola,

Bueno. Lo que obtienes es la "ruta corta" del archivo, y creo que debería funcionarte igualmente. Pero, de todos modos... Hace poco me ví en la necesidad de obtener los directorios del sistema, y, aunque ya había hecho algo así, esta vez fui un poco más allá y con la unidad que adjunto, como verás, pueden obtenerse directorios de hasta Windows Vista.

Si no quieres usar toda la unidad, quédate con cómo se lleva a cabo lo que precisas, o, en defintiva, haz los cambios que creas oportunos:

Código Delphi [-]
{
 **************************************************************************** 
    Copyright (C) 2007  David Esperalta Calderón
    
    Usa este código como mejor te parezca. Considéralo bajo una licencia libre.
 ****************************************************************************
}

unit USHFolderEx;

interface

uses
  Windows;

type
  TSHFolderEx = class(TObject)
  public
    class function DirectorioSistema(csidl: integer; forzarCreacion: boolean): string;
  end;

const
 CSIDL_FLAG_CREATE = $8000;
 { Version 5.0. Combine this CSIDL with any of the following CSIDLs 
   to force the creation of the associated folder. }

 CSIDL_ADMINTOOLS = $0030;
 { Version 5.0. The file system directory that is used to store
   administrative tools for an individual user. The Microsoft Management
   Console (MMC) will save customized consoles to this directory, and it
   will roam with the user. }

 CSIDL_ALTSTARTUP = $001d;
 { The file system directory that corresponds to the user's nonlocalized
   Startup program group. }

 CSIDL_APPDATA = $001a;
 { Version 4.71. The file system directory that serves as a common
   repository for application-specific data. A typical path is C:\Documents
   and Settings\username\Application Data. This CSIDL is supported by the
   redistributable Shfolder.dll for systems that do not have the Microsoft
   Internet Explorer 4.0 integrated Shell installed. }

 CSIDL_BITBUCKET = $000a;
 { The virtual folder containing the objects in the user's Recycle Bin. }

 CSIDL_CDBURN_AREA = $003b;
 { Version 6.0. The file system directory acting as a staging area for files
   waiting to be written to CD. A typical path is C:\Documents and Settings\
   username\Local Settings\Application Data\Microsoft\CD Burning. }

 CSIDL_COMMON_ADMINTOOLS = $002f;
 { Version 5.0. The file system directory containing administrative tools
   for all users of the computer. }

 CSIDL_COMMON_ALTSTARTUP = $001e;
 { The file system directory that corresponds to the nonlocalized Startup
   program group for all users. Valid only for Microsoft Windows NT systems. }

 CSIDL_COMMON_APPDATA = $0023;
 { Version 5.0. The file system directory containing application data for
   all users. A typical path is C:\Documents and Settings\All Users\
   Application Data. }

 CSIDL_COMMON_DESKTOPDIRECTORY = $0019;
 { The file system directory that contains files and folders that appear on
   the desktop for all users. A typical path is C:\Documents and Settings\All
   Users\Desktop. Valid only for Windows NT systems. }

 CSIDL_COMMON_DOCUMENTS = $002e;
 { The file system directory that contains documents that are common to all
   users. A typical paths is C:\Documents and Settings\All Users\Documents.
   Valid for Windows NT systems and Microsoft Windows 95 and Windows 98
   systems with Shfolder.dll installed. }

 CSIDL_COMMON_FAVORITES = $001f;
 { The file system directory that serves as a common repository for favorite
   items common to all users. Valid only for Windows NT systems. }

 CSIDL_COMMON_MUSIC = $0035;
 { Version 6.0. The file system directory that serves as a repository for
   music files common to all users. A typical path is C:\Documents and
   Settings\All Users\Documents\My Music. }

 CSIDL_COMMON_PICTURES = $0036;
 { Version 6.0. The file system directory that serves as a repository for
   image files common to all users. A typical path is C:\Documents and
   Settings\All Users\Documents\My Pictures. }

 CSIDL_COMMON_PROGRAMS = $0017;
 { The file system directory that contains the directories for the common
   program groups that appear on the Start menu for all users. A typical
   path is C:\Documents and Settings\All Users\Start Menu\Programs. Valid
   only for Windows NT systems. }

 CSIDL_COMMON_STARTMENU = $0016;
 { The file system directory that contains the programs and folders that
   appear on the Start menu for all users. A typical path is C:\Documents
   and Settings\All Users\Start Menu. Valid only for Windows NT systems. }

 CSIDL_COMMON_STARTUP = $0018;
 { The file system directory that contains the programs that appear in the
   Startup folder for all users. A typical path is C:\Documents and Settings\
   All Users\Start Menu\Programs\Startup. Valid only for Windows NT systems. }

 CSIDL_COMMON_TEMPLATES = $002d;
 { The file system directory that contains the templates that are available
   to all users. A typical path is C:\Documents and Settings\All Users\
   Templates. Valid only for Windows NT systems. }

 CSIDL_COMMON_VIDEO = $0037;
 { Version 6.0. The file system directory that serves as a repository for
   video files common to all users. A typical path is C:\Documents and
   Settings\All Users\Documents\My Videos. }

 CSIDL_COMPUTERSNEARME = $003d;
 { The folder representing other machines in your workgroup. }

 CSIDL_CONNECTIONS = $0031;
 { The virtual folder representing Network Connections, containing network
   and dial-up connections. }

 CSIDL_CONTROLS = $0003;
 { The virtual folder containing icons for the Control Panel applications. }

 CSIDL_COOKIES = $0021;
 { The file system directory that serves as a common repository for
   Internet cookies. A typical path is C:\Documents and Settings\
   username\Cookies. }

 CSIDL_DESKTOP = $0000;
 { The virtual folder representing the Windows desktop, the root
   of the namespace. }

 CSIDL_DESKTOPDIRECTORY = $0010;
 { The file system directory used to physically store file objects on the
   desktop (not to be confused with the desktop folder itself). A typical
   path is C:\Documents and Settings\username\Desktop. }

 CSIDL_DRIVES = $0011;
 { The virtual folder representing My Computer, containing everything on
   the local computer: storage devices, printers, and Control Panel. The
   folder may also contain mapped network drives. }

 CSIDL_FAVORITES = $0006;
 { The file system directory that serves as a common repository for the
   user's favorite items. A typical path is C:\Documents and Settings\
   username\Favorites. }

 CSIDL_FLAG_DONT_UNEXPAND = $2000;
 { Combine with another CSIDL constant to ensure expanding of
   environment variables. }

 CSIDL_FLAG_DONT_VERIFY = $4000;
 { Combine with another CSIDL constant, except for  CSIDL_FLAG_CREATE,
   to return an unverified folder path—with no attempt to create or
   initialize the folder. }

 CSIDL_FONTS = $0014;
 { A virtual folder containing fonts. A typical path is C:\Windows\Fonts. }

 CSIDL_HISTORY = $0022;
 { The file system directory that serves as a common repository for Internet
  history items. }

 CSIDL_INTERNET = $0001;
 { A viritual folder for Internet Explorer (icon on desktop). }

 CSIDL_INTERNET_CACHE = $0020;
 { Version 4.72. The file system directory that serves as a common
   repository for temporary Internet files. A typical path is C:\Documents
   and Settings\username\Local Settings\Temporary Internet Files. }

 CSIDL_LOCAL_APPDATA = $001c;
 { Version 5.0. The file system directory that serves as a data repository
   for local (nonroaming) applications. A typical path is C:\Documents and
   Settings\username\Local Settings\Application Data. }

 CSIDL_MYDOCUMENTS = $000c;
 { Version 6.0. The virtual folder representing the My
   Documents desktop item. }

 CSIDL_MYMUSIC = $000d;
 { The file system directory that serves as a common repository for
   music files. A typical path is C:\Documents and Settings\User\My
   Documents\My Music. }

 CSIDL_MYPICTURES = $0027;
 { Version 5.0. The file system directory that serves as a common
   repository for image files. A typical path is C:\Documents and
   Settings\username\My Documents\My Pictures. }

 CSIDL_MYVIDEO = $000e;
 { Version 6.0. The file system directory that serves as a common
   repository for video files. A typical path is C:\Documents and
   Settings\username\My Documents\My Videos. }

 CSIDL_NETHOOD = $0013;
 { A file system directory containing the link objects that may exist
   in the My Network Places virtual folder. It is not the same as
   CSIDL_NETWORK, which represents the network namespace root. A typical
   path is C:\Documents and Settings\username\NetHood. }

 CSIDL_NETWORK = $0012;
 { A virtual folder representing Network Neighborhood, the root of the
   network namespace hierarchy. }

 CSIDL_PERSONAL = $0005;
 { Version 6.0. The virtual folder representing the My Documents desktop
   item. This is equivalent to  CSIDL_MYDOCUMENTS.
   Previous to Version 6.0. The file system directory used to physically
   store a user's common repository of documents. A typical path is
   C:\Documents and Settings\username\My Documents. This should be
   distinguished from the virtual My Documents folder in the namespace.
   To access that virtual folder, use SHGetFolderLocation, which returns
   the ITEMIDLIST for the virtual location, or refer to the technique
   described in Managing the File System. }


 CSIDL_PHOTOALBUMS = $0045;
 { Windows Vista. The virtual folder used to store photo albums,
   typically username\My Pictures\Photo Albums. }

 CSIDL_PLAYLISTS = $003f;
 { Windows Vista. The virtual folder used to store play albums,
   typically username\My Music\Playlists. }

 CSIDL_PRINTERS = $0004;
 { The virtual folder containing installed printers. }

 CSIDL_PRINTHOOD = $001b;
 { The file system directory that contains the link objects that can
   exist in the Printers virtual folder. A typical path is C:\Documents
   and Settings\username\PrintHood. }

 CSIDL_PROFILE = $0028;
 { Version 5.0. The user's profile folder. A typical path is C:\Documents
   and Settings\username. Applications should not create files or folders
   at this level; they should put their data under the locations referred
   to by  CSIDL_APPDATA or  CSIDL_LOCAL_APPDATA. }

 CSIDL_PROGRAM_FILES = $0026;
 { Version 5.0. The Program Files folder. A typical path is
   C:\Program Files. }

 CSIDL_PROGRAM_FILES_COMMON = $002b;
 { Version 5.0. A folder for components that are shared across
   applications. A typical path is C:\Program Files\Common. Valid
   only for Windows NT, Windows 2000, and Windows XP systems. Not
   valid for Windows Millennium Edition (Windows Me). }

 CSIDL_PROGRAMS = $0002;
 { The file system directory that contains the user's program groups
   (which are themselves file system directories). A typical path is
   C:\Documents and Settings\username\Start Menu\Programs. }

 CSIDL_RECENT = $0008;
 { The file system directory that contains shortcuts to the user's most
   recently used documents. A typical path is C:\Documents and Settings\
   username\My Recent Documents. To create a shortcut in this folder, use
   SHAddToRecentDocs. In addition to creating the shortcut, this function
   updates the Shell's list of recent documents and adds the shortcut to
   the My Recent Documents submenu of the Start menu. }

 CSIDL_RESOURCES = $0038;
 { Windows Vista. The file system directory that contains resource data.
   A typical path is C:\Windows\Resources. }

 CSIDL_SAMPLE_MUSIC = $0040;
 { Windows Vista. The file system directory that contains sample music.
   A typical path is C:\Documents and Settings\username\My Documents\
   My Music\Sample Music. }

 CSIDL_SAMPLE_PLAYLISTS = $0041;
 { Windows Vista. The file system directory that contains sample playlists.
   A typical path is C:\Documents and Settings\username\My Documents\My
   Music\Sample Playlists. }

 CSIDL_SAMPLE_PICTURES = $0042;
 { Windows Vista. The file system directory that contains sample pictures.
   A typical path is C:\Documents and Settings\username\My Documents\My
   Pictures\Sample Pictures. }

 CSIDL_SAMPLE_VIDEOS = $0043;
 { Windows Vista. The file system directory that contains sample videos.
   A typical path is C:\Documents and Settings\username\My Documents\My
   Videos\Sample Videos. }

 CSIDL_SENDTO = $0009;
 { The file system directory that contains Send To menu items. A typical
   path is C:\Documents and Settings\username\SendTo. }

 CSIDL_STARTMENU = $000b;
 { The file system directory containing Start menu items. A typical path
   is C:\Documents and Settings\username\Start Menu. }

 CSIDL_STARTUP = $0007;
 { The file system directory that corresponds to the user's Startup
   program group. The system starts these programs whenever any user
   logs onto Windows NT or starts Windows 95. A typical path is
   C:\Documents and Settings\username\Start Menu\Programs\Startup. }

 CSIDL_SYSTEM = $0025;
 { Version 5.0. The Windows System folder. A typical path is
   C:\Windows\System32. }

 CSIDL_TEMPLATES = $0015;
 { The file system directory that serves as a common repository for
   document templates. A typical path is C:\Documents and
   Settings\username\Templates. }

 CSIDL_WINDOWS = $0024;
 { Version 5.0. The Windows directory or SYSROOT. This corresponds to
   the %windir% or %SYSTEMROOT% environment variables. A typical
   path is C:\Windows. }

function SHGetSpecialFolderPath(Handle: HWND; Path:
 PChar; Folder: Integer; Create: Bool): BOOL; stdcall;

implementation

uses
  SysUtils;

function SHGetSpecialFolderPath; external
 'Shell32.dll' Name 'SHGetSpecialFolderPathA';

{ TSHFolderEx }

class function TSHFolderEx.DirectorioSistema(
 csidl: integer; forzarCreacion: boolean): string;
var
  buffer: array[0..MAX_PATH] of char;
begin
  if forzarCreacion then
    csidl := csidl or CSIDL_FLAG_CREATE;
  if SHGetSpecialFolderPath(GetActiveWindow(),buffer,csidl,false) then
    result := IncludeTrailingPathDelimiter(buffer)
  else
    result := '';
end;

end.

Nota: He quitado dos métodos a métodos a la clase que ves: "CSIDLToString" y "StringToCDIDL", puesto que los veo muy específicos para mi proyecto. Si los necesitas no tienes sino decirlo.

[dec]

Hola,

Por cierto, esto también puede interesarte: ...convert a short path in a long one?.

[Ñuño Martínez]

Es curioso, pero estaba a punto de hacer casi exáctamente la misma pregunta que el compañero apicito.

Ya he copiado el código para utilizarlo.

Gracias a ambos.

[apicito]

Gracias dec. He utilizado la primera opción de este modo me queda implementada la posibilidad futura de obtener otros paths.
Un saludo.

[Xypher]

Gran aporte... simplemente genial.