Français
Source/ Codesnippets

Api Existiert Funktion Laufzeit vérifier Vorhanden

 
Andreas Hötker, URL=paules-pc-forum.de/forum/712778-poste45.html, ZEITPUNKT=29.06.2009
ici la fois un korrigierter Voir le texte source - je veux espérer, cela qui maintenant überall fonctionne...
KompilierenMarqueSéparation
Def GetCurrentProcess(0) !"Kernel32","GetCurrentProcess"
Def GetProcAddress(2) !"Kernel32","GetProcAddress"
Def EnumProcessModules7(4) !"Kernel32","K32EnumProcessModules"
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)
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

End

Proc Funktion_vorhanden

    Parameters FunktionsName$
    Declare RetText$, Counter&
    RetText$="Die API "+FunktionsName$+" wurde nicht gefunden!                    "
    Counter&=0
    DIM ModuleHandles#,4
    EnumProcessModules(GetCurrentProcess(),ModuleHandles#,4,addr(Needed&))
    Dispose ModuleHandles#
    DIM ModuleHandles#,Needed&+40
    EnumProcessModules(GetCurrentProcess(),ModuleHandles#,SizeOf(ModuleHandles#),addr(Needed&))

    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

 
30.06.2009  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.565 Views

Untitledvor 0 min.
AndreasS28.01.2019
p.specht03.01.2019
Christian Hahn16.07.2013
Andre Rohland16.10.2012
plus...

Themeninformationen

cet Thema hat 1 participant:

iF (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie