enumdevicedrivers mit hilfe von "psapi.dll"

[bingo]

enumdevicedrivers mit hilfe von "psapi.dll" (=> NT4 !!!)

Code: Alles auswählen

#maxdriver4 = 2000

Dim DriversArray(#maxdriver4) 
membuf = AllocateMemory(255)

OpenLibrary(0, "psapi.dll") 
  
f1 = IsFunction(0, "EnumDeviceDrivers") 
f2 = IsFunction(0, "GetDeviceDriverBaseNameA") 

CallFunctionFast(f1, DriversArray(), #maxdriver4, @tmpbytes) 

zaehler = (tmpbytes/4) - 1

For i=0 To zaehler
CallFunctionFast(f2, DriversArray(i), membuf, 255)
Debug PeekS(membuf)
Next

CloseLibrary(0) 
FreeMemory(membuf)

ein schnelleren weg zu ermitteln , ob z.bsp. die nf4_mini.sys aktiv ist , gibt es nicht...