профиль пользователя

[grigoreo]

Уважаемые форумчане подскажите кто как кросплатформенно опеределяет профиль пользователя(в смысле путь до его домашней папки)?

[coyot.rush]

Я делаю так

Код: Выделить всё

function get_home_path():string;
var
home:string;
begin
{$IFDEF LINUX}
Home:=GetEnvironmentVariable('HOME');
if home<>'' then
result:=home;
else
Result:= '';
{$ENDIF}
{$ifdef windows}
SetLength(home,MAX_PATH);
if shfolder.SHGetFolderPath(0,CSIDL_LOCAL_APPDATA,0,0,PChar(home))=0 then
begin
Result=Pchar(home)
end
else
Result := ''; 
{$endif}
end;

[Padre_Mortius]

Код: Выделить всё

{$IFDEF LINUX}
Home:=GetEnvironmentVariable('HOME');
{$endif}
{$ifdef windows}
Home:=GetEnvironmentVariable('USERPROFILE')
{$endif}

[grigoreo]

Код: Выделить всё

{$IFDEF LINUX}
Home:=GetEnvironmentVariable('HOME');
{$endif}
{$ifdef windows}
Home:=GetEnvironmentVariable('USERPROFILE')
{$endif}

этот пример лаконично короткий)), возьмем его за основу , спасибо всем за советы

[alexs]

Для винды не забудь использовать функцию SysToUTF8 - чтобы потом небыло глупых вопрос про профиль с русскими буквами.