哪位朋友帮我把C++程序改成Delphi程序,该程序的作用是“通过托盘图标得到该所属进程”(50分)

ahui · 2006-07-12

哪位朋友帮我把C++程序改成Delphi程序,该程序的作用是“通过托盘图标得到该所属进程” C++程序如下： void CTrayDlg::OnButton1() { // TODO: Add your control notification handler code here HWND wd = ::FindWindow("Shell_TrayWnd", NULL); if (wd == NULL) { MessageBox("Error1&quot

; return; } HWND wtd = FindWindowEx(wd, NULL, "TrayNotifyWnd", NULL); if (wtd == NULL) { MessageBox("Error2&quot

; return; } HWND wd1 = FindWindowEx(wtd, NULL, "SysPager", NULL); HWND wd2; if (wd1 == NULL) { wd2 = FindWindowEx(wtd, NULL, "ToolbarWindow32", NULL); } else { wd2 = FindWindowEx(wd1, NULL, "ToolbarWindow32", NULL); } if (wd2 == NULL) { MessageBox("Error3&quot

; return; } DWORD pid; pid = 0; GetWindowThreadProcessId(wd2, &pid); if (pid == NULL) { MessageBox("Error4&quot

; return; } HANDLE hd = OpenProcess(PROCESS_QUERY_INFORMATION | PROCESS_ALL_ACCESS, true, pid); if (hd == NULL) { MessageBox("Error5&quot

; return; } int num = ::SendMessage(wd2, TB_BUTTONCOUNT, NULL, NULL); int i; unsigned long n; TBBUTTON p, * pp; CString x; wchar_t name[256]; unsigned long whd,proid; CString temp; TBBUTTON* sp; sp = (TBBUTTON *) 0x20f00; for (i = 0; i < num; i++) { ::SendMessage(wd2, TB_GETBUTTON, i, (LPARAM) sp); pp = &p; ReadProcessMemory(hd, sp, pp, sizeof(p), &n); //    x.Format("%x %x %x %x  %x %x",p.iBitmap,p.idCommand,p.fsState,p.fsStyle,  p.dwData, p.iString); name[0] = 0; if (p.iString != 0xffffffff) { try { ReadProcessMemory(hd, (void *) p.iString, name, 255, &n); name[n] = 0; } catch (...) { } //    x+=" "; //    x+=name; temp = name; try { whd = 0; ReadProcessMemory(hd, (void *) p.dwData, &whd, 4, &n); } catch (...) { } proid = 0; GetWindowThreadProcessId((HWND) whd, &proid); x.Format("位置=%d 名称=%s 窗口句柄=%08x 进程ID=%08x", i, (LPCTSTR) temp, whd, proid); MessageBox(x); } } }

大唐电信 · 2006-07-13

procedure TForm1.Button1Click(Sender: TObject); var v_hShellTray:  THandle; v_hTrayNotify: THandle; v_hToolBar:    THandle; i,j,k:integer;   Info:   _TBBUTTON; buffer

char; PID:   THandle; PRC:   THandle; R:   Cardinal; S:array[0..1024] of char; MaxWidth: integer; whd,proid:thandle; name: array[0..254] of char; begin  k:=0;  CheckListBox1.Items.Clear;  v_hShellTray := FindWindow('Shell_TrayWnd', nil);  v_hTrayNotify := FindWindowEx(v_hShellTray, 0, 'TrayNotifyWnd', nil);  v_hToolBar := FindWindowEx(v_hTrayNotify, 0, 'ToolbarWindow32', nil);  GetWindowThreadProcessId(v_hToolBar,   @PID);  PRC   :=   OpenProcess(PROCESS_VM_OPERATION   or   PROCESS_VM_READ   or   PROCESS_VM_WRITE,   False,   PID);  Buffer   :=   VirtualAllocEx(PRC,   nil,   4096,   MEM_RESERVE   or   MEM_COMMIT,   PAGE_READWRITE);  j:=SendMessage(v_hToolBar,TB_BUTTONCOUNT,0,0);  for i:=0 to j-1 do  begin     FillChar(Info,   SizeOf(Info),   0);     WriteProcessMemory(PRC,   Buffer,   @Info,   SizeOf(Info),   R);     SendMessage(v_hToolBar,   TB_GETBUTTON,   i,   integer(Buffer));     ReadProcessMemory(PRC,   Buffer,   @Info,   SizeOf(Info),   R);     if  Info.iString<>-1 then     begin      k:=k+1;      //得到图标所属的窗口和窗口所属的进程ID      ReadProcessMemory(PRC,Pointer(Info.dwData), @whd, 4, R);      proid := 0;      GetWindowThreadProcessId(whd,@proid);       //得到名称        //ReadProcessMemory(PRC,Pointer(Info.iString), @name[0],255, R);    没用得出来全是乱嘛      if  not Boolean(SendMessage(v_hToolBar,   TB_ISBUTTONHIDDEN,   Info.idCommand,   0)) then      begin          SendMessage(v_hToolBar,   TB_GETBUTTONTEXT,   Info.idCommand,   integer(integer(@Buffer[0])   +   SizeOf(Info)));          ReadProcessMemory(PRC,   Pointer(integer(@Buffer[0])   +   SizeOf(Info)),   @S[0],   SizeOf(S),   R);          id[k-1]:= Info.idCommand;          CheckListBox1.Items.Add(S+'--进程ID:'+inttostr(proid));          CheckListBox1.Checked[k-1]:=false;      end      else      begin          SendMessage(v_hToolBar,   TB_GETBUTTONTEXT,   Info.idCommand,   integer(integer(@Buffer[0])   +   SizeOf(Info)));          ReadProcessMemory(PRC,   Pointer(integer(@Buffer[0])   +   SizeOf(Info)),   @S[0],   SizeOf(S),   R);          id[k-1]:= Info.idCommand;          CheckListBox1.Items.Add(S);          CheckListBox1.Checked[k-1]:=true;      end;    end;  end;  VirtualFreeEx(PRC,   Buffer,   0,   MEM_RELEASE);  CloseHandle(PRC);  MaxWidth := 0;  for i := 0 to CheckListBox1.Items.Count - 1 do  if MaxWidth < CheckListBox1.Canvas.TextWidth(CheckListBox1.Items.Strings) then    MaxWidth := CheckListBox1.Canvas.TextWidth(CheckListBox1.Items.Strings);  SendMessage(CheckListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+40, 0); end;

ahui · 2006-07-16

非常谢谢大唐电信,不过有一个问题,要注意在Win2003下ToolbarWindow32是在SysPager下面,所以代码要想在2003下运行,则应做如下改动 v_hToolBar := FindWindowEx(FindWindowEx(v_hTrayNotify, 0, 'SysPager', nil), 0, 'ToolbarWindow32', nil);  if v_hToolBar = 0 then    v_hToolBar := FindWindowEx(v_hTrayNotify, 0, 'ToolbarWindow32', nil);

哪位朋友帮我把C++程序改成Delphi程序,该程序的作用是“通过托盘图标得到该所属进程”(50分)

ahui

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

ahui

Unregistered / Unconfirmed

Similar threads