var
; ;hCurWindow: HWnd; ;// 窗口句柄
; ;WinText: array [0..255] of char;
; ;s:string; ;
begin
; ; ;s:='';
; ; ;result:=False;//不在
; ; ;// 获取第一个窗口的句柄
; ; ;hCurWindow := GetWindow(Handle, GW_HWNDFIRST);
; ; ;while hCurWindow <> 0 do
; ; ;begin
; ; ; ; ; // 获取窗口的名称
; ; ; ; ; if GetWindowText(hCurWindow, @WinText, 255)>0 then
; ; ; ; ; ; ;s:=s+StrPas(@WinText)+#10;
; ; ; ; ; if pos('美萍安全',s) > 0 then
; ; ; ; ; begin
; ; ; ; ; ; ;result:=True;//还在
; ; ; ; ; ; ;exit;
; ; ; ; ; end;
; ; ; ; ; // 获取下一个窗口的句柄
; ; ; ; ; hCurWindow:=GetWindow(hCurWindow, GW_HWNDNEXT);
; ; ;end;