delphi 如何通过托盘图标，获取进程PID

2012-06-16 08:46:24 306 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

5分钟搞懂异构图注意力网络（HAN）：从元路径到节点聚合的全流程解析本文深入解析异构图注意力网络（HAN）的核心原理与实战应用，从元路径设计到多级注意力实现的全流程。HAN通过节点级和语义级双重注意力机制，有效处理包含多种节点和边类型的异构图数据，在电商推荐、学术网络分析等场景展现卓越性能。文章提供DGL实现代码和调参技巧，帮助开发者快速掌握这一强大工具。阅读详情

下面给出获取所有托盘图标的hint，但是要怎么样才可以通过这个获取到对应的进程PID呢，高手请帮忙，小弟感激不尽！

function TrayHWnd: HWND;

var

  h,hTmp: HWND;

begin

  h := FindWindow('Shell_TrayWnd', nil);

  h := FindWindowEx(h, 0, 'TrayNotifyWnd', nil);

  hTmp := FindWindowEx(h, 0, 'SysPager', nil);

  if hTmp <> 0 then h := hTmp;

  hTmp := FindWindowEx(h, 0, 'ToolbarWindow32', nil);

  if hTmp <> 0 then h := hTmp;

  Result := h;

end;

{提取列表}

procedure TForm1.Button1Click(Sender: TObject);

var

  h: HWND;

  count,size,num: Cardinal;

  pid, ph: Cardinal;

  p: Pointer;

  icoBtn: TTBButton;

  buf: array[0..255] of WideChar;

  i: Integer;

  item: TListItem;

begin

  h := TrayHWnd;

  count := SendMessage(h, TB_BUTTONCOUNT, 0, 0);

  size := SizeOf(TTBButton);



  GetWindowThreadProcessId(h, pid);

  ph := OpenProcess(PROCESS_VM_READ, False, pid);



  for i := 0 to count - 1 do

  begin

    SendMessage(h, TB_GETBUTTON, i, DWORD(p));

    ReadProcessMemory(ph, p, @icoBtn, size, num);

    ReadProcessMemory(ph, Pointer(icoBtn.iString), @buf, Length(buf)*SizeOf(buf[0]), num);

    item := ListView1.Items.Add;

    item.Caption := buf;

  end;

  CloseHandle(ph);



  Button2.Enabled := True;

  Button3.Enabled := True;

end;