function GetSpecialFolder

[jonydread]

hola amigos junto con saludarles les pido una ayuda
tengo esta funcion que encontre buscando y no encuentro como aplicarla

Código Delphi [-]
function GetSpecialFolder(FolderID : longint) : string;
 var
 Path : pchar;
 idList : PItemIDList;
 begin
 GetMem(Path, MAX_PATH);
 SHGetSpecialFolderLocation(0, FolderID, idList);
 SHGetPathFromIDList(idList, Path);
 Result := string(Path);
 FreeMem(Path);
 end;
function GetMyDocDir: string;
 begin
 Result := GetSpecialFolder(CSIDL_PERSONAL);
 end;

quisiera poner mis documentos como carpeta inicial la coloco asi pero la verdad ni idea de como hacerla

Código Delphi [-]
    SelectDirectory(
    'Seleccione Carpeta', // Texto de la ventana
    'GetMyDocDir',  // Carpeta inicial
    Carpeta  // Carpeta seleccionada
  );

espero su ayuda
gracias!

[jonydread]

justo cuando me rendi y consulte, encontre la solucion solo debia sacar las comillas de GetMyDocDir
lo dejo como aporte xD
la funcion

Código Delphi [-]
function GetSpecialFolder(FolderID : longint) : string;
 var
 Path : pchar;
 idList : PItemIDList;
 begin
 GetMem(Path, MAX_PATH);
 SHGetSpecialFolderLocation(0, FolderID, idList);
 SHGetPathFromIDList(idList, Path);
 Result := string(Path);
 FreeMem(Path);
 end;
function GetMyDocDir: string;
 begin
 Result := GetSpecialFolder(CSIDL_PERSONAL);
 end;

se aplica

Código Delphi [-]
procedure TForm1.btAddClick(Sender: TObject);
var
  Carpeta: String;
begin
    SelectDirectory(
    'Seleccione Carpeta', // Texto de la ventana
    GetMyDocDir,  // Carpeta inicial
    Carpeta  // Carpeta seleccionada
  );
end;

[ecfisa]

Hola jonydread.

Primero que nada gracias por compartir con nosotros la solución que encontraste.

Pero tal vez te convendría utilizar la función SHGetFolderLocation en su lugar, ya que Microsof desaconseja su uso como expone aqui: SHGetSpecialFolderLocation.

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

En este enlace encontrarás el código para implementarla.

Saludos.

[jonydread]

probare esa funcion
gracias saludos!!