Delphi如何遍历任务栏上的窗体

时间：2011/9/3 14:53:58 点击：

　　核心提示：uses CommCtrl;procedure TForm1.Button1Click(Sender: TObject);varvHandle: THandle;vCount: Integer;I:...

uses CommCtrl; procedure TForm1.Button1Click(Sender: TObject); var vHandle: THandle; vCount: Integer; I: Integer; vProcessID: THandle; vProcess: THandle; vNumberOfBytesRead: DWORD; vPointer: Pointer; vBuffer: array[0..255] of Char; begin vHandle := FindWindow('Shell_TrayWnd', nil); vHandle := FindWindowEx(vHandle,0,'ReBarWindow32', nil); vHandle := FindWindowEx(vHandle,0,'MSTaskSwWClass', nil); vHandle := FindWindowEx(vHandle,0,'ToolbarWindow32', nil); vCount := SendMessage(vHandle, TB_BUTTONCOUNT,0,0); GetWindowThreadProcessId(vHandle,@vProcessId); vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, vProcessId); vPointer := VirtualAllocEx(vProcess, nil,$1000, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE); try for I :=0 to vCount -1 do begin SendMessage(vHandle, TB_GETBUTTONTEXT, I, Integer(vPointer)); ReadProcessMemory(vProcess, vPointer,@vBuffer, SizeOf(vBuffer), vNumberOfBytesRead); OutputDebugString(@vBuffer); end; finally VirtualFreeEx(vProcess, vPointer,0, MEM_RELEASE); CloseHandle(vProcess); end; end;