Parsen von EnvironmentPath

[KodeZwerg]

Ich nutze eine Unit von Delphidabbler für Environment Parsing.
Wenn Dich das Interessieren sollte, hier ist der Link dahin.

[Jasocul]

Ich nutze überhaupt nicht die Environment-Variablen, sondern die API-Funktion SHGetSpecialFolderLocation.
Meine Funktion sieht so aus (irgendwo mal aus dem Internet gefischt und angepasst):

Delphi-Quellcode:

function GetSpecialPath(aCSIDL : Integer) : String;
var
  shellMalloc: IMalloc;
  ppidl: PItemIdList;
begin
  ppidl := nil;
  try
    if SHGetMalloc(shellMalloc) = NOERROR then
    begin
      SHGetSpecialFolderLocation(Application.Handle, aCSIDL, ppidl);
      SetLength(Result, MAX_PATH);
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then
      begin
        Result := '';
      end
      else
      begin
        SetLength(Result, lStrLen(PChar(Result)));
      end;
    end;
  finally
    if ppidl <> nil then
    begin
      shellMalloc.free(ppidl);
    end;
  end;
end;

Eine Liste der CSIDL-Werte ist hier zu finden:
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
In deinem Fall müsste es wohl CSIDL_PROFILE sein.

[Schokohase]

Warum so kompliziert? Laut der Doku MSDN: ExpandEnvironmentStrings gilt für den lpSrc Parameter

Zitat:

A buffer that contains one or more environment-variable strings in the form: %variableName%. For each such reference, the %variableName% portion is replaced with the current value of that environment variable.

Also kann man sich das Ganze Aufsplitten sparen und '%HOMEDRIVE%%HOMEPATH%' in einem übergeben.

BTW:

Wer mit PWideChar arbeitet sollte auch konsequenterweise mit ExpandEnvironmentStringsW arbeiten, sonst ist bei der nächsten Umstellung (wie bei ANSI auf Unicode) das Geschrei wieder riesengross.

PS:

So würde diese Funktion bei mir aussehen:

Delphi-Quellcode:

function ExpandEnvironment( const AInput: string ): string;
var
  lResult: Cardinal;
begin
  lResult := Winapi.Windows.ExpandEnvironmentStrings( PChar(AInput), nil, 0 );

  if lResult = 0 then
    RaiseLastOSError( );

  SetLength( Result, lResult );
  lResult := Winapi.Windows.ExpandEnvironmentStrings( PChar(AInput), PChar( Result ), lResult );

  if lResult = 0 then
    RaiseLastOSError( );

  SetLength( Result, lResult - 1 );
end;

[KodeZwerg]

Ein wenig gekürzt bei gleicher funktionsweise abgesehen vom Errorcheck

Delphi-Quellcode:

function ExpandEnvironment(const AInput: string): string;
const
  MAXSIZE = 32768;
begin
  SetLength(Result, MAXSIZE);
  SetLength(Result, ExpandEnvironmentStrings(PChar(AInput), @Result[1], Length(Result)) - 1);
end;

edit
Wobei mir Jasoculs Vorschlag in diesen Zusammenhang auch besser gefällt.

[EWeiss]

Zitat:

sollte auch konsequenterweise mit ExpandEnvironmentStringsW arbeiten

Das Macht der Compiler btw. (Delphi) selbst wenn man mit WideChar arbeitet

Danke an alle werde es mal umsetzen..

Zitat:

Wobei mir Jasoculs Vorschlag in diesen Zusammenhang auch besser gefällt.

Die ist aber in dem Kontext nicht anwendbar.

Die übergabe des Arbeitspfad ist nun mal von MS festgelegt die da lautet %HOMEDRIVE%%HOMEPATH% und hat nichts mit einer CSIDL zu tun.
Es geht nicht darum was ich gern möchte sondern was vorgegeben ist.

Code:

"c:\program files (x86)\internet explorer\iexplore.exe, IExplorer, @PATH@UserIcon\48x48\IExplorer.png, @PATH@, , 1"

zu

Code:

"c:\program files (x86)\internet explorer\iexplore.exe, IExplorer, @PATH@UserIcon\48x48\IExplorer.png, %HOMEDRIVE%%HOMEPATH%, , 1"

gruss

[Jasocul]

Zitat von EWeiss:

Die ist aber in dem Kontext nicht anwendbar.

Ah, du hast nur die die Environment-Variablen und willst deren Inhalt ermitteln. Dann hast du natürlich recht.