Uffff. Jetzt hab ich dich doch 2cm vor die Lösung gesetzt.
Also mit
GetForegroundWindow holst du das
Handle des Windows, dass den Focus hat
und dann vergleichen:
Delphi-Quellcode:
if (Copy(wb.LocationURL, 1, 5) = '
http:')
and wb.Visible
and (wb.Hwnd=GetForegroundWindow)
then
begin
Memo1.Lines.Add('
========HTML===========');
Memo1.Lines.Add(Document_GetHTML(wb.Document));
end;
Am Besten die Funktion GetForegroundWindow ausserhalb der Schleife aufrufen und in lokale Variable packen.