「ウインドウの列挙」の編集履歴（バックアップ）一覧はこちら

「ウインドウの列挙」(2010/02/02 (火) 10:27:39) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#asciiart(blockquote){
#N88BASIC
Declare Function EnumWindows Lib"user32" (lpEnumFunc As VoidPtr, lp As DWord) As DWord
Dim count As Long
Function EnumWindowsProc(hwnd As HWND, lp As DWord) As DWord
	Dim ttl[555] As Byte
	GetWindowText(hwnd, ttl, 555)
	If ttl[0] <> 0 Then
		Print Hex$(hwnd) + " " + MakeStr(ttl)
		count++
		If count = 20 Then
			Input ttl
			count = 0
		End If
	End If
	EnumWindowsProc=TRUE
End Function

EnumWindows(AddressOf(EnumWindowsProc), 0)
}