Handle

Procedure TForm1.GetHandles;
var
  Buff: Array[0..255] of Char;
Begin
  Hwd := FindWindow(nil, 'Intranet Chat');
  IChatHandle := Hwd;
  Hwd := GetWindow(Hwd, GW_CHILD);
  While Hwd <> 0 Do
    Begin
      Buff := '';
      GetClassName(Hwd, Buff, SizeOf(Buff));
      If Buff = 'TPanel' Then
        Begin
          Buff := '';
          GetWindowText(Hwd, Buff, SizeOf(Buff));
          If Buff = 'PanelMainToolbar' Then Break;
        End;
      Hwd := GetWindow(Hwd, GW_HWNDNEXT);
    End;
  Hwd := GetWindow(Hwd, GW_CHILD);
  While Hwd <> 0 Do
    Begin
      Buff := '';
      GetClassName(Hwd, Buff, SizeOf(Buff));
      If Buff = 'TPanel' Then Break;
      Hwd := GetWindow(Hwd, GW_HWNDNEXT);
    End;
  Hwd := GetWindow(Hwd, GW_CHILD);
  Hwd := GetWindow(Hwd, GW_CHILD);
  Restart := FALSE;
End;