Как прочитать текст с статус бара чужой программы?

[fevz]

Нужно как-то найти текст с статус бара.Таким образом я нахожу текст с главного окна

function find_main_w(): HWND;
var
  hWndTemp: hWnd;
  iLenText: Integer;
  cTitletemp,cClasstemp: array [0..254] of Char;
  sTitleTemp,sClassTemp: string;
begin
  hWndTemp := FindWindow(nil, nil);
  while hWndTemp <> 0 do begin
	  // title
    iLenText := GetWindowText(hWndTemp, cTitletemp, 255);
    sTitleTemp := cTitletemp;
    sTitleTemp := Trim(sTitleTemp);
	  // class
	  iLenText := GetClassName(hWndTemp,cClasstemp,254);
	  sClassTemp := cClasstemp;
	  sClassTemp := Trim(sClassTemp);
    if pos( 'Etxt Антиплагиат', sTitleTemp ) <> 0  then
		if (sClassTemp = 'WindowsForms10.Window.8.app.0.378734a') then
			Break;
    hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
  end;
  result := hWndTemp;
end;



procedure TForm1.Button1Click(Sender: TObject);

var
  hMain :HWND;
  
begin
  // init
  hMain := find_main_w();
  if hMain<>0  then begin
  showmessage ('GOOD');
  end else  showmessage ('BAD');
end;

А как с статус бара?Чёт у мя не получается совсем.

[777user777]

var
h:HWND;
cClasstemp: array [0..256] of Char;
begin
h:=FindWindow('класс окна','заголовок окна');
h:=FindWindowEx(h,0,'класс статус бара',nil);
GetWindowText(h,text,256);