.版本 2
.支持庫 spec

.子程序 _窗口1_創(chuàng)建完畢
kk ＝ API_SetWindowLong (標(biāo)簽1.取窗口句柄 (), -4, 到整數(shù) (&Mycallback))

.子程序 Mycallback, 整數(shù)型
.參數(shù) Hwnd
.參數(shù) uMsg
.參數(shù) 消息參數(shù)WP
.參數(shù) 消息參數(shù)LP
.局部變量 msg, MSG
.局部變量 pt, POINTAPI

.如果真 (uMsg ＝ 512) ' 移動(dòng)消息
  API_GetMessage (msg, Hwnd, 0, 0)
  pt.橫向位置 ＝ msg.pt.橫向位置
  pt.縱向位置 ＝ msg.pt.縱向位置
  API_ScreenToClient (Hwnd, pt)
  調(diào)試輸出 (到文本 (pt.縱向位置) ＋ “/” ＋ 到文本 (pt.橫向位置))
.如果真結(jié)束
返回 (API_CallWindowProc (kk, Hwnd, uMsg, 消息參數(shù)WP, 消息參數(shù)LP))

.版本 2

.DLL命令 API_GetMessage, 整數(shù)型, "user32", "GetMessageA", , 從線索消息隊(duì)列中返回一條消息
  .參數(shù) lpMsg, MSG
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) wMsgFilterMin, 整數(shù)型
  .參數(shù) wMsgFilterMax, 整數(shù)型

.DLL命令 API_TranslateMessage, 整數(shù)型, "user32", "TranslateMessage", , 轉(zhuǎn)換虛擬關(guān)鍵字消息
  .參數(shù) lpMsg, MSG

.DLL命令 API_DispatchMessage, 整數(shù)型, "user32", "DispatchMessageA", , 向窗口發(fā)送消息
  .參數(shù) lpMsg, MSG

.DLL命令 API_SetWindowLong, 整數(shù)型, "user32", "SetWindowLongA", , 在窗口結(jié)構(gòu)中為指定的窗口設(shè)置信息 指定數(shù)據(jù)的前一個(gè)值
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) nIndex, 整數(shù)型
  .參數(shù) dwNewLong, 整數(shù)型

.DLL命令 API_CallWindowProc, 整數(shù)型, "user32", "CallWindowProcA", , 將消息傳答窗口函數(shù)
  .參數(shù) lpPrevWndFunc, 整數(shù)型
  .參數(shù) hwnd, 整數(shù)型
  .參數(shù) msg, 整數(shù)型
  .參數(shù) wParam, 整數(shù)型
  .參數(shù) lParam, 整數(shù)型

.DLL命令 API_ScreenToClient, 整數(shù)型, "user32", "ScreenToClient", , 判斷屏幕上一個(gè)指定點(diǎn)的客戶區(qū)坐標(biāo) 非零表示成功，零表示失敗
  .參數(shù) hwnd, 整數(shù)型, , 一個(gè)窗口的句柄，該窗口定義了要使用的客戶區(qū)坐標(biāo)系統(tǒng)
  .參數(shù) lpPoint, POINTAPI, , POINTAPI，屏幕坐標(biāo)系統(tǒng)中包含了屏幕點(diǎn)的結(jié)構(gòu)。這個(gè)函數(shù)會(huì)隨同相應(yīng)的客戶區(qū)坐標(biāo)（由hwnd決定）載入結(jié)構(gòu);

.版本 2

.數(shù)據(jù)類型 POINTAPI, , 坐標(biāo);
  .成員 橫向位置, 整數(shù)型
  .成員 縱向位置, 整數(shù)型

.數(shù)據(jù)類型 MSG
  .成員 hwnd, 整數(shù)型
  .成員 message, 整數(shù)型
  .成員 wParam, 整數(shù)型
  .成員 lParam, 整數(shù)型
  .成員 time, 整數(shù)型
  .成員 pt, POINTAPI