1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

var
  ben, zona, ama, selha: THandle;
  ListView: hWnd;
  PTBButton: ^TTBButton;
  Amiga2: TTBButton;
  pid: dword;  // process ID
  ph: dword;  // process handle
  c1: dword;  // dummy variable


begin
  ben := FindWindow('IEframe', nil);
  zona := FindWindowEx(ben, 0, 'WorkerW', nil);
  ama :=FindWindowEx(zona, 0, 'ReBarWindow32', nil);
  selha :=FindWindowEx(ama, 0, 'Toolbarwindow32', nil);

  // ask the process ID of the other process
  GetWindowThreadProcessID(selha, @pid);

  // open the other process
  ph := OpenProcess(PROCESS_ALL_ACCESS, false, pid);

  // allocate memory in the other process
  PTBButton := VirtualAllocEx(ph, nil, sizeOf(TTBButton), MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  SendMessage (selha, TB_GETBUTTON, 1, Integer(PTBButton));
  // read the item back from the other process

  ReadProcessMemory(ph, PTBButton, @Amiga2, SizeOf(TTBButton), c1);
  // free the memory of the other process
  
  VirtualFreeEx(ph, PTBButton, 0, MEM_RELEASE);
  // close handle
  CloseHandle(ph);

  // now do whatever you please with Amiga2

end;					

1:
2:
3:
4:
5:

GetCursorPos(pt);
hw := WindowFromPoint(pt);

GetClassName(hw, chrN, SizeOf(chrN));
GetWindowText(hw, chrN, SizeOf(chrN));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

function TForm1.ToolbarAuslesen(tbH:HWND; itin:integer):String;
var

  MemLocal:Pointer;
  MemRemote:Pointer;

  pid: dword;  // process ID
  ph: dword;  // process handle
  c1: dword;  // dummy variable
  myText:string;
  NumBytes:Cardinal;
  Size:Cardinal;
  
begin

  // ask the process ID of the other process
  GetWindowThreadProcessID(tbH, @pid);

  // open the other process
  ph := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, false, pid);

  // allocate memory in the other process
  Size := SizeOf(TTBButtonInfo) + SizeOf(Char)*MAX_PATH + 1;

  MemRemote := VirtualAllocEx(ph, nil, sizeOf(TTBButtonInfo), MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
  MemLocal :=  VirtualAlloc(nil, SizeOf(TTBButtonInfo), MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);

  if Assigned(MemLocal) and Assigned(MemRemote) then
  try
    ZeroMemory(MemLocal, SizeOf(TTBButtonInfo));

    with PTBButtoninfo(MemLocal)^ do
    begin
     dwMask := TBIF_TEXT;
     cbSize := SizeOf(TTBButtonInfo);
     pszText := LPTSTR(Cardinal(MemRemote)+Cardinal(SizeOf(TBButtonInfo)));
     cchText := MAX_PATH;
    end;

    NumBytes := 0;

    WriteProcessMemory(ph, MemRemote, MemLocal, Size, NumBytes);
    SendMessage(tbH, TB_GETBUTTONINFO, itin, LPARAM(MemRemote));
    ReadProcessMemory(ph, MemRemote, MemLocal, Size, NumBytes);

    Result := string(PChar(Cardinal(MemLocal)+Cardinal(SizeOf(TTBButtonInfo))));

   except
     //Alle Exception ignorieren
     showmessage('Exception');
   end;

   if Assigned(MemRemote) then
     VirtualFreeEx(ph, MemRemote, 0, MEM_RELEASE);
   if Assigned(MemLocal) then
     VirtualFree(MemLocal, 0, MEM_RELEASE);

   CloseHandle(ph);

end;