不好意思,我刚刚做了个QQ工具,给你个片段:
;FW := GetForegroundWindow;
; if FW <> 0 then
; begin
; ; nCount := GetWindowText(FW, @Buf[1], 255);
; ; S := copy(Buf, 1, nCount);
; ; if S = 'QQ用户登录' then
; ; begin
; ; ; ChildW := FindWindowEx(FW, 0, 'ComboBox', nil);
; ; ; if ChildW <> 0 then begin
; ; ; ......
; ; ; end;
; ; ; ChildW := FindWindowEx(FW, 0, 'Edit', nil);
; ; ; if ChildW <> 0 then begin
; ; ; ......
; ; ; end;
; ; end
[blue]good luck[/blue]