Hallo Michael,
ich habe mir eine eigene
Unit geschrieben, die die Versionsinformationen ausliest und zur Verfügung stellt. Ich habe die hier mit angehängt. Du mußt diese einfach mit "uses verinfo" in Deinem Programm einbinden.
Der Aufruf aus dem Hauptprogramm funktioniert bei mir folgendermaßen:
StatusBar.Caption := Application.Title + ' Version ' + IntToStr(VersionInfo.MainVersion) + '.' + IntToStr(VersionInfo.SubVersion) + '.' + IntToStr(VersionInfo.Release) + '.' + IntToStr(VersionInfo.Built) + ' vom ' + DateToStr(UnixToDateTimeGetImageLinkTimeStamp(Application.ExeName)))) + ' um ' + TimeToStr((UnixToDateTime(GetImageLinkTimeStamp(Application.ExeName)))) + ' Uhr';
Du mußt allerdings in Deiner
Unit-Klausel noch uses DateUtils einbinden, damit das funktioniert.
Damit konnte ich den CompileTimeExpert ersetzen, den ich unter
BDS 2006 auch nicht zum Laufen gebracht habe.
Denke auch daran, die Include-Klausel für den CompileTimeExpert aus dem Hauptprogramm zu entfernen.