Ok da keiner Antwortet will ich meine Frage anders stellen.
Kann ich einfach eine Procedure Deklarieren und dann mit @name auf PVoid übergeben ?
So ist es in C++ Deklariert.
Code:
// the callback function for notifications
typedef VOID (
WINAPI *WLAN_NOTIFICATION_CALLBACK) (PWLAN_NOTIFICATION_DATA, PVOID);
....
DWORD
WINAPI
WlanRegisterNotification(
__in
HANDLE hClientHandle,
__in DWORD dwNotifSource,
__in BOOL bIgnoreDuplicate,
__in_opt WLAN_NOTIFICATION_CALLBACK funcCallback,
__in_opt PVOID pCallbackContext,
__reserved PVOID pReserved,
__out_opt PDWORD pdwPrevNotifSource
);
Und meine :
Delphi-Quellcode:
PVOID = Pointer;
///C PVoid
Tndu_WLAN_NOTIFICATION_CALLBACK = PVOID;
function WlanRegisterNotification(hClientHandle:
Handle;
dwNotifSource: DWORD; bIgnoreDuplicate: Bool;
funcCallback: Tndu_WLAN_NOTIFICATION_CALLBACK;
pCallbackContext: PVOID; pReserved: PVOID;
pdwPrevNotifSource: PDWORD): DWORD;
stdcall;
Programmieren ..... .