inspired by this post -> http://www.autoitscript.com/forum/index ... ndow+class
and by C. Petzold, I wrote an example how to create and register an own window class and window prozedure with AutoIt ...
Big thanks to Ani for Bugfixing !
► Afficher le texte
Code : Tout sélectionner
#NoTrayIcon
#include-once
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include 'HelloAutoIt.h.au3'
;;;
Global $hWindowProc = DllCallbackRegister('WindowProc', 'long', 'hwnd;uint;wparam;lparam')
Global $stAppName = DllStructCreate('char szAppName[128]')
Global $szAppName = DllStructSetData($stAppName, 'szAppName', 'HelloWin')
Global $hInst = GetModuleHandle()
WinMain()
Func WinMain()
Global $hWnd
Global $Msg = DllStructCreate($stMSG)
Global $WndClassEx = DllStructCreate($stWNDCLASSEX)
DllStructSetData($WndClassEx,'cbSize', DllStructGetSize($WndClassEx))
DllStructSetData($WndClassEx,'style', BitOR($CS_HREDRAW, $CS_VREDRAW))
DllStructSetData($WndClassEx,'lpfnWndProc', DllCallbackGetPtr($hWindowProc))
DllStructSetData($WndClassEx,'cbClsExtra', 0)
DllStructSetData($WndClassEx,'cbWndExtra', 0)
DllStructSetData($WndClassEx,'hInstance', $hInst)
DllStructSetData($WndClassEx,'hIcon', LoadIcon($NULL, $IDI_APPLICATION))
DllStructSetData($WndClassEx,'hCursor', LoadCursor($NULL, $IDC_ARROW))
DllStructSetData($WndClassEx,'hbrBackground', GetStockObject($WHITE_BRUSH))
DllStructSetData($WndClassEx,'lpszMenuName', $NULL)
DllStructSetData($WndClassEx,'lpszClassName', DllStructGetPtr($stAppName))
DllStructSetData($WndClassEx,'hIconSm', LoadIcon($NULL, $IDI_APPLICATION))
$lpMyWndClass = DllStructGetPtr($WndClassEx)
$lpMsg = DllStructGetPtr($Msg)
If Not RegisterClassEx($lpMyWndClass) Then
MsgBox(266256, Default, 'Die Fensterklasse konnte nicht registriert werden !')
Exit
EndIf
$hWnd = CreateWindowEx($WS_EX_OVERLAPPEDWINDOW, _
$szAppName, $szAppName, _
$WS_OVERLAPPEDWINDOW, _
$CW_USEDEFAULT, $CW_USEDEFAULT, _
$CW_USEDEFAULT, $CW_USEDEFAULT, _
$NULL, $NULL, $hInst, $NULL)
ShowWindow($hWnd, 5)
UpdateWindow($hWnd)
While GetMessage($lpMsg, $hWnd, 0, 0)
TranslateMessage($lpMsg)
DispatchMessage($lpMsg)
WEnd
Return DllStructGetData($Msg, 'wParam')
EndFunc
;
Func WindowProc($hWnd, $uMsg, $wParam, $lParam)
Switch $uMsg
Case $WM_CREATE
SoundPlay(@WindowsDir & "\media\tada.wav", 0)
Return 0;
Case $WM_PAINT
$rect = DllStructCreate($stRECT)
$ps = DllStructCreate($stPAINTSTRUCT)
$hDC = BeginPaint($hWnd, DllStructGetPtr($ps))
GetClientRect($hWnd, DllStructGetPtr($rect))
DrawText($hDC, 'Hello AutoIt3 !', -1, DllStructGetPtr($rect), _
BitOR($DT_SINGLELINE, $DT_CENTER, $DT_VCENTER))
EndPaint($hWnd, DllStructGetPtr($ps))
Return 0;
Case $WM_CLOSE
DestroyWindow($hWnd)
Return 0;
Case $WM_DESTROY
PostQuitMessage(0)
Return 0;
EndSwitch
Return DefWindowProc($hWnd, $uMsg, $wParam, $lParam)
EndFunc
;
Salut
Greenhorn
