Q
qee
Unregistered / Unconfirmed
GUEST, unregistred user!
GetActiveWindow <br><br>VB声明 <br>Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long <br>说明 <br>获得活动窗口的句柄 <br>返回值 <br>Long，活动窗口的句柄，如没有窗口处于活动状态，则返回零值 <br>GetWindowText 有注解 <br>不能用它从另一个应用程序的编辑控件中获取文字，就不可以用吗<br><br>VB声明 <br>Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long <br>说明 <br>取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性） <br>返回值 <br>Long，复制到lpString的字串长度；不包括空中止字符。会设置GetLastError <br>参数表 <br>参数 类型及说明 <br>hwnd Long，欲获取文字的那个窗口的句柄 <br>lpString String，预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入 <br>cch Long，lpString缓冲区的长度 <br>注解 <br>不能用它从另一个应用程序的编辑控件中获取文字，<br> <br><br>
char;<br>begin<br> thehandle:=GetActiveWindow;<br> if thehandle<>0 then<br> begin<br> getmem(cap,255);<br> if GetWindowText(thehandle,cap,255)<>0 then<br> memo1.lines.add(strpas(cap));<br> freemem(cap);<br> end;<br>end;