100分，一个关于ie的简单问题

Question

同意楼上
先取得当前窗体的句柄HWND GetForegroundWindow(VOID);int GetClassName(
  HWND hWnd,           // handle to window
  LPTSTR lpClassName,  // class name
  int nMaxCount        // size of class name buffer
);

Answer 1

看见分数多，就写代码吧：
其中IEFrame是IE的类名，你可以用Spy++或者WinSight32查找其他（Tencent,netcaptor）的类名。
procedure TForm1.Timer1Timer(Sender: TObject);
var
  buf:array[0..254] of char;
begin
  GetClassName(GetForegroundWindow,buf,255);
  if strpas(buf)='IEFrame' then showmessage('IE Window on Top');
end;