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', 'GetMyDocDir', Carpeta );
espero su ayuda
gracias!