Aktueller Sternhimmel

[ASM]

Zitat von Mathematiker:

Weiß jemand, wie ich die von ASM genannten Ordner mit Delphi 5(!) finden kann?

Ich!

Delphi-Quellcode:

Uses ShlObj, Shellapi;

Const
 CSIDL_APPDATA = $001A;
 CSIDL_PERSONAL = $0005;

function GetWinSpecialFolder(CSIDLFolder: integer): AnsiString;
begin
  SetLength(Result, MAX_PATH);
  SHGetSpecialFolderPath(0, PChar(Result), CSIDLFolder, false);
  SetLength(Result, StrLen(PChar(Result)));
  if (Result <> '') then Result := IncludeTrailingBackslash(Result);
end;

function GetCurrentUserAppdataDir: AnsiString;
begin
  result := GetWinSpecialFolder(CSIDL_APPDATA);
end;

function GetCurrentUserEigeneDateien: AnsiString;
begin
 result:=GetWinSpecialFolder(CSIDL_PERSONAL);
end;

Zumindestens mit Delphi7 tut's. Delphi5 habe ich gerade hier (in der Klinik) nicht parat.