Código Delphi [-] (...) var buffer: array[0..MAX_PATH] of Char; begin SetLength(buffer, MAX_PATH); SHGetSpecialFolderPath(GetCurrentProcess, buffer, NumeroDirectorio(directorio), crear); Result := buffer; end;
(...) var buffer: array[0..MAX_PATH] of Char; begin SetLength(buffer, MAX_PATH); SHGetSpecialFolderPath(GetCurrentProcess, buffer, NumeroDirectorio(directorio), crear); Result := buffer; end;