S
seucag
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
var hwnd_oicq:HWND;
begin
hwnd_oicq:=findwindow('#32770',nil);
hwnd_oicq:=getparent(hwnd_oicq);
if hwnd_oicq <>0 then
begin
sendmessage(hwnd_oicq,WM_CLOSE,0,0);
end;
end;
：#32770代表什么？
OICQ窗口的标题吗？！
procedure TForm1.BitBtn1Click(Sender: TObject);
var hwnd_oicq:HWND;
begin
hwnd_oicq:=findwindow('#32770',nil);
hwnd_oicq:=getparent(hwnd_oicq);
if hwnd_oicq <>0 then
begin
sendmessage(hwnd_oicq,WM_CLOSE,0,0);
end;
end;
：#32770代表什么？
OICQ窗口的标题吗？！