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

冥界3大法王

[Delphi] 纯文本查看 复制代码

procedure TForm1.Button3Click(Sender: TObject);
var
  hCurrentWindow: hWnd;
  szText: array[0..254] 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大法王

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

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

冥界3大法王

服务器返回错误（493）图片传挂了。

pwp

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

lorzl

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

c03xp

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