极点博客 - 青色咖啡的博客

function TFrmCheckOnline.CheckOffline: boolean;
var
  ConnectState: DWORD;
  StateSize: DWORD;
begin
  ConnectState:= 0;
  StateSize:= SizeOf(ConnectState);
  InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize);
  if (ConnectState and INTERNET_STATE_DISCONNECTED) =
  INTERNET_STATE_DISCONNECTED then
    result:= true
  else
    result:= false;
end;
procedure TFrmCheckOnline.BtnCheckClick(Sender: TObject);
begin
  ani.Visible:=true;
  if CheckOffline then
  begin
    ani.Active:=false;
    showmessage('没在线！');
  end
  else
  begin
    ani.Active:=true;
    showmessage('在线！');
  end;
end;