Funktion zum auflösen von Pfaden mit Umgebungsvariablen?

[Popov]

Danke. Hab gerade mit den Hausmitteln eine Alternative gebastelt, aber ich glaube deine Unit ist besser.

Delphi-Quellcode:

var
  EnvStrings: array[0..6] of String = ('ALLUSERSPROFILE', 'APPDATA', 'TEMP',
    'COMMONPROGRAMFILES', 'PROGRAMFILES', 'SYSTEMROOT', 'USERPROFILE');

function PathUnExpandEnvStrings2(Path: String): String;
var
  i, p: Integer;
  s: String;
begin
  Result := Path;

  for i := Low(EnvStrings) to High(EnvStrings) do
  begin
    p := Pos(UpperCase(GetEnvironmentVariable(EnvStrings[i])), UpperCase(Path));

    if p > 0 then
    begin
      Delete(Result, p, Length(GetEnvironmentVariable(EnvStrings[i])));
      Insert('%'+EnvStrings[i]+'%', Result, p);
      Exit;
    end;
  end;
end;

Ich glaube ich nehme deine Unit, die beinhaltet ja gleich beide Funktionen.

[shmia]

Die JCL macht das so (Unit JclSysInfo).
Auch keine schlechte Lösung; über den boolschen Resultwert erfährt man ob etwas expandiert wurde.

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
    StrResetLength(Expanded);
    Value := Expanded;
  end;
end;

[himitsu]

Nur daß der von der JCL wohl auch nicht wirklich Ahnung hatte.

[himitsu]

Oder wieso findete man das SetLength(Expanded, 1); dort?

Nja, und dann soll laut MSDN die ANSI-Version einen Bug haben (auch wenn er wohl spätestens im Win7 schon nicht mehr vorhanden zu sein scheint),
wonach dort der Buffer ein Byte größer sein muß.

Variante 1 nach MSDN-Vorgaben und möglichst direkt in den Zielpuffer (Result-String).
OK, abgesehn von dem Bugfix für's ANSI, aber FastMM wird die Speicherverwaltung optimieren und zu mindestens 99% nichts umkopieren.

Delphi-Quellcode:

function ExpandEnvironmentVars(var Value: string): Boolean;
var
  R: Integer;
  Expanded: string;
begin
  R := ExpandEnvironmentStrings(PChar(Value), nil, 0);
  if R = 0 then
    Exit(False);
  {$IFDEF UNICODE}
  SetLength(Expanded, R - 1);
  Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R) = R;
  {$ELSE}
  SetLength(Expanded, R);
  Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R + 1) = R;
  SetLength(Expanded, R - 1);
  {$ENDIF}
  if Result then
    Value := Expanded;
end;

Variante 1 ohne den Bugfix (für aktuellere Windowse):

Delphi-Quellcode:

function ExpandEnvironmentVars(var Value: string): Boolean;
var
  R: Integer;
  Expanded: string;
begin
  R := ExpandEnvironmentStrings(PChar(Value), nil, 0);
  if R = 0 then
    Exit(False);
  SetLength(Expanded, R - 1);
  Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R) = R;
  if Result then
    Value := Expanded;
end;

Variante 2 inkl. Bugfix und mit Zwischenpuffer auf'm Stack.

Delphi-Quellcode:

function ExpandEnvironmentVars(var Value: string): Boolean;
var
  Buffer: array[0..MAX_PATH] of Char;  // maximal 32 KB
  R: Integer;
begin
  R := ExpandEnvironmentStrings(PChar(Value), @Buffer, MAX_PATH {$IFDEF UNICODE}+ 1{$ENDIF});
  Result := (R > 0) and (R < MAX_PATH);
  if Result then
    SetString(Value, Buffer, R - 1);
end;

Da man die Umkehrfunktion sowieso nach Variante 2 bauen muß, könnte man Beides nach der gleichen Version deklarieren. (vorallem da es sich positiv auf den Bugfix auswirkt)