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.

[Mathematiker]

Hallo ASM,

Zitat von ASM:

Zitat von Mathematiker:

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

Ich!

Vielen Dank, es funktioniert auch unter Delphi 5 perfekt.

In der Revision 6 werden die Tierkreiszeichen jetzt beschriftet. Die Zusatzinformationen werden nun hoffentlich immer korrekt angezeigt.
Auf Anregung von ASM wird die Ini-Datei jetzt im Anwenderverzeichnis gespeichert, d.h. wer eine vorhergehende Revisions-Version schon nutzt, wird noch einmal seine Anzeigeoptionen einstellen müssen.

Beste Grüße
Mathematiker