不知道是不是这样 用timer组件: var h:Thandle; text:array[0..255] of char; begin h:=getwindow(handle,gw_hwndfirst); while h <> 0 do begin if getwindowtext(h,@text,255) > 0 then if strpas(text)='关闭 windows' then showmessage('关闭windows窗体被激活'); h:=getwindow(h,gw_hwndnext); end end;
----------------------------------------------
-