Hallo,
ich habe da eine wichtige Frage zu Dlls...
Ich benötige die DSOFile.dll welche es in zwei sich unterscheidenen Versionen gibt.
Ich muss damit rechnen das auf dem Client Rechner, auf dem mein Tool ausgeführt wird nur eine von beiden Versionen registriert ist.
Wie kann ich nun herrausfinden, welche bzw ob eine bestimmte Dll Datei Registriert wurde... um dann jenach Version eine andere Funktion aufrufen kann....
Vielleicht geht das auch irgendwie anders, nämlich mit dem On Error GoTo aber weiß nicht wie....
Ich poste einfach mal den Quellcode....
ich habe da eine wichtige Frage zu Dlls...
Ich benötige die DSOFile.dll welche es in zwei sich unterscheidenen Versionen gibt.
Ich muss damit rechnen das auf dem Client Rechner, auf dem mein Tool ausgeführt wird nur eine von beiden Versionen registriert ist.
Wie kann ich nun herrausfinden, welche bzw ob eine bestimmte Dll Datei Registriert wurde... um dann jenach Version eine andere Funktion aufrufen kann....
Vielleicht geht das auch irgendwie anders, nämlich mit dem On Error GoTo aber weiß nicht wie....
Ich poste einfach mal den Quellcode....
Visual Basic-Quellcode
- '---------- DSOFile.dll 1.4.07 (alt)-------------
- Dim DSOReader As Object
- Dim DSODocument As Object
- Dim SummProps As Object
- Dim objProperty As Object
- Set DSOReader = CreateObject("DSOleFile.PropertyReader")
- Set DSODocument = DSOReader.GetDocumentProperties(file)
- Set SummProps = DSODocument.CustomProperties
- 'For Each objProperty In SummProps
- ' MsgBox (objProperty.Value)
- 'Next
- Set DSODocument = Nothing
- Set DSOReader = Nothing
- Set objFile = Nothing
- Set SummProps = Nothing
- '-----------------------
- '--------- DSOFile.dll 2.1.2841 (neu)--------------
- 'Dim DSODocument As Object
- 'Dim SummProps As Object
- 'Dim objProperty As Object
- 'Dim objFile As Object
- Set objFile = CreateObject("DSOFile.OleDocumentProperties")
- objFile.Open (file)
- Set SummProps = objFile.CustomProperties
- 'For Each objProperty In SummProps
- ' MsgBox (objProperty.Value)
- 'Next
- objFile.save
- '-----------------------