Werte aus der Statusleiste eines fremden Programms erhalten

[Cuchulainn]

Okay, das war mein Fehler. Tut mir leid. Ich habe viel auskommentiert und gelöscht. Dabei hat es die falschen Textstellen erwischt.

Hier ist der richtige Text:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var finder: THandle;
    finder2: THandle;
    text: pchar;
begin
     text := StrAlloc(20);
     finder := FindWindow('IEFrame', 'about:blank - Microsoft Internet Explorer');
     if finder <> 0 then
     begin
          finder2 := FindWindowEx(finder, 0, 'msctls_statusbar32', Nil);
     end;
     if finder2 <> 0 then
     begin
          SendMessage(finder2, SB_GETTEXT, 0, LongInt(text));
     end;
     Edit1.Text := StrPas(text);
     StrDispose(text);
end;