ich versuche wie in der Hilfe beschrieben mit den Librarie - Befehlen die sogenannten shared Dll's auszulesen.
Dabei bekomme ich die Namen der Funktionen, nicht aber deren Parameter angezeigt.
Einen eigenen Befehl dazu konnte ich nicht finden.
Habe ich was übersehen?
Gibt es einen Trick?
Hier mal mein Testcode:
Code: Alles auswählen
;
;-Variablen
libnummer.l = 0
#Lib1 = 1
Ergebnis.l = 0
Funktion.l = 0
Pfad.s = "C:\Programme\Gemeinsame Dateien\System\directdb.dll"
Funktionname.s = ""
;
;
libnummer.l = OpenLibrary(#Lib1,Pfad.s)
If libnummer <> 0
Ergebnis.l = ExamineLibraryFunctions(#Lib1)
ElseIf libnummer = 0
MessageRequester("Stopmeldung","geht wohl nicht",#PB_MessageRequester_Ok)
EndIf
;
;
Repeat
If Ergebnis <> 0
Funktion.l = NextLibraryFunction()
Funktionname.s = LibraryFunctionName()
MessageRequester("Funktion",Funktionname,#PB_MessageRequester_Ok )
ElseIf Ergebnis = 0
MessageRequester("Soppmeldung","Leider nicht lesbar oder keine weitere Funktion",#PB_MessageRequester_Ok)
EndIf
;
If Funktion = 0
MessageRequester("Ende","Keine weiteren Funktionen",#PB_MessageRequester_Ok)
EndIf
Until Ergebnis = 0 Or Funktion = 0
End
