procedure TForm1.btn1Click(Sender: TObject);
var
h: HWnd;
p: array[0..254] of char;
TitleStr: string;
begin
h := GetWindow(Handle, GW_HWNDFIRST);
while h <> 0 do
begin
if GetWindowText(h, @p, 255) > 0 then
begin
TitleStr := StrPas(p);
if AnsiPos('计算器',TitleStr)>0 then
//查找比较是否>0
begin
mmo1.Lines.Add(p);
end;
end;
h := GetWindow(h, GW_HWNDNEXT);
end;
end;
网上de坏人
CSDN认证博客专家
CSDN认证企业博客
您愿意向朋友推荐“博客详情页”吗?
强烈不推荐
不推荐
一般般
推荐
强烈推荐
提交
成就一亿技术人!
hope_wisdom 发出的红包
实付元使用余额支付
点击重新获取
钱包余额
0
抵扣说明: 1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。余额充值
}