Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.431 Beiträge
 
Delphi 12 Athens
 
#4

AW: Problem mit Umgebungsvariable

  Alt 16. Sep 2013, 13:28
[DELPHI]Jetzt bin ich verwirrt
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat