SuperStrict

Framework brl.blitz
Import brl.system
Import brl.stream
Import brl.filesystem
Import brl.retro

Extern "Win32"
	Function CallNextHookEx:Int(hHook:Int, nCode:Int, wParam:Int, lParam:Byte Ptr)
End Extern

Notify("Die DLL wurde erfolgreich eingebunden.")

Function Product:Int(a:Int, b:Int)
	Notify(a * b)
	Return a * b
EndFunction


Function Callback:Int(nCode:Int, wParam:Int, lParam:Byte Ptr)
	Select nCode
		Case $12
			Notify("Die Anwendung wird jetzt beendet.")
	End Select
	CallNextHookEx(Null, nCode, wParam, lParam)
	Return True
End Function

SuperStrict

Import "testdll.a"

Extern
	Function Product(a:Int, b:Int)
	Function Callback(uMsg:Int, wParam:Int, lParam:Int)
End Extern

Product(1, 2)


Extern "Win32"
	Function FindWindow(lpClassName:Byte Ptr, lpWindowName:Byte Ptr) = "FindWindowA@8"
	Function GetModuleHandle(lpModuleName:Byte Ptr) = "GetModuleHandleA@4"
	Function GetWindowThreadProcessId(hWnd:Int, lpdwProcessId:Int Var)
	Function SetWindowsHookEx:Int(idHook:Int, lpfn:Int, hMod:Int, dwThreadId:Int) = "SetWindowsHookExA@16"
End Extern

Const WH_GETMESSAGE:Int = $3


Local hWnd:Int = FindWindow(Null, "Unbenannt - Editor")
Local hModule:Int = GetModuleHandle("testdll")
Local dwProcessId:Int
Local dwThreadId:Int = GetWindowThreadProcessId(hWnd, dwProcessId)
Local hHook:Int

If hWnd <> 0 Then hHook = SetWindowsHookEx(WH_GETMESSAGE, Int(Byte Ptr(Callback)), hModule, dwThreadId)

Print "Window-Handle: " + hWnd
Print "Module-Handle: " + hModule
Print "Process-Handle: " + dwProcessId
Print "Thread-Handle: " + dwThreadId
Print "Hook-Handle: " + hHook
Input "Press [Enter] ..."