Changeset 536 for trunk/ab5.0/ablib/src/api_window.sbp

Timestamp:

Jul 11, 2008, 1:24:57 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

細かい修正。
Str$にStringを受け取る多重定義を追加した。
複数libを作るバッチで、コンパイルエラーが発生したら以後のビルドを行わないようにした。
Threadクラスの_beginthreadexをCreateThreadへ変更した。
ole2.abを全体が使える古い版へ戻した。
SendMessageCallback/SendMessageTimeoutを追加した。
GCHandleで登録が解除されない状態が起こる問題を直した。

File:

• trunk/ab5.0/ablib/src/api_window.sbp (modified) (7 diffs)

trunk/ab5.0/ablib/src/api_window.sbp

@@ -60 +60 @@
 Const _FuncName_SendDlgItemMessage = "SendDlgItemMessageW"
 Const _FuncName_SendMessage = "SendMessageW"
+Const _FuncName_SendMessageCallback = "SendMessageCallbackW"
+Const _FuncName_SendMessageTimeout = "SendMessageTimeoutW"
 Const _FuncName_SendNotifyMessage = "SendNotifyMessageW"
 Const _FuncName_SetDlgItemText = "SetDlgItemTextW"
@@ -137 +139 @@
 Const _FuncName_SendDlgItemMessage = "SendDlgItemMessageA"
 Const _FuncName_SendMessage = "SendMessageA"
+Const _FuncName_SendMessageCallback = "SendMessageCallbackA"
+Const _FuncName_SendMessageTimeout = "SendMessageTimeoutA"
 Const _FuncName_SendNotifyMessage = "SendNotifyMessageA"
 Const _FuncName_SetDlgItemText = "SetDlgItemTextA"
@@ -1194 +1198 @@
 Const MB_YESNO =                  &H00000004
 Const MB_RETRYCANCEL =            &H00000005
+Const MB_CANCELTRYCONTINUE =      &H00000006
 Const MB_ICONHAND =               &H00000010
 Const MB_ICONQUESTION =           &H00000020
@@ -1218 +1223 @@
 Const MB_RTLREADING =             &H00100000
 Const MB_SERVICE_NOTIFICATION =   &H00200000
+
+Const MB_TYPEMASK = &h0000000F
+Const MB_ICONMASK = &h000000F0
+Const MB_DEFMASK  = &h00000F00
+Const MB_MODEMASK = &h00003000
+Const MB_MISCMASK = &h0000C000
 #ifdef UNICODE
 Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (hwnd As HWND, pText As PCWSTR, pCaption As PCWSTR, uType As DWord) As Long
@@ -1290 +1301 @@
 Declare Function SendDlgItemMessage Lib "user32" Alias _FuncName_SendDlgItemMessage (hDlg As HWND, nIDDlgItem As Long, Msg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
 Declare Function SendMessage Lib "user32" Alias _FuncName_SendMessage (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
+
+TypeDef SENDASYNCPROC = *Sub(hwnd As HWND, uMsg As DWord, dwData As ULONG_PTR, lResult As LRESULT)
+Declare Function SendMessageCallback Lib "user32" Alias _FuncName_SendMessageCallback (hWnd As HWND, Msg As DWord, wParam As WPARAM, lParam As LPARAM, lpResultCallBack As SENDASYNCPROC, dwData As ULONG_PTR) As BOOL
+Const SMTO_NORMAL = &h0000
+Const SMTO_BLOCK = &h0001
+Const SMTO_ABORTIFHUNG = &h0002
+'#if WINVER >= &h0500
+'Const SMTO_NOTIMEOUTIFNOTHUNG = &h0008
+'#endif
+'#if WINVER >= &h0600
+'Const SMTO_ERRORONEXIT = &h0020
+'#endif
+Declare Function SendMessageTimeout Lib "user32" Alias _FuncName_SendMessageTimeout (hWnd As HWND, Msg As DWord, wParam As WPARAM, lParam As LPARAM, fuFlags As DWord, uTimeout As DWord, ByRef dwResult As ULONG_PTR) As LRESULT
 Declare Function SendNotifyMessage Lib "user32" Alias _FuncName_SendNotifyMessage (hWnd As HWND, wMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
 Declare Function SetActiveWindow Lib "user32" (hWnd As HWND) As HWND
@@ -1825 +1849 @@
 #endif
 
-/*#ifdef(WINVER >= 0x0500)
+/*#ifdef(WINVER >= &h0500)
 Declare Function EnumDisplaySettingsExA Lib "user32" (ByVal lpszDeviceName As LPCSTR, ByVal iModeNum As DWord, ByVal lpDevMode As *DEVMODEA, ByVal dwFlags As DWord) As BOOL
 Declare Function EnumDisplaySettingsExW Lib "user32" (ByVal lpszDeviceName As LPCWSTR, ByVal iModeNum As DWord, ByVal lpDevMode As *DEVMODEW, ByVal dwFlags As DWord) As BOOL
@@ -1843 +1867 @@
 Declare Function EnumDisplayDevices Lib "user32" Alias _FuncName_EnumDisplayDevices (ByVal lpDevice As LPCSTR, ByVal iDevNum As DWord, ByVal lpDisplayDevice As *DISPLAY_DEVICEA, ByVal dwFlags As DWord) As BOOL
 #endif
-#endif */ /* WINVER >= 0x0500 */
+#endif */ /* WINVER >= &h0500 */
 #endif ' _INC_GDI