Prüfen, ob diese API existiert?

[Frabbing]

Vielleicht hat ja jemand eine Lösung parat...

Ich suche nach einer Programm-Möglichkeit zu ermitteln, ob eine bestimmte System-Dll-Funktion auf dem eingesetzten System vorhanden ist oder nicht. Das Programm kennt allerdings nur den Namen der Funktion, nicht den Namen der Dll, in der sich die Funktion befinden könnte, darum scheidet GetProcAddress() leider schonmal aus. Auch sowas wie IsBadCodePtr() dürfte nicht funktionieren.
Hat jemand sowas schonmal probiert?

[AHT]

Ob eine API von einem Process gerade verwendet werden kann, kannst du feststellen, das ist kein Problem. Ob diese API auf dem System vorhanden ist...
Du müsstest dazu nacheinander alle DLLs laden, die irgendwo auf dem OS als Datei zu finden sind - wie willst du das machen?

[Frabbing]

Ob diese API auf dem System vorhanden ist...
Du müsstest dazu nacheinander alle DLLs laden, die irgendwo auf dem OS als Datei zu finden sind - wie willst du das machen?

Hehe, genau das ist wohl die Frage...

Ob eine API von einem Process gerade verwendet werden kann, kannst du feststellen, das ist kein Problem.

Vielleicht reicht das ja schon... Wie würdest du da vorgehen?

[AHT]

Zitat von Frabbing

Hehe, genau das ist wohl die Frage...



Vielleicht reicht das ja schon... Wie würdest du da vorgehen?

Ich denke mal, die Links reichen dir:
Toolhelp
modBaseAddr = Handle der DLL
GetProcAddress

[Frabbing]

Ah, du meinst die modBaseAddr aller vorhandenen Module mit dem Funktionsnamen testen.... Hoffentlich bekomme ich das so hin und es arbeitet auch noch schnell genug.
Danke, das werde ich Sonntag mal testen. Jetzt gehts erstmal zur Betriebsfeier.

[AHT]

Das geht schneller:
EnumProcessModules

[AHT]

Hier Code:

Def GetCurrentProcess(0) !"Kernel32","GetCurrentProcess"
Def GetProcAddress(2) !"Kernel32","GetProcAddress"
Def EnumProcessModules7(4) !"Kernel32","EnumProcessModules"
Def EnumProcessModules(4) !"PSAPI","EnumProcessModules"
Declare Edit&, Text&, PSAPI&, Needed&, ModuleHandles#, Winver!, OldText$
Windowstyle 31+512
Windowtitle "Ist Funktion vorhanden?"
Window 0,0-640,440
Edit&=Control("Edit","ZwQuerySystemInformation",$40000000 | $10000000 | $1000 | $400000,20,40,(Width(%HWND)-100),30,%HWND,4113,%HINSTANCE)
Text&=Create("Text",%HWND,"",20,100,(Width(%HWND)-100),200) 
PSAPI&=UseDll($Syspath+"\PSAPI.DLL")
Settext Text&,Funktion_vorhanden(GetText$(Edit&))
Winver!=Val($WinVer)
Usermessages $10
While %UMessage<>$10
 Getmessage
 IF OldText$<>GetText$(Edit&)
  Settext Text&,Funktion_vorhanden(GetText$(Edit&))
  OldText$=GetText$(Edit&)
 endif
wend
Freedll PSAPI&
End
Proc Funktion_vorhanden
 Parameters FunktionsName$
 Declare RetText$, Counter&
 RetText$="Die API '"+FunktionsName$+"' wurde nicht gefunden!                    "
 Counter&=0
 DIM ModuleHandles#,4
 IF Winver!<7.0
  EnumProcessModules(GetCurrentProcess(),ModuleHandles#,4,addr(Needed&))
 else
  EnumProcessModules7(GetCurrentProcess(),ModuleHandles#,4,addr(Needed&))
 endif
 Dispose ModuleHandles#
 DIM ModuleHandles#,Needed&+40
 IF Winver!<7.0
  EnumProcessModules(GetCurrentProcess(),ModuleHandles#,SizeOf(ModuleHandles#),addr(Needed&))
 else
  EnumProcessModules7(GetCurrentProcess(),ModuleHandles#,SizeOf(ModuleHandles#),addr(Needed&))
 endif
 Repeat
  IF GetProcAddress(Long(ModuleHandles#,counter&),addr(FunktionsName$))>0 
   RetText$="Die API '"+FunktionsName$+"' wurde gefunden!                          "
  endif
  Counter&=Counter&+4
 Until Counter&=Needed&
 Dispose ModuleHandles#
 Return RetText$
endproc

[Frabbing]

Danke für den Code, funktioniert fast perfekt. Das Proggie stürzt aber zum Programmende immer ab, wenn man das Hauptfenster nicht explizit zerstört. Das hilft, warum auch immer...:

DestroyWindow(%hwnd)
Freedll PSAPI&
End

Die API EnumProcessModules wurde ins Kernel ausgelagert?

[AHT]

Zitat von Frabbing

Danke für den Code, funktioniert fast perfekt. Das Proggie stürzt aber zum Programmende immer ab, wenn man das Hauptfenster nicht explizit zerstört. Das hilft, warum auch immer...:

Bei mir mit XProfan9 nicht. Problem in XProfan11?

Zitat von Frabbing

Die API EnumProcessModules wurde ins Kernel ausgelagert?

Scheinbar unter Windows7 - mal Code von Horst testen lassen.

Habe den Fehler hier auch .

[AHT]

Habe den Code gerade nochmal mit der Freeware von XProfan10 getestet - auch da läuft alles ohne Probleme (Windows2000).
Vielleicht Fehler in XProfan11???

[Andreas Miethe]

Zitat von AHT

Habe den Code gerade nochmal mit der Freeware von XProfan10 getestet - auch da läuft alles ohne Probleme (Windows2000).
Vielleicht Fehler in XProfan11???

Nein, läuft hier ohne Probleme ! Vista und Xprofan11.2

[Frabbing]

Hab den Code mal weiter zurückgenommen. Hierbei bekomme ich immer noch nach dem Programmende die Windowsmeldung: XProfan-Interpreter hat ein Problem festgestellt...:

Cls
Var psapi&=UseDll($Syspath+"\\PSAPI.DLL")
Usermessages $10
WaitInput
UserMessages 0
Freedll psapi&
End

Als Exe funktioniert es reibungsfrei.
Nehme ich die UserMessage-Zeile(n) oder aber auch die UseDll-Zeile raus, kommt die Meldung nicht.

EDIT: Getestet mit 11.2a

[Andreas Miethe]

Läuft hier ohne Probleme im Interpreter oder kompiliert.

Vista und XP & XProfan 11.2a.

[AHT]

Hat das

End

irgentwelche Auswirkungen? Nimm das mal raus.