setcapture(handle)为啥只监控一次鼠标点击啊??只能监控鼠标一次点击呢?再点击咋监控不了呢?如何让监控保持一段时间呢??procedure TForm1.btn1Click(Sender: TObject);
begin
setcapture(handle); // 设置捕获鼠标输入
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pt: TPoint;
arr: array[0..254] of Char;
i: integer;
classid:string;
begin
StrClassName:='';
if GetCursorPos(pt) then {如果能获取点}
begin
h:=SmallestWindowFromPoint(pt);
GetParentName(h);
i:= HWNDList.IndexOf(inttostr(h));
if i<>0 then
begin
classid:=classidList.Strings[i];
end;
mmo1.Lines.add('--------');
mmo1.Lines.add('句柄:'+inttostr(h));
mmo1.Lines.add('classid: '+classid);
mmo1.Lines.add('父类id:'+StrClassName);
mmo1.Lines.add('--------');
end;end;
begin
setcapture(handle); // 设置捕获鼠标输入
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pt: TPoint;
arr: array[0..254] of Char;
i: integer;
classid:string;
begin
StrClassName:='';
if GetCursorPos(pt) then {如果能获取点}
begin
h:=SmallestWindowFromPoint(pt);
GetParentName(h);
i:= HWNDList.IndexOf(inttostr(h));
if i<>0 then
begin
classid:=classidList.Strings[i];
end;
mmo1.Lines.add('--------');
mmo1.Lines.add('句柄:'+inttostr(h));
mmo1.Lines.add('classid: '+classid);
mmo1.Lines.add('父类id:'+StrClassName);
mmo1.Lines.add('--------');
end;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货