Parsen von EnvironmentPath

[Schokohase]

Nur so nebenbei erwähnt:

Also, wenn man bei '%HOMEDRIVE%%HOMEPATH%' den Split auf dem '%' ausgeführt hätte, dann würde man folgendes erhalten:

Code:

0: ''
1: 'HOMEDRIVE'
2: ''
3: 'HOMEPATH'

Die Variablen-Namen (natürlich ohne die umschließenden %-Zeichen) findet man also an den ungeraden Positionen wieder.

Diese hätte man also auch leicht durchlaufen können und wieder zusammenbauen können.

[EWeiss]

Zitat von Schokohase:

Nur so nebenbei erwähnt:

Also, wenn man bei '%HOMEDRIVE%%HOMEPATH%' den Split auf dem '%' ausgeführt hätte, dann würde man folgendes erhalten:

Code:

0: ''
1: 'HOMEDRIVE'
2: ''
3: 'HOMEPATH'

Die Variablen-Namen (natürlich ohne die umschließenden %-Zeichen) findet man also an den ungeraden Positionen wieder.

Diese hätte man also auch leicht durchlaufen können und wieder zusammenbauen können.

Richtig
Habe meine alte Version nicht gegengeprüft.
Das ist dann natürlich falsch!

Zitat:

Bei split wären das 3 einträge die da wären 0 = "", 1 = "C:" 2 = User\Name.

Und genau deshalb weil die %-Zeichen gefehlt haben, habe ich als Delemiter "@" addiert.

Aber gut mir der neuen Version geht es jetzt ohne Probleme.
Muss hier zwar auch parsen aber das ist so sicherer wie vorher. (High(Array))

Falls diese frage noch aufkommt was ist "@PATH@"
@PATH@ ist immer der Arbeitspfad (WorkDir) in dem die Exe liegt wenn nichts anderes angegeben wurde.
Ist also eine globale variable für alle Verknüpfungen.

gruss und Danke nochmals

[Uwe Raabe]

Mag sein, daß es hier nicht relevant ist, weil der Rückgabewert gleich weiterverarbeitet wird, aber zeigt der Result von ExpandEnvironment nicht auf eventuell ungültigen Stackspeicher? lpDest liegt doch als lokale Variable auf dem Stack und der wird beim Verlassen der Methode freigegeben. (Mal abgesehen davon, daß der Methodenaufruf mal eben so 64k vom Stack abzwackt.)

Delphi-Quellcode:

function TShortCut.ExpandEnvironment(EnvironmentPath: PWideChar): PWideChar;
var
  lpDest: array [0 .. 32768] of WideChar;
begin

  result := '';
  FillChar(lpDest, SizeOf(lpDest), 0);
  if ExpandEnvironmentStringsW(PWideChar(EnvironmentPath), lpDest, 32767) <> 0 then
    result := lpDest;
end;