Umgebungsvariablen auflösen

[MrDevil]

Ich erhalte solche Pfadangaben von diversen Programmen

%ALLUSERSPROFILE% oder %APPDATA%

Wie kann ich diese "auflösen", so das ich den richtigen Pfad habe?

für %APPDATA% hät ich hier etwas gefunden aber %ALLUSERSPROFILE% nicht...

[TBx]

Ich gebs im zweifelsfall einfach in die Kommandozeile ein:

Start --> Ausführen --> %ALLUSERSPROFILE% ergibt z.B. unter XP Prof C:\Dokumente und Einstellungen\All Users.

Dies ist sicherlich nicht der professionellste Weg, ist aber praktikabel, wenn man den Pfad mal schnell auf seinem eigenen Rechner braucht.

Hope it helps a little bit

onlinekater

[MrDevil]

Ok sorry - natürlich möchte ich das mit meinem Programm erfahren!

[MrDevil]

Ok hat sich erledigt

http://www.swissdelphicenter.ch/torr...de.php?id=2277

[Tanne]

APPDATA kannst du zb. so aus der Registry lesen.

function GetAPPDATApath:String;
var
Reg : TRegistry;
begin
result:='';
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Volatile Environment\',True);
result:=Reg.ReadString('APPDATA');
Reg.CloseKey;
finally
Reg.Free;
end;
end;

[Robert Marquardt]

Die JCL hat dazu natuerlich auch Funktionen.

[Christian Seehase]

Moin Robert,

Zitat:

Zitat von Robert Marquardt

Die JCL hat dazu natuerlich auch Funktionen.

Delphi auch ;-)

Delphi-Quellcode:

  ShowMessage(GetEnvironmentVariable('ALLUSERSPROFILE'));

[TKC]

In der JCL wirds so gemacht:

Delphi-Quellcode:

function ExpandEnvironmentVar(var Value: string): Boolean;
var
  R: Integer;
  Expanded: string;

begin
  SetLength(Expanded, 1);
  R := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), 0);
  SetLength(Expanded, R);
  Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R) <> 0;
  if Result then
  begin
    SetLength(Expanded, StrLen(PChar(Expanded)));
    Value := Expanded;
  end;
end;

[marabu]

Hier noch eine Sparversion: klick

Grüße vom marabu