?? adslstringres.pas
字號:
unit ADSLStringRes;
interface
uses
Windows;
const
RAS_MaxDeviceType = 16; //設(shè)備類型名稱長度
RAS_MaxEntryName = 256; //連接名稱最大長度
RAS_MaxDeviceName = 128; //設(shè)備名稱最大長度
RAS_MaxIpAddress = 15; //IP地址的最大長度
RASP_PppIp = $8021; //撥號連接的協(xié)議類型,該數(shù)值表示PPP連接
type
HRASCONN = DWORD; //撥號連接句柄的類型
RASCONN = record //活動(dòng)的撥號連接的句柄和設(shè)置信息
dwSize: DWORD;
//該結(jié)構(gòu)所占內(nèi)存的大小(Bytes),一般設(shè)置為SizeOf(RASCONN)
hrasconn: HRASCONN; //活動(dòng)連接的句柄
szEntryName: array[0..RAS_MaxEntryName] of char;
//活動(dòng)連接的名稱
szDeviceType: array[0..RAS_MaxDeviceType] of char;
//活動(dòng)連接的所用的設(shè)備類型
szDeviceName: array[0..RAS_MaxDeviceName] of char;
//活動(dòng)連接的所用的設(shè)備名稱
end;
TRASPPPIP = record //活動(dòng)的撥號連接的動(dòng)態(tài)IP地址信息
dwSize: DWORD;
//該結(jié)構(gòu)所占內(nèi)存的大小(Bytes),一般設(shè)置為SizeOf(TRASPPPIP)
dwError: DWORD; //錯(cuò)誤類型標(biāo)識符
szIpAddress: array[0..RAS_MaxIpAddress] of char;
//活動(dòng)的撥號連接的IP地址
end;
//獲取所有活動(dòng)的撥號連接的信息(連接句柄和設(shè)置信息)
function RasEnumConnections(var lprasconn: RASCONN;
//接收活動(dòng)連接的緩沖區(qū)的指針
var lpcb: DWORD; //緩沖區(qū)大小
var lpcConnections: DWORD //實(shí)際的活動(dòng)連接數(shù)
): DWORD; stdcall;
function RasEnumConnections; external 'Rasapi32.dll' name 'RasEnumConnectionsA';
//獲取指定活動(dòng)的撥號連接的動(dòng)態(tài)IP信息
function RasGetProjectionInfo(
hrasconn: HRasConn; //指定活動(dòng)連接的句柄
rasprojection: DWORD; //RAS連接類型
var lpprojection: TRASPPPIP; //接收動(dòng)態(tài)IP信息的緩沖區(qū)
var lpcb: DWord //接收緩沖區(qū)的大小
): DWORD; stdcall;
function RasGetProjectionInfo; external
'Rasapi32.dll' name 'RasGetProjectionInfoA';
const
Str1 = '本月用時(shí):';
Str2 = '本次用時(shí):';
Str3 = '本次開始時(shí)間:';
TabStr = ' ';
var
Path: string; //程序所在的目錄位置
implementation
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -