FindWindow

FindWindow

VB聲明

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

說明

尋找窗口列表中第一個(gè)符合指定條件的頂級(jí)窗口（在vb里使用：FindWindow最常見的一個(gè)用途是獲得ThunderRTMain類的隱藏窗口的句柄；該類是所有運(yùn)行中vb執(zhí)行程序的一部分。獲得句柄后，可用api函數(shù)GetWindowText取得這個(gè)窗口的名稱；該名也是應(yīng)用程序的標(biāo)題）

返回值

Long，找到窗口的句柄。如未找到相符窗口，則返回零。會(huì)設(shè)置GetLastError

參數(shù)表

參數(shù)

類型及說明

lpClassName

String，指向包含了窗口類名的空中止（C語言）字串的指針；或設(shè)為零，表示接收任何類

lpWindowName

String，指向包含了窗口文本（或標(biāo)簽）的空中止（C語言）字串的指針；或設(shè)為零，表示接收任何窗口標(biāo)題

注解

很少要求同時(shí)按類與窗口名搜索。為向自己不準(zhǔn)備參數(shù)傳遞一個(gè)零，最簡便的辦法是傳遞vbNullString常數(shù)

示例

Dim hw&, cnt&

Dim rttitle As String * 256

hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4

cnt = GetWindowText(hw&, rttitle, 255)

MsgBox Left$(rttitle, cnt), 0, "RTMain title"

Top