Question

如何在DELPHI中使用InternetGetConnectedState这个API函数

Answer 1

解决方案:
procedure TForm1.Button1Click(Sender: TObject);
var
Types : Integer;
begin
{ CopyRight (C) Bowman }
{ MatthewBowman@21cn.com }
Types := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
//check 3 conditions together
if InternetGetConnectedState(@types, 0) then
Edit1.Text := 'your pc is Online now'
else
Edit1.Text := 'your pc is offline now';
end;

以上介绍了“ 如何在DELPHI中使用InternetGetConnectedState这个API函数？”的问题解答，希望对有需要的网友有所帮助。