unit netFunc;
interface
uses
SysUtils
, Windows
, dialogs
, winsock
, Classes
, ComObj
, WinInet
, Variants;
//錯(cuò)誤信息常量
const
C_Err_GetLocalIp = '獲取本地ip失敗';
C_Err_GetNameByIpAddr = '獲取主機(jī)名失敗';
C_Err_GetSQLServerList = '獲取SQLServer服務(wù)器失敗';
C_Err_GetUserResource = '獲取共享資失敗';
C_Err_GetGroupList = '獲取所有工作組失敗';
C_Err_GetGroupUsers = '獲取工作組中所有計(jì)算機(jī)失敗';
C_Err_GetNetList = '獲取所有網(wǎng)絡(luò)類型失敗';
C_Err_CheckNet = '網(wǎng)絡(luò)不通';
C_Err_CheckAttachNet = '未登入網(wǎng)絡(luò)';
C_Err_InternetConnected = '沒(méi)有上網(wǎng)';
C_Txt_CheckNetSuccess = '網(wǎng)絡(luò)暢通';
C_Txt_CheckAttachNetSuccess = '已登入網(wǎng)絡(luò)';
C_Txt_InternetConnected = '上網(wǎng)了';
Const
MAX_ADAPTER_NAME_LENGTH = 256;
MAX_ADAPTER_DESCRIPTION_LENGTH = 128;
MAX_ADAPTER_ADDRESS_LENGTH = 8;
type
TIPAddressString = Array[0..4*4-1] of AnsiChar;
PIPAddrString = ^TIPAddrString;
TIPAddrString = Record
Next : PIPAddrString;
IPAddress : TIPAddressString;
IPMask : TIPAddressString;
Context : Integer;
End;
PIPAdapterInfo = ^TIPAdapterInfo;
TIPAdapterInfo = Record { IP_ADAPTER_INFO }
Next : PIPAdapterInfo;
ComboIndex : Integer;
AdapterName : Array[0..MAX_ADAPTER_NAME_LENGTH+3] of AnsiChar;
Description : Array[0..MAX_ADAPTER_DESCRIPTION_LENGTH+3] of AnsiChar;
AddressLength : Integer;
Address : Array[1..MAX_ADAPTER_ADDRESS_LENGTH] of Byte;
Index : Integer;
_Type : Integer;
DHCPEnabled : Integer;
CurrentIPAddress : PIPAddrString;
IPAddressList : TIPAddrString;
GatewayList : TIPAddrString;
End;
//注意有部分函數(shù)一定要用ansichar,ansistring
//得到本機(jī)的局域網(wǎng)Ip地址
function GetLocalIp(var LocalIp: AnsiString): Boolean;
//通過(guò)Ip返回機(jī)器名
function GetNameByIPAddr(IPAddr: Ansistring; var MacName: AnsiString): Boolean;
//獲取網(wǎng)絡(luò)中SQLServer列表
function GetSQLServerList(var List: Tstringlist): Boolean;
//獲取網(wǎng)絡(luò)中的所有網(wǎng)絡(luò)類型
function GetNetList(var List: Tstringlist): Boolean;
//獲取網(wǎng)絡(luò)中的工作組
function GetGroupList(var List: TStringList): Boolean;
//獲取工作組中所有計(jì)算機(jī)
function GetUsers(GroupName: string; var List: TStringList): Boolean;
//獲取網(wǎng)絡(luò)中的資源
function GetUserResource(IpAddr: string; var List: TStringList): Boolean;
//映射網(wǎng)絡(luò)驅(qū)動(dòng)器
function NetAddConnection(NetPath: Pchar; PassWord: Pchar; LocalPath: Pchar):
Boolean;
//檢測(cè)網(wǎng)絡(luò)狀態(tài)
function CheckNet(IpAddr: string): Boolean;
//檢測(cè)機(jī)器是否登入網(wǎng)絡(luò)
function CheckMacAttachNet: Boolean;
//判斷Ip協(xié)議有沒(méi)有安裝 這個(gè)函數(shù)有問(wèn)題
function IsIPInstalled: boolean;
//檢測(cè)機(jī)器是否上網(wǎng)
function InternetConnected: Boolean;
//關(guān)閉網(wǎng)絡(luò)連接
function NetCloseAll: boolean;
////////////////////////////////////////////////////////////////////////////////
///
Function GetAdaptersInfo(AI : PIPAdapterInfo; Var BufLen : Integer) : Integer;
StdCall; External 'iphlpapi.dll' Name 'GetAdaptersInfo';
Function MACToStr(ByteArr : PByte; Len : Integer) : String;
Function GetAddrString(Addr : PIPAddrString) : String;
implementation
{=================================================================
功能: 檢測(cè)機(jī)器是否登入網(wǎng)絡(luò)
參數(shù): 無(wú)
返回值: 成功:True失敗:False
備 注:
版 本:
1.02002/10/03 09:55:00
=================================================================}
function CheckMacAttachNet: Boolean;
begin
Result := False;
if GetSystemMetrics(SM_NETWORK) <> 0 then
Result := True;
end;
{=================================================================
功能: 返回本機(jī)的局域網(wǎng)Ip地址
參數(shù): 無(wú)
返回值: 成功:True, 并填充LocalIp 失敗:False
備 注:
版 本:
1.02002/10/02 21:05:00
=================================================================}
function GetLocalIP(var LocalIp: AnsiString): Boolean;
var
HostEnt: PHostEnt;
Ip: string;
addr: PAnsiChar;
Buffer: array[0..63] of AnsiChar;
GInitData: TWSADATA;
begin
Result := False;
try
WSAStartup(2, GInitData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(buffer);
if HostEnt = nil then
Exit;
addr := HostEnt^.h_addr_list^;
ip := Format('%d.%d.%d.%d', [byte(addr[0]),
byte(addr[1]), byte(addr[2]), byte(addr[3])]);
LocalIp := Ip;
Result := True;
finally
WSACleanup;
end;
end;
{=================================================================
功能: 通過(guò)Ip返回機(jī)器名
參數(shù):
IpAddr: 想要得到名字的Ip
返回值: 成功:機(jī)器名 失敗:''
備 注:
inet_addr function converts a string containing an Internet
Protocol dotted address into an in_addr.
版 本:
1.02002/10/02 22:09:00
=================================================================}
function GetNameByIPAddr(IPAddr: Ansistring; var MacName: AnsiString): Boolean;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
Result := False;
if IpAddr = '' then
exit;
try
WSAStartup(2, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PAnsiChar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
MacName := StrPas(Hostent^.h_name);
Result := True;
finally
WSACleanup;
end;
end;
{=================================================================
功能: 返回網(wǎng)絡(luò)中SQLServer列表
參數(shù):
List: 需要填充的List
返回值: 成功:True,并填充List失敗 False
備 注:
版 本:
1.02002/10/02 22:44:00
=================================================================}
function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetvalue: string;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add(Serverlist.item(i));
Result := True;
finally
SQLServer := NULL;
ServerList := NULL;
end;
end;
{=================================================================
功能: 判斷Ip協(xié)議有沒(méi)有安裝
參數(shù): 無(wú)
返回值: 成功:True 失敗: False;
備 注: 該函數(shù)還有問(wèn)題
版 本:
1.02002/10/02 21:05:00
=================================================================}
function IsIPInstalled: boolean;
var
WSData: TWSAData;
ProtoEnt: PProtoEnt;
begin
Result := True;
try
if WSAStartup(2, WSData) = 0 then
begin
ProtoEnt := GetProtoByName('IP');
if ProtoEnt = nil then
Result := False
end;
finally
WSACleanup;
end;
end;
{=================================================================
功能: 返回網(wǎng)絡(luò)中的共享資源
參數(shù):
IpAddr: 機(jī)器Ip
List: 需要填充的List
返回值: 成功:True,并填充List 失敗: False;
備 注:
WNetOpenEnum function starts an enumeration of network
resources or existing connections.
WNetEnumResource function continues a network-resource
enumeration started by the WNetOpenEnum function.
版 本:
1.02002/10/03 07:30:00
=================================================================}
{--------------------------------------------------------------------------------
--作者：kgdyga
--發(fā)布時(shí)間：2005-2-25 13:13:19
--}
function GetUserResource(IpAddr: string; var List: TStringList): Boolean;
type
TNetResourceArray = ^TNetResource; //網(wǎng)絡(luò)類型的數(shù)組
var
i: Integer;
Buf: Pointer;
Temp: TNetResourceArray;
lphEnum: THandle;
NetResource: TNetResource;
Count, BufSize, Res: DWord;
begin
Result := False;
List.Clear;
if copy(Ipaddr, 0, 2) <> '\\\\' then
IpAddr := '\\\\' + IpAddr; //填充Ip地址信息
FillChar(NetResource, SizeOf(NetResource), 0); //初始化網(wǎng)絡(luò)層次信息
NetResource.lpRemoteName := @IpAddr[1]; //指定計(jì)算機(jī)名稱
//獲取指定計(jì)算機(jī)的網(wǎng)絡(luò)資源句柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE, @NetResource, lphEnum);
if Res <> NO_ERROR then
exit; //執(zhí)行失敗
while True do //列舉指定工作組的網(wǎng)絡(luò)資源
begin
Count := $FFFFFFFF; //不限資源數(shù)目
BufSize := 8192; //緩沖區(qū)大小設(shè)置為8K
GetMem(Buf, BufSize); //申請(qǐng)內(nèi)存，用于獲取工作組信息
//獲取指定計(jì)算機(jī)的網(wǎng)絡(luò)資源名稱
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
if Res = ERROR_NO_MORE_ITEMS then
break; //資源列舉完畢
if (Res <> NO_ERROR) then
Exit; //執(zhí)行失敗
Temp := TNetResourceArray(Buf);
for i := 0 to Count - 1 do
begin
//獲取指定計(jì)算機(jī)中的共享資源名稱，+2表示刪除"\\\\"，
//如\\\\192.168.0.1 => 192.168.0.1
List.Add(Temp^.lpRemoteName + 2);
Inc(Temp);
end;
end;
Res := WNetCloseEnum(lphEnum); //關(guān)閉一次列舉
if Res <> NO_ERROR then
exit; //執(zhí)行失敗
Result := True;
FreeMem(Buf);
end;
{=================================================================
功能: 返回網(wǎng)絡(luò)中的工作組
參數(shù):
List: 需要填充的List
返回值: 成功:True,并填充List 失敗: False;
備注:
版本:
1.02002/10/03 08:00:00
=================================================================}
function GetGroupList(var List: TStringList): Boolean;
type
TNetResourceArray = ^TNetResource; //網(wǎng)絡(luò)類型的數(shù)組
var
NetResource: TNetResource;
Buf: Pointer;
Count, BufSize, Res: DWORD;
lphEnum: THandle;
p: TNetResourceArray;
i, j: SmallInt;
NetworkTypeList: TList;
begin
Result := False;
NetworkTypeList := TList.Create;
List.Clear;
//獲取整個(gè)網(wǎng)絡(luò)中的文件資源的句柄，lphEnum為返回名柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, nil, lphEnum);
if Res <> NO_ERROR then
exit; //Raise Exception(Res);//執(zhí)行失敗
//獲取整個(gè)網(wǎng)絡(luò)中的網(wǎng)絡(luò)類型信息
Count := $FFFFFFFF; //不限資源數(shù)目
BufSize := 8192; //緩沖區(qū)大小設(shè)置為8K
GetMem(Buf, BufSize); //申請(qǐng)內(nèi)存，用于獲取工作組信息
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
//資源列舉完畢//執(zhí)行失敗
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
Exit;
P := TNetResourceArray(Buf);
for i := 0 to Count - 1 do //記錄各個(gè)網(wǎng)絡(luò)類型的信息
begin
NetworkTypeList.Add(p);
Inc(P);
end;
Res := WNetCloseEnum(lphEnum); //關(guān)閉一次列舉
if Res <> NO_ERROR then
exit;
for j := 0 to NetworkTypeList.Count - 1 do //列出各個(gè)網(wǎng)絡(luò)類型中的所有工作組名稱
begin //列出一個(gè)網(wǎng)絡(luò)類型中的所有工作組名稱
NetResource := TNetResource(NetworkTypeList.Items[J]^); //網(wǎng)絡(luò)類型信息
//獲取某個(gè)網(wǎng)絡(luò)類型的文件資源的句柄，NetResource為網(wǎng)絡(luò)類型信息，lphEnum為返回名柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource, lphEnum);
if Res <> NO_ERROR then
break; //執(zhí)行失敗
while true do //列舉一個(gè)網(wǎng)絡(luò)類型的所有工作組的信息
begin
Count := $FFFFFFFF; //不限資源數(shù)目
BufSize := 8192; //緩沖區(qū)大小設(shè)置為8K
GetMem(Buf, BufSize); //申請(qǐng)內(nèi)存，用于獲取工作組信息
//獲取一個(gè)網(wǎng)絡(luò)類型的文件資源信息，
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
//資源列舉完畢 //執(zhí)行失敗
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
break;
P := TNetResourceArray(Buf);
for i := 0 to Count - 1 do //列舉各個(gè)工作組的信息
begin
List.Add(StrPAS(P^.lpRemoteName)); //取得一個(gè)工作組的名稱
Inc(P);
end;
end;
Res := WNetCloseEnum(lphEnum); //關(guān)閉一次列舉
if Res <> NO_ERROR then
break; //執(zhí)行失敗
end;
Result := True;
FreeMem(Buf);
NetworkTypeList.Destroy;
end;
{=================================================================
功能: 列舉工作組中所有的計(jì)算機(jī)
參數(shù):
List: 需要填充的List
返回值: 成功:True,并填充List 失敗: False;
備注:
版本:
1.02002/10/03 08:00:00
=================================================================}
function GetUsers(GroupName: string; var List: TStringList): Boolean;
type
TNetResourceArray = ^TNetResource; //網(wǎng)絡(luò)類型的數(shù)組
var
i: Integer;
Buf: Pointer;
Temp: TNetResourceArray;
lphEnum: THandle;
NetResource: TNetResource;
Count, BufSize, Res: DWord;
begin
Result := False;
List.Clear;
FillChar(NetResource, SizeOf(NetResource), 0); //初始化網(wǎng)絡(luò)層次信息
NetResource.lpRemoteName := @GroupName[1]; //指定工作組名稱
NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER; //類型為服務(wù)器（工作組）
NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
NetResource.dwScope := RESOURCETYPE_DISK; //列舉文件資源信息
//獲取指定工作組的網(wǎng)絡(luò)資源句柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource, lphEnum);
if Res <> NO_ERROR then
Exit; //執(zhí)行失敗
while True do //列舉指定工作組的網(wǎng)絡(luò)資源
begin
Count := $FFFFFFFF; //不限資源數(shù)目
BufSize := 8192; //緩沖區(qū)大小設(shè)置為8K
GetMem(Buf, BufSize); //申請(qǐng)內(nèi)存，用于獲取工作組信息
//獲取計(jì)算機(jī)名稱
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
if Res = ERROR_NO_MORE_ITEMS then
break; //資源列舉完畢
if (Res <> NO_ERROR) then
Exit; //執(zhí)行失敗
Temp := TNetResourceArray(Buf);
for i := 0 to Count - 1 do //列舉工作組的計(jì)算機(jī)名稱
begin
//獲取工作組的計(jì)算機(jī)名稱，+2表示刪除"\\\\"，如\\\\wangfajun=>wangfajun
List.Add(Temp^.lpRemoteName + 2);
inc(Temp);
end;
end;
Res := WNetCloseEnum(lphEnum); //關(guān)閉一次列舉
if Res <> NO_ERROR then
exit; //執(zhí)行失敗
Result := True;
FreeMem(Buf);
end;
{=================================================================
功能: 列舉所有網(wǎng)絡(luò)類型
參數(shù):
List: 需要填充的List
返回值: 成功:True,并填充List 失敗: False;
備 注:
版 本:
1.02002/10/03 08:54:00
=================================================================}
function GetNetList(var List: Tstringlist): Boolean;
type
TNetResourceArray = ^TNetResource; //網(wǎng)絡(luò)類型的數(shù)組
var
p: TNetResourceArray;
Buf: Pointer;
i: SmallInt;
lphEnum: THandle;
NetResource: TNetResource;
Count, BufSize, Res: DWORD;
begin
Result := False;
List.Clear;
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, nil, lphEnum);
if Res <> NO_ERROR then
exit; //執(zhí)行失敗
Count := $FFFFFFFF; //不限資源數(shù)目
BufSize := 8192; //緩沖區(qū)大小設(shè)置為8K
GetMem(Buf, BufSize); //申請(qǐng)內(nèi)存，用于獲取工作組信息
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); //獲取網(wǎng)絡(luò)類型信息
//資源列舉完畢//執(zhí)行失敗
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
Exit;
P := TNetResourceArray(Buf);
for i := 0 to Count - 1 do //記錄各個(gè)網(wǎng)絡(luò)類型的信息
begin
List.Add(p^.lpRemoteName);
Inc(P);
end;
Res := WNetCloseEnum(lphEnum); //關(guān)閉一次列舉
if Res <> NO_ERROR then
exit; //執(zhí)行失敗
Result := True;
FreeMem(Buf); //釋放內(nèi)存
end;
{=================================================================
功能: 映射網(wǎng)絡(luò)驅(qū)動(dòng)器
參數(shù):
NetPath: 想要映射的網(wǎng)絡(luò)路徑
Password: 訪問(wèn)密碼
Localpath 本地路徑
返回值: 成功:True失敗: False;
備 注:
版 本:
1.02002/10/03 09:24:00
=================================================================}
function NetAddConnection(NetPath: Pchar; PassWord: Pchar
; LocalPath: Pchar): Boolean;
var
Res: Dword;
begin
Result := False;
Res := WNetAddConnection(NetPath, Password, LocalPath);
if Res <> No_Error then
exit;
Result := True;
end;
{=================================================================
--------------------------------------------------------------------------------
--作者：kgdyga
--發(fā)布時(shí)間：2005-2-25 13:13:31
--
功能:檢測(cè)網(wǎng)絡(luò)狀態(tài)
參數(shù):
IpAddr: 被測(cè)試網(wǎng)絡(luò)上主機(jī)的IP地址或名稱，建議使用Ip
返回值: 成功:True失敗: False;
備 注:
版 本:
1.02002/10/03 09:40:00
=================================================================}
function CheckNet(IpAddr: string): Boolean;
type
PIPOptionInformation = ^TIPOptionInformation;
TIPOptionInformation = packed record
TTL: Byte; // Time To Live (used for traceroute)
TOS: Byte; // Type Of Service (usually 0)
Flags: Byte; // IP header flags (usually 0)
OptionsSize: Byte; // Size of options data (usually 0, max 40)
OptionsData: PChar; // Options data buffer
end;
PIcmpEchoReply = ^TIcmpEchoReply;
TIcmpEchoReply = packed record
Address: DWord; // replying address
Status: DWord; // IP status value (see below)
RTT: DWord; // Round Trip Time in milliseconds
DataSize: Word; // reply data size
Reserved: Word;
Data: Pointer; // pointer to reply data buffer
Options: TIPOptionInformation; // reply options
end;
TIcmpCreateFile = function: THandle; stdcall;
TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall;
TIcmpSendEcho = function(
IcmpHandle: THandle;
DestinationAddress: DWord;
RequestData: Pointer;
RequestSize: Word;
RequestOptions: PIPOptionInformation;
ReplyBuffer: Pointer;
ReplySize: DWord;
Timeout: DWord
): DWord; stdcall;
const
Size = 32;
TimeOut = 1000;
var
wsadata: TWSAData;
Address: DWord; // Address of host to contact
HostName, HostIP: string; // Name and dotted IP of host to contact
Phe: PHostEnt; // HostEntry buffer for name lookup
BufferSize, nPkts: Integer;
pReqData, pData: Pointer;
pIPE: PIcmpEchoReply; // ICMP Echo reply buffer
IPOpt: TIPOptionInformation; // IP Options for packet to send
const
IcmpDLL = 'icmp.dll';
var
hICMPlib: HModule;
IcmpCreateFile: TIcmpCreateFile;
IcmpCloseHandle: TIcmpCloseHandle;
IcmpSendEcho: TIcmpSendEcho;
hICMP: THandle; // Handle for the ICMP Calls
begin
// initialise winsock
Result := True;
if WSAStartup(2, wsadata) <> 0 then
begin
Result := False;
halt;
end;
// register the icmp.dll stuff
hICMPlib := loadlibrary(icmpDLL);
if hICMPlib <> null then
begin
@ICMPCreateFile := GetProcAddress(hICMPlib, 'IcmpCreateFile');
@IcmpCloseHandle := GetProcAddress(hICMPlib, 'IcmpCloseHandle');
@IcmpSendEcho := GetProcAddress(hICMPlib, 'IcmpSendEcho');
if (@ICMPCreateFile = nil) or (@IcmpCloseHandle = nil) or (@IcmpSendEcho =
nil) then
begin
Result := False;
halt;
end;
hICMP := IcmpCreateFile;
if hICMP = INVALID_HANDLE_value then
begin
Result := False;
halt;
end;
end
else
begin
Result := False;
halt;
end;
// ------------------------------------------------------------
Address := inet_addr(PAnsiChar(IpAddr));
if (Address = INADDR_NONE) then
begin
Phe := GetHostByName(PAnsiChar(IpAddr));
if Phe = nil then
Result := False
else
begin
Address := longint(plongint(Phe^.h_addr_list^)^);
HostName := Phe^.h_name;
HostIP := StrPas(inet_ntoa(TInAddr(Address)));
end;
end
else
begin
Phe := GetHostByAddr(@Address, 4, PF_INET);
if Phe = nil then
Result := False;
end;
if Address = INADDR_NONE then
begin
Result := False;
end;
// Get some data buffer space and put something in the packet to send
BufferSize := SizeOf(TICMPEchoReply) + Size;
GetMem(pReqData, Size);
GetMem(pData, Size);
GetMem(pIPE, BufferSize);
FillChar(pReqData^, Size, $AA);
pIPE^.Data := pData;
// Finally Send the packet
FillChar(IPOpt, SizeOf(IPOpt), 0);
IPOpt.TTL := 64;
NPkts := IcmpSendEcho(hICMP, Address, pReqData, Size,
@IPOpt, pIPE, BufferSize, TimeOut);
if NPkts = 0 then
Result := False;
// Free those buffers
FreeMem(pIPE);
FreeMem(pData);
FreeMem(pReqData);
// --------------------------------------------------------------
IcmpCloseHandle(hICMP);
FreeLibrary(hICMPlib);
// free winsock
if WSACleanup <> 0 then
Result := False;
end;
{=================================================================
功能:檢測(cè)計(jì)算機(jī)是否上網(wǎng)
參數(shù):無(wú)
返回值:成功:True失敗: False;
備 注: uses Wininet
版 本:
1.02002/10/07 13:33:00
=================================================================}
function InternetConnected: Boolean;
const
// local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_MODEM = 1;
// local system uses a local area network to connect to the Internet.
INTERNET_CONNECTION_LAN = 2;
// local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4;
// local system's modem is busy with a non-Internet connection.
INTERNET_CONNECTION_MODEM_BUSY = 8;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN
+ INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
//關(guān)閉網(wǎng)絡(luò)連接
function NetCloseAll: boolean;
const
NETBUFF_SIZE = $208;
type
NET_API_STATUS = DWORD;
LPByte = PByte;
var
dwNetRet: DWORD;
i: integer;
dwEntries: DWORD;
dwTotalEntries: DWORD;
szClient: LPWSTR;
dwUserName: DWORD;
Buff: array[0..NETBUFF_SIZE - 1] of byte;
Adword: array[0..NETBUFF_SIZE div 4 - 1] of dword;
NetSessionEnum: function(ServerName: LPSTR;
Reserved: DWORD;
Buf: LPByte;
BufLen: DWORD;
ConnectionCount: LPDWORD;
ConnectionToltalCount: LPDWORD): NET_API_STATUS;
stdcall;
NetSessionDel: function(ServerName: LPWSTR;
UncClientName: LPWSTR;
UserName: dword): NET_API_STATUS;
stdcall;
LibHandle: THandle;
begin
Result := false;
try
{ 加載 DLL }
LibHandle := LoadLibrary('svrapi.dll');
try
{ 如果加載失敗，LibHandle = 0.}
if LibHandle = 0 then
raise Exception.Create('不能加載SVRAPI.DLL');
{ DLL 加載成功，取得到 DLL 輸出函數(shù)的連接然后調(diào)用 }
@NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum');
@NetSessionDel := GetProcAddress(LibHandle, 'NetSessionDel');
if (@NetSessionEnum = nil) or (@NetSessionDel = nil) then
RaiseLastWin32Error { 連接函數(shù)失敗 }
else
begin
dwNetRet := NetSessionEnum(nil, $32, @Buff,
NETBUFF_SIZE, @dwEntries,
@dwTotalEntries);
if dwNetRet = 0 then
begin
Result := true;
for i := 0 to dwTotalEntries - 1 do
begin
Move(Buff, Adword, NETBUFF_SIZE);
szClient := LPWSTR(Adword[0]);
dwUserName := Adword[2];
dwNetRet := NetSessionDel(nil, szClient, dwUserName);
if (dwNetRet <> 0) then
begin
Result := false;
break;
end;
Move(Buff[26], Buff[0], NETBUFF_SIZE - (i + 1) * 26);
end
end
else
Result := false;
end;
finally
FreeLibrary(LibHandle); // Unload the DLL.
end;
except
end;
end;
Function MACToStr(ByteArr : PByte; Len : Integer) : String;
Begin
Result := '';
While (Len > 0) do Begin
Result := Result+IntToHex(ByteArr^,2)+'-';
ByteArr := Pointer(Integer(ByteArr)+SizeOf(Byte));
Dec(Len);
End;
SetLength(Result,Length(Result)-1); { remove last dash }
End;
Function GetAddrString(Addr : PIPAddrString) : String;
Begin
Result := '';
While (Addr <> nil) do Begin
Result := Result+'A: '+Addr^.IPAddress+' M: '+Addr^.IPMask+#13;
Addr := Addr^.Next;
End;
End;
end.
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
