深藍色論壇

代碼: 選擇全部

     
    uses Wininet .. 
    ... 
    procedure Tform1.Button3Click(Sender: TObject); 
    var 
      state: LONGWORD; 
    begin 
      if InternetGetConnectedState( @state, 0) then 
        showmessage('connected!') 
      else 
        showmessage('not connected!'); 
    end;