function GetSpecialFolder
 

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!

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;

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.
En este enlace encontrarás el código para implementarla.

Saludos.

probare esa funcion
gracias saludos!!