遍历进程得到匹配的窗口标题

冥界3大法王 发表于 2019-12-11 12:19

本帖最后由冥界3大法王于 2019-12-11 12:23 编辑

procedure TForm1.Button3Click(Sender: TObject);
var
hCurrentWindow: hWnd;
szText: array of char;
begin
ListBox1.Clear;
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST); //获取第一个窗口的句柄
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, szText, 255) > 0 then //获取窗口的名称
begin
//ListBox1.Items.Add(StrPas(szText));    //获取下一窗口的句柄
   if (POS('- x32dbg', StrPas(szText)) > 0) or (POS('- x64dbg', StrPas(szText)) > 0) then
   ShowMessage(StrPas(szText));
end;
hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;

冥界3大法王 发表于 2019-12-11 14:30

panwanpeng 发表于 2019-12-11 14:15
大法王大佬，为何用而不用Python呢，好不容易Python入门啊，这个看不懂呢

@panwanpeng
各有各的用处
那个python搞界面，生成EXE，体积大了七倍
这个出道的年头也够久了，并且程序依然在更新
无数共享软件还得靠它，用途不同，学习成本一样。

冥界3大法王 发表于 2019-12-11 12:23

服务器返回错误（493）图片传挂了。{:301_993:}

pwp 发表于 2019-12-11 14:15

大法王大佬，为何用而不用Python呢，好不容易Python入门啊，这个看不懂呢

lorzl 发表于 2020-8-13 09:20

我只好奇法王是汉子还是妹子

c03xp 发表于 2020-8-13 10:58

这个过程厉害，干坏事必须用这个

页: [1]

吾爱破解 - 52pojie.cn's Archiver

遍历进程得到匹配的窗口标题