摘要：
function IsPortUsed(aPort: Integer): Boolean; var _vSock: TSocket; _vWSAData: TWSAData; _vAddrIn: TSockAddrIn; begin Result := False; if WSAStartup(MA 阅读全文
摘要：
var Str1, Str2: Array[1..Max_Path]of Char;//开辟缓冲区 Str3: Array[1..127]of Char; begin GetWindowsDirectory(@Str1, 256);//调用API函数获取Windows目录信息 GetSystemDi 阅读全文