Appel d'une fct DLL avec pointeur sur une structure

typedef struct {
  UINT  cbSize;      (32bits)The size of the structure, in bytes.
  HWND  hwnd;      (32bits dans notre cas) A handle to the window to be flashed. The window can be either opened or minimized.
  DWORD dwFlags;  (32bits) The flash status. This parameter can be one or more of the following values.
  UINT  uCount;     The number of times to flash the window.
  DWORD dwTimeout;  The rate at which the window is to be flashed, in milliseconds.
 } FLASHWINFO, *PFLASHWINFO;

' Exemple d'appel de fonction avec passage d'un pointeur sur une structure
'              Clignotement de la fenêtre de l’éditeur Panoramic

DIM ret% : ' retour de fct DLL
DIM cbSize%,hwnd%,dwFlags%,uCount%,dwTimeout% : ' Les membres de la structure FLASHWINFO
DIM FLASHW_CAPTION:FLASHW_CAPTION=1 : ' Type de clignotement (cf doc)
DIM FLASHWINFO$,pFLASHWINFO% : ' La chaine qui va servir de buffer ainsi que son pointeur

' -------- init de la structure ------------------
cbSize% = 5 * 4  : ' Taille de la structure -> 5 membres de 4 octets (variable : 32/64 bits)
hwnd% = HANDLE_FORM("PANORAMIC EDITOR") : ' le handle de la fenêtre que l'on veut faire clignoter
dwFlags% = FLASHW_CAPTION : ' Le type de clignotement  (cf. doc)
uCount% = 20  : ' le nb de fois que la fenêtre doit clignoter
dwTimeout% = 150 : ' La rapidité du clignotement (dans l'exemple 150ms)

FLASHWINFO$ = string$(cbSize%," ") : ' On déclare une chaine de caractères de même longueur que la structure

dll_on "kernel32.dll"

' On recupere l'adresse de base du buffer
' Pour rappel: la valeur retournée par ADR(chaine$) est un pointeur (adresse) sur la zone qui contient les caractères
LPEEK(ADR(pFLASHWINFO%),ADR(FLASHWINFO$)) : ' LPEEK(dest%,src%) on transfere le contenu de ADR(buffer) dans pPFLASHWINFO%

' Puis on met à jour la structure :
LPOKE( pFLASHWINFO%,cbSize%)
LPOKE( pFLASHWINFO%+ 4, hwnd%)
LPOKE( pFLASHWINFO%+ 8, dwFlags%)
LPOKE( pFLASHWINFO%+12, uCount%)
LPOKE( pFLASHWINFO%+16, dwTimeout%)
DLL_OFF : ' On a fini d'utiliser kernel32 avec les LPEEK et les LPOKE on clos la dll

' On lance le clignotement de la fenêtre :
dll_on "user32.dll"
ret% = DLL_CALL1("FlashWindowEx",pFLASHWINFO%)
DLL_OFF

' C'est tout !!
END

SUB LPEEK(Dest%,Src%)
  DIM_LOCAL ret%
  ret%=DLL_CALL3("RtlMoveMemory",Dest%,Src%,4) : ' Dest, Src, size
  FREE ret%
END_SUB

SUB LPOKE(Ad%,Value%)
  DIM_LOCAL v% : v%=Value%
  DIM_LOCAL ret%
  ret%=DLL_CALL3("RtlMoveMemory",Ad%,ADR(v%),4) : ' Dest, Src, size
  FREE v%: FREE ret%
END_SUB

 FREE v%: FREE ret%