6 respuestas en este tema

[edusalou]

Como aprendiz, me gustaría aportar mi granito de arena, a esos truquitos de Delphi que tanto echo en falta.
Para poder editar archivos INI u otros datos desde mi aplicación, si se encuentra instalada en Archivos de programa, resulta que tenía que acceder en modo administrador y/o añadir un manifiesto con privilegios de administrador. Podía acceder a las claves del registro HKLM para saber la ubicación de las carpetas del sistema Programfiles o Commonfiles. Pero yo quería guardar archivos de datos de mi programa en la carpeta ProgramData que para eso está.
Para ello utilizaba el componente ComputerInfo de las famosas JVCL, que me cargaba mucho la aplicación. Así que rascando dentro de este componente deduje esta función  que me va muy bien para detectar e instalar datos en la carpeta de ProgramData sin necesidad de tener que usar privilegios. La he probado con XE5 y Windows 8 y me funciona bien. Si alguien la quiere mejorar, seguro que lo agradeceremos todos. Bueno ahí va:

Añado la librería Winapi.ShlObj en las uses
Y genero la función:

delphi

function Tform1.RutaProgramData: string;
var
 FolderID: PItemIdList;
begin
  FolderID := nil;
  if Succeeded(SHGetSpecialFolderLocation(0, CSIDL_COMMON_APPDATA, FolderID)) then
  begin
    SetLength(result, 260); //->pongo a 260 de ancho y luego la recorto con trim
    if SHGetPathFromIdList(FolderID, PChar(result)) then //cogo la ruta y la pongo en result
      result:=trim(result) else result := ''; //-> o ExtractFilePath(ParamStr(0));
  end;
end;

Luego la llamo desde una varialble string del FormCreate o por ejemplo: showmessage(RutaProgramData);

[ELKurgan]

Gracias por el aporte, amigo

[escafandra]

Añadir que al código le falta:

delphi

uses ShlObj, ShFolder;

Y  queda perfecto.

Saludos.

[edusalou]

Puedo cambiar CSIDL_COMMON_APPDATA por todas estas carpetas especiales a las que se puedo acceder:
CSIDL_DESKTOP, CSIDL_INTERNET, CSIDL_PROGRAMS,
  CSIDL_PRINTERS, CSIDL_PERSONAL, CSIDL_FAVORITES,
  CSIDL_STARTUP, CSIDL_RECENT,
  CSIDL_SENDTO, CSIDL_BITBUCKET, CSIDL_STARTMENU,
  CSIDL_DESKTOPDIRECTORY, CSIDL_DRIVES, CSIDL_NETWORK,
  CSIDL_NETHOOD, CSIDL_FONTS, CSIDL_TEMPLATES,
  CSIDL_COMMON_STARTMENU, CSIDL_COMMON_PROGRAMS,
  CSIDL_COMMON_STARTUP, CSIDL_COMMON_DESKTOPDIRECTORY,
  CSIDL_APPDATA, CSIDL_PRINTHOOD,  CSIDL_ALTSTARTUP,
  CSIDL_COMMON_ALTSTARTUP, CSIDL_COMMON_FAVORITES,
  CSIDL_INTERNET_CACHE, CSIDL_COOKIES, CSIDL_HISTORY
Pero no encuentro la carpeta del usuario Appdata\Roaming para guardar ahí mis datos. Supongo que deberé detectarla desde el registro. ¿Hay otra forma de localizarla?

[edusalou]

Encontré la carpeta de datos del usuario: sólo cambiar CSIDL_COMMON_APPDATA por CSIDL_APPDATA
Y si la busco por el registro la función sería más o menos así:

delphi

function CarpetaUsuario : TFileName;
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell folders', false);
    result := ReadString('AppData');
    CloseKey;
  finally
    free;
  end;
end;

Saludos

[Delphius]

Estuve intrigado por el nombre de esa API. Por la sigla SH llegué a pensar que se trataba de una función de alguna biblioteca de terceros (en donde es habitual utilizar una sigla para nombrar sus unidades, clases y/o procedimientos).
Consulté en MSDN sobre dicha función y mi curiosidad fue el doble.
Aquí pueden ver que se advierte en que no es soportada, y que en un futuro será eliminada:

[SHGetSpecialFolderLocation is not supported and may be altered or unavailable in the future. Instead, use SHGetFolderLocation.]

Entonces me fijo en lo que dice sobre SHGetFolderLocation, y me doy con esto:

Deprecated. Retrieves the path of a folder as an ITEMIDLIST structure.

Marcada como desatendida.

Y más abajo hay una sección de notas que se lee:

Note  As of Windows Vista, this function is merely a wrapper for SHGetKnownFolderIDList. The CSIDL value is translated to its associated KNOWNFOLDERID and SHGetKnownFolderIDList is called. New applications should use the known folder system rather than the older CSIDL system, which is supported only for backward compatibility.

The SHGetFolderLocation, SHGetFolderPath, SHGetSpecialFolderLocation, and SHGetSpecialFolderPath functions are the preferred ways to obtain handles to folders on systems earlier than Windows Vista. Functions such as ExpandEnvironmentStrings that use the environment variable names directly, in the form %VariableName%, may not be reliable.

This function is a superset of SHGetSpecialFolderLocation, included with earlier versions of the Shell.

Se lee entonces que para Vista+ es aconsejable utilizar directamente SHGetKnownFolderIDList ya que SHGetFolderLocation no es más que un "envoltorio" de ésta, y se mantiene por compatibilidad. Nomás. Sólo para entornos Anteriores a Vista es una vía segura y preferible utilizar la API que ha comentado edusalou en su código.

Si es así como dice la documentación, entonces es una pura casualidad de que funcione Windows 8.
La verdad es que no entiendo.

Saludos,

[escafandra]

Si es así como dice la documentación, entonces es una pura casualidad de que funcione Windows 8.
La verdad es que no entiendo.

Si, delphius, es habitual encontrar esas cosas en M$. Muchas APIs son obsoletas pero siguen funcionando a la perfección 

Saludos.