用Delphi实现程序检测计算机是否连网
2008-03-13 20:18
316 查看
.首先在Uses中引用 wininet
2.写一个函数进行检测.代码如下:
{//功能:检测计算机是否上网
//返回值:成功:True 失败:False;
}
function InternetConnected:Boolean;StdCall;
const
INTERNET_CONNECTION_MODEM=1;
INTERNET_CONNECTION_LAN=2;
INTERNET_CONNECTION_PROXY=4;
INTERNET_CONNECTION_MODEM_BUSY=8;
var
dwConnectionTypes:DWORD;
begin
dwConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
Result:=InternetGetConnectedState(@dwConnectionTypes,0);
end;
3.可以在你程序中调用进行检测.如:
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetConnected=true then
Application.MessageBox(PChar('网络连接成功'),PChar('系统提示'),MB_OK+MB_ICONINFORMATION)
else
begin
Application.MessageBox(PChar('网络没有连接上.请检测'),PChar('系统提示'),MB_OK+MB_ICONINFORMATION);
end;
end;
1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934
2.写一个函数进行检测.代码如下:
{//功能:检测计算机是否上网
//返回值:成功:True 失败:False;
}
function InternetConnected:Boolean;StdCall;
const
INTERNET_CONNECTION_MODEM=1;
INTERNET_CONNECTION_LAN=2;
INTERNET_CONNECTION_PROXY=4;
INTERNET_CONNECTION_MODEM_BUSY=8;
var
dwConnectionTypes:DWORD;
begin
dwConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
Result:=InternetGetConnectedState(@dwConnectionTypes,0);
end;
3.可以在你程序中调用进行检测.如:
procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetConnected=true then
Application.MessageBox(PChar('网络连接成功'),PChar('系统提示'),MB_OK+MB_ICONINFORMATION)
else
begin
Application.MessageBox(PChar('网络没有连接上.请检测'),PChar('系统提示'),MB_OK+MB_ICONINFORMATION);
end;
end;
1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934
相关文章推荐
- 用Delphi实现程序检测计算机是否连网
- [代码]Delphi实现检测程序是否在VMWare中运行
- [代码]Delphi实现检测程序是否在VMWare中运行
- Delphi 中实现判断某个外部程序是否运行(如果运行则执行一个命令否则执行一个命令)
- 关于“如何检测节点网络中是否存在闭环之java实现”的程序bug修复
- Delphi 实现检测线程类TThread是否结束
- Delphi 实现检测线程类TThread是否结束
- delphi不同计算机程序间通信用TServerSocket实现
- GTK 程序 检测 网线是否连接 本地网络状态 C语言实现
- Delphi 实现检测线程类TThread是否结束
- opencv2实现多张图片路线路牌检测_计算机视觉大作业2
- [原创] 用Delphi实现控制IE窗体的大小——IESizer程序原理分析 (2003-12)
- 我安装 Visual Studio.NET的时候老提示“安装程序检测到另一上程序要求计算机重新启动”
- 编写一个单文档界面应用程序,该程序可以测试在鼠标左键按下时鼠标光标的位置是否处在某规定的矩形框内,如果不在该矩形内则计算机的扬声器会发出“叮”的声音,反之则会在用户区显示光标的位置。
- 检测Android是否安装了某个程序
- Delphi 实现程序 动态 类名
- 毕业设计(十)---用DWR实现 代替AJAX 用户注册检测用户名是否已经存在
- 安装vs2003一开始,安装程序检测到另一个程序要求计算机重新启动,重启n次无效 的问题
- 用C++ Builder实现网络连接检测程序
- JQuery调webservice实现邮箱验证(检测是否可用)