1:

  h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure HideTBEntry;
var h: THandle; Nr: integer; A:integer; Item:TCItem;
begin
      h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'ReBarWindow32', nil);
      h:=FindWindowEx(h,0,'MSTaskSwWClass',nil);
      h:=FindWindowEx(h,0,'SysTabControl32',nil);

      Nr:=SendMessage(h,TCM_GETITEMCOUNT,0,0);
      Item:=SendMessage(h,TCM_GETITEM,1, Integer(@Item));
end;                    

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:

      h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'ReBarWindow32', nil);
      h:=FindWindowEx(h,0,'MSTaskSwWClass',nil);
      h:=FindWindowEx(h,0,'SysTabControl32',nil);

      Nr:=SendMessage(h,TCM_GETITEMCOUNT,0,0);

      ProcessId := 0;
      GetWindowThreadProcessId(h, @ProcessId);
      // Prozess öffnen
      {True}Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_OPERATION or
        PROCESS_VM_READ or PROCESS_VM_WRITE, False, ProcessId);

      Size := SizeOf(TtcItem);
      {True}MemLocal := VirtualAlloc(nil, Size, MEM_COMMIT, PAGE_READWRITE);
      {True}MemRemote := VirtualAllocEx(Process, nil, Size, MEM_COMMIT, PAGE_READWRITE);

      for A:= 0 to Nr do



        begin

            ZeroMemory(MemLocal, SizeOf(TtcItem));

            MemLocal^.mask := TCIF_TEXT;
            MemLocal^.pszText := 'TEST';
            MemLocal^.cchTextMax:=256;

            NumBytes:=0;
            {True}WriteProcessMemory(Process, MemRemote, MemLocal, Size, NumBytes); // Struktur in den Remoteprozess kopieren
            {True}SendMessage(h, TCM_GETITEM, 0, integer(MemRemote)); // Struktur im Remoteprozess füllen
            {True}ReadProcessMemory(Process, MemRemote, MemLocal, Size, NumBytes); // Struktur in die lokale Struktur kopieren
            ShowMessage(String(MemLocal^.pszText)); //=>'TEST'
        end;
      if Assigned(MemRemote) then
        VirtualFreeEx(Process, MemRemote, 0, MEM_RELEASE);
      if Assigned(MemLocal) then
        VirtualFree(MemLocal, 0, MEM_RELEASE);
      CloseHandle(Process);