參考網站:
http://winapi.freetechsecrets.com/win32/
http://masm32.com/board/index.php?topic=3584.0
https://www.plantation-productions.com/Webster/
https://www.plantation-productions.com/Webster/Win32Asm/win32API.html
Windows的Timer中斷週期是基於早期系統架構,因此,最短的Timer時間間隔為15ms,因此,即使Timer設定為1ms,觸發時間依舊為15ms
main.hla
program main; #include("w.hhf") #include("args.hhf") #include("memory.hhf") #include("strings.hhf") static cnt: dword; buf: byte[255]; hWin: dword; hInstance: dword; CommandLine: string; defWndProc: dword; wsprintf: procedure(p0:dword; p1:dword; p2:dword); @stdcall; external("__imp__wsprintfA"); readonly fmt: string:= "%d"; szCaption: string:= "main"; procedure WndProc(hWnd:dword; uMsg:uns32; wParam:dword; lParam:dword); @stdcall; begin WndProc; if (uMsg == w.WM_TIMER) then inc(cnt); wsprintf(&buf, fmt, cnt); w.SetWindowText(hWnd, &buf); xor(eax, eax); elseif (uMsg == w.WM_CLOSE) then w.DestroyWindow(hWnd); xor(eax, eax); elseif (uMsg == w.WM_DESTROY) then w.KillTimer(hWnd, 1); w.PostQuitMessage(0); xor(eax, eax); else w.CallWindowProc(defWndProc, hWnd, uMsg, wParam, lParam); endif; end WndProc; procedure WinMain(hInst:dword; hPrevInst:dword; CmdLine:string; CmdShow:dword); var msg: w.MSG; begin WinMain; w.CreateWindowEx(w.WS_EX_LEFT, w.WC_DIALOG, szCaption, w.WS_OVERLAPPEDWINDOW | w.WS_VISIBLE, 0, 0, 300, 300, 0, 0, NULL, NULL); mov(eax, hWin); w.SetWindowLong(hWin, w.GWL_WNDPROC, &WndProc); mov(eax, defWndProc); w.SetTimer(hWin, 1, 1000, NULL); forever w.GetMessage(msg, NULL, 0, 0); breakif(!eax); w.DispatchMessage(msg); endfor; mov(msg.wParam, eax); end WinMain; begin main; w.GetModuleHandle(NULL); mov(eax, hInstance); mov(arg.cmdLn(), CommandLine); WinMain(hInstance, NULL, CommandLine, w.SW_SHOWNORMAL); w.ExitProcess(eax); end main;
Line 24~27:累加數值並且顯示在視窗標題
Line 33:不使用Timer,記得關閉Timer
Line 53:設定Timer為每秒(1000ms)觸發一次,ID=1
完成