DirectoryExists('~') под линуксом - ошибка

[yozh]

Почему? Как ещё я должен определять home-каталог текущего юзера?

[yozh]

Сочинил чудовищный способ, который, однако, работает...

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

uses ...,Process;
...
var
 ...
 HProc:TProcess;
 HLines:TStringList;
 i:integer;
 UserDir:string;
begin
 ...
 HProc:=TProcess.Create(nil);
 HLines:=TStringList.Create;
 HProc.CommandLine:='bash -c set';
 HProc.Options:=HProc.Options+[poUsePipes,poWaitOnExit];
 HProc.Execute;
 HLines.LoadFromStream(HProc.Output);
 for i:=0 to HLines.Count-1 do
   if (Pos('HOME=',HLines.Strings[i])=1) then
     UserDir:=Copy(HLines.Strings[i],Pos('HOME=',HLines.Strings[i])+Length('HOME='),Length(HLines.Strings[i]));
 HLines.Free;
 HProc.Free;
 ...
end;

[Sergei I. Gorelkin]

Этот способ ведь читает переменные окружения...
А их можно читать и проще:

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

// специфично для FreePascal с использованием класса TCustomApplication
s := Application.EnvironmentVariable['HOME'];


или же

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

// вроде бы работает и в Delphi и во FreePascal
s := GetEnvironmentVariable('HOME');


[yozh]

OK, спасибо. Я до этого юзал Delphi 5 (делает маленькие exeшники - гораздо компактнее, чем 6), а там этого ещё не было.

[Alexander]

И не будет. Делфи ж в Вин. Там всё по другому (как, я уже и не интересовался, наверное есть АПИ).

А такой фокус будет (на предмет чтения окружения) работать будет в ДОСе, Вин и даже в Линуксе !

uses Dos;

begin

WriteLn(getenv('HOME'));

end.