procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TTimer(Sender).Enabled := False;
  Caption := Format('%.6f, %d', [Now, GetActiveWindow]);
  MessageBox(GetActiveWindow, '用户名和密码错误!', '错误', MB_ICONERROR OR MB_OK);
//  MessageBox(Handle, '用户名和密码错误!', '错误', MB_ICONERROR OR MB_OK);//建议用
  TTimer(Sender).Enabled := True;
end;