Abfrage installierte DLL-Versionen

[ingo]

Moin!
Ich meine mich zu erinnern, dass es eine einfache Möglichkeit gibt, die Versionsinformationen aus den installierten (XBase-, List&Label-) DLLs auszulesen - und finde nix dazu. Ich möchte die installierten Versionsnummern mit den aktuell verwendeten Versionen vergleichen um gf. einen Hinweis auf veraltete DLLs auszugeben.
Kann mir jemand weiter helfen?
(Nebenfrage: wo finde ich eigentlich die "Wissensdatenbank" des Forums?)

[Manfred]

Hi Ingo,

hier ist alles drin, was wir unter Wissenbasis verstehen

http://www.xbaseforum.de/viewforum.php?f=16

[ingo]

Moin Manfred,

danke, ich dachte es wäre noch ein sep. Bereich.
...und herzlichen Glückwunsch zum Geburtstag!

[brandelh]

die Versionsinformationen aus den installierten (XBase-, List&Label-) DLLs auszulesen - und finde nix dazu.

Zu Xbase++ und seinen Komponenten gibt es den Befehl

XPPLOAD version

In der Hilfe steht dazu einiges, und damit kann man auch jede DLL / EXE als Dateiname angeben und die Version gemeldet bekommen.
Das Ergebnis in eine Textdatei und einlesen ...
Sicherlich gibt es in z.B. List&Label aber auch eine Funktion, welche die Version zurückgibt, ähnlich wie unter Xbase++.

[ingo]

Hi Hubert,
das war's wohl. Man kann mit XPPLOAD auch Non-Xbase-Versionen abfragen, bekommt aber bei List&Label teilweise ein bisschen merkwürdige Ergebnisse. Und List&Label selbst liefert scheinbar nur eine Versionsnummer, nicht die, der einzelnen DLLs... aber damit werde ich weiterkommen.

Vielen Dank!

[AUGE_OHR]

das war's wohl. Man kann mit XPPLOAD auch Non-Xbase-Versionen abfragen, bekommt aber bei List&Label teilweise ein bisschen merkwürdige Ergebnisse. Und List&Label selbst liefert scheinbar nur eine Versionsnummer, nicht die, der einzelnen DLLs... aber damit werde ich weiterkommen.

dann versuche mal dies

Code: Alles auswählen

PROCEDURE DLLLIST()
LOCAL I, J, DllName, hDll, aVersion, fVersion
LOCAL aDLLFiles := DIRECTORY( "*.DLL" )
LOCAL nCount    := LEN( aDLLFiles )
LOCAL n, nSum, cTest, cVers := ""
LOCAL DllList   := {}

   FOR n := 1 TO nCount
      AADD( DllList, aDLLFiles[ n, F_NAME ] )
   NEXT

   FOR I := 1 TO LEN( DllList )
      DllName := DllList[ I ]
      IF DllInfo( DllName, DLL_INFO_LOADED )
         hDll := DllInfo( DllName, DLL_INFO_HANDLE )
         fVersion := LoadResource( 1, hDll, RES_VERSIONFIXED )
         aVersion := LoadResource( 1, hDll, RES_VERSION )
         IF LEN( fVersion ) > 0
            * ? "Product Version: "+ltrim(str(fVersion[RES_PRODVER_MS ]))+ltrim(str(fVersion[RES_PRODVER_LS ]))
            * ? "   File Version: "+ltrim(str(fVersion[RES_FILEVER_MS ]))+ltrim(str(fVersion[RES_FILEVER_LS ]))
            * ? "      File Time: "+ltrim(str(fVersion[RES_FILETIME_MS]))+ltrim(str(fVersion[RES_FILETIME_LS]))
         ELSE
         ENDIF

         IF LEN( aVersion ) > 0
            FOR J := 1 TO LEN( aVersion )
               cTest := aVersion[ J ] [ RES_VERSION_KEY ]
               DO CASE
                  CASE cTest = "CompanyName"
                  CASE cTest = "InternalName"
                  CASE cTest = "LegalCopyright"
                  CASE cTest = "OriginalFilename"
                  CASE cTest = "ProductName"
                  CASE cTest = "ProductVersion"
                  CASE cTest = "Comment"
                  CASE cTest = "FileVersion"
                       cVers := aVersion[J][RES_VERSION_VALUE]
                  OTHERWISE
                     // FileDescription
                     *  ? aVersion[J][RES_VERSION_KEY]+": "+aVersion[J][RES_VERSION_VALUE]
                     ? SUBSTR(DllName+SPACE(15),1,15) + ": " +;
                     LTRIM( LTRIM( cVers )+" "+ LTRIM( aVersion[J][RES_VERSION_VALUE] ) )
               ENDCASE
            NEXT
         ELSE
         ENDIF
      ENDIF
   NEXT

RETURN

[ingo]

Hi Jimmy,
vielen Dank - das klingt spannend und ist weniger aufwändig, als eine Textdatei zu interpretieren.
Man sollte vielleicht doch ab und zu mal wieder die ganze XBase Doku durchlesen... im Urlaub habe ich nur leider Notebookverbot.