Problem mit Umgebungsvariable

[Ondeth]

Hallo Leute,
ich bin (mal wieder) etwas ratlos... :-D

Wenn ich diesen Codeschnipsel :

Code:

showmessage(getenvironmentvariable('HOMEPATH')+'\Desktop\');

ausführen will, wird mir im Fenster zwar der Pfad , aber ohne die Laufwerksbezeichnung angezeigt :

Code:

\Users\Ondeth\Desktop\

So verhält es sich (logischerweise) auch bei

Delphi-Quellcode:

ShellExecute

- der Desktop bzw Programme darin werden nicht mehr geöffnet bzw gestartet, da die Laufwerksbezeichnung fehlt...

Die Umgebungsvariable HOMEDRIVE funktioniert in diesem Programm plötzlich gar nicht mehr.

Hat jemand eine Idee, woran es hängen könnte? - Unfähigkeit meinerseits oder von Delphi ? :lol:

Wäre für "Denkanstöße" dankbar :thumb:

[Uwe Raabe]

Bei mir hat HOMEPATH auch kein Laufwerk - aber schon im Environment nicht. Daher kann Delphi da auch nicht mehr rausholen.

Warum verwendest du nicht TPath.GetHomePath aus IOUtils oder wenigstens GetHomePath aus SysUtils?

[Ondeth]

Delphi-Quellcode:

TPath.GetHomePath

bringt mir aber doch eigentlich nichts , wenn ein Teil meiner Programmdateien noch auf dem Desktop liegen .... Oder doch? :?

Jetzt bin ich verwirrt :-D

[Uwe Raabe]

Zitat:

Zitat von Ondeth (Beitrag 1228669)

[DELPHI]Jetzt bin ich verwirrt :-D

Sorry, das mit dem Desktop hatte ich nicht richtig wahrgenommen.

In dem Fall kann man aber selbst Hand anlegen:

Delphi-Quellcode:

uses
  Winapi.SHFolder, Winapi.ShlObj;

function GetDesktopPath: string;
var
  LStr: array[0 .. MAX_PATH] of Char;
begin
  SetLastError(ERROR_SUCCESS);

  if SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, @LStr) = S_OK then
    Result := LStr;
end;

[Ondeth]

Kein Problem :)

Jetzt, wenn man's so sieht, ist es eigentlich klar :-D

Danke :thumb:

[hathor]

Oder so:

Delphi-Quellcode:

VAR hd, hp : STRING;
BEGIN
hd:= GetEnvironmentVariable('HOMEDRIVE');
hp:= GetEnvironmentVariable('HOMEPATH');
Memo1.lines.add(hd+hp+'\Desktop');

[DeddyH]

Das würde ich eher nicht empfehlen. Wer garantiert einem, dass der Desktop nicht in Windows 9/10/11 plötzlich "UserDesktop" oder "WerKratztMichMalHinten" heißt?

[Ondeth]

@hathor Das hätte ich auch gesagt, nur funktioniert in diesem Programm die Umgebungsvariable HOMEDRIVE komischerweise nicht :wink:

@DeddyH Das stimmt allerdings - Bei Windows kann man sich nie wirklich sicher sein :-D