Ich habe folgendes Problem: Wir benutzen in unserer Firma ein Programm, dessen Statusleiste ich auslesen soll. Da niemand von euch das Programm kennen wird, verwende ich in meinem Quelltext, den ich hier poste, den Internet Explorer. Ich habe das eben nur geschrieben um zu sagen, dass mir irgendwelche Automationsschittstellen für den Internet Explorer nicht weiterhelfen, da ich auf ein anderes Programm zugreifen möchte.
Mein Quelltext sieht bis jetzt folgendermaßen aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var finder: THandle;
finder2: THandle;
text2: pchar;
begin
text1 := 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(text2);
StrDispose(text2);
Ein Programmierlehrer hat mir erklärt wie das mit C++ funktionieren würde. Leider kennt er sich mit Delphi überhaupt nicht aus. Das Prinzip von seinem C++-Quelltext habe ich übernommen. Es funktioniert auch ohne Fehlermeldung, leider wird mir in Edit1 nichts ausgegeben.
Kann mir da vielleicht jemand weiterhelfen?