以下转载:
===============================================================================
procedure TForm1.Timer1Timer(Sender: TObject);
var
h: HWnd;
Text: array [0..255] of char;
begin
h:=GetWindow(Handle, GW_HWNDFIRST);
while h <>
0do
begin
if GetWindowText(h, @Text, 255)>0 then
if GetClassName(h, @Text, 255)>0 then
if (StrPas(Text)='CabinetWClass') or (StrPas(Text)='IEFrame') then
PostMessage(h,WM_CLOSE,0,0);
//关闭IE窗口
h:=GetWindow(h, GW_HWNDNEXT);
end;
end;
想知道有没有不用 TTimer 的方法,用Hook。(最近对Hook感兴趣)