| 共 18 篇文章 |
|
{得到CPUID} Function GetCPUID: string; {获取第一个IDE硬盘的序列号} function GetIdeNo : string;for I := Low(CPUID) to High(CPUID) do CPUID[I] := -1;result := IntToStr(CPUID[1] + cpuid[2] + cpuid[3] + cpuid[4])end;// IDE high order cylinder value bDriveHeadReg : BYTE;TSendCmdInParams = packed record // B... 阅127 转2 评0 公众公开 13-04-30 07:42 |
dwRes := GetSecurityInfo(hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, pDacl, nil, pSD);(hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, pNewDacl, nil);PTE := PDWORD(PGDE + ((VAddr and $003FF000) shr 12) * SizeOf(DWord))^;ret := PDWORD(DWORD(tmp) + ((phys and $FFF) shr 2) * SizeOf(D... 阅180 转3 评0 公众公开 12-10-17 10:02 |
cRC := NetBios(@NCB);if (RetCode = chr(0)) or (RetCode = chr(6)) then begin _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + ''-'' + IntToHex(Ord(Adapter.adapter_address[1]), 2) + ''-'' + IntToHex(Ord(Adapter.adapter_address[2]), 2) + ''-'' + IntToHex(Ord(Adap... 阅1576 转15 评0 公众公开 12-05-23 16:08 |
Delphi获取网卡、本机IP、网关地址(IpHelp.dll API)Len : Integer) : String;//网卡地址：memo1.Lines.Add (''Adapter address: ''+MACToStr(@Work^.Address,Work^.AddressLength));repeat.//本机IP地址：memo1.Lines.add(''IP addresses: ''+GetAddrString(@Work^.IPAddressList));//网关地址：gatewaystr:=w... 阅2274 转49 评0 公众公开 12-05-23 16:07 |
//检查互联网是否在线 function IsIP(S: string): boolean; //判断录入的字符串是否为IP function GetLocalIP: string; //获取本机IP地址 function GetTheInternetLocalIP: string; //获取外网IP地址。//获取外网IP地址 begin.//检查互联网是否在线function IsIP(S: string): boolean; //判断录入的字符串是否为IPfunction GetLocalIP: string;... 阅2052 转36 评0 公众公开 12-05-23 16:06 |
如何用delphi程序获取IP地址！PaPInAddr = ^TaPInAddr;PHE: PHostEnt;PPtr: PaPInAddr;Buffer: array [0..63] of char;GetHostName(Buffer, SizeOf(Buffer));PHE := GetHostByName(Buffer);if not Assigned(PHE) then Exit;PPtr := PaPInAddr(PHE^.h_addr_list);while pptr^[I] <>nil do begin.Add(StrPas(inet_ntoa(PPtr^[I]^))); 阅235 转6 评0 公众公开 12-05-23 11:29 |
mymac:array[0..5] of byte;mymaclength:=length(mymac);r:=sendarp(myip,0,@mymac,@mymaclength);label2.caption:=format(''%2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x'',[mymac[0],mymac[1],mymac[2],mymac[3],mymac[4],mymac[5]]); 阅81 转2 评0 公众公开 12-05-23 11:29 |
软件也忽悠人－揭穿号称内存占用极低的软件的诡计软件也忽悠人－揭穿号称内存占用极低的软件的诡计。看看这篇文章怎么说：“因为他只是暂时的将应用程序占用的内存移至虚拟内存，一旦，应用程序被激活或者有操作请求时，这些内存又会被重新占用。如果你强制使用该方法来设置程序占用的内存，那么可能在一定程度上反而会降低系统性能，因为系统... 阅527 转7 评0 公众公开 11-12-01 10:29 |
DELPHI 清理释放内存小代码DELPHI 清理释放内存小代码 2007-04-05 22:45DELPHI清理释放内存小代码。当你加大运行空间给应用程序，你能够得到的物理内存取决于系统，这会造成其他应用程序降低性能或系统总体降低性能，这也可能导致请求物理内存的操作失败，例如：建立 进程，线程，内核池，就必须小心的使用该函数。还有，程序运行到一定时间后... 阅1795 转9 评0 公众公开 11-12-01 10:24 |
将物理内存的占用挪到虚拟内存里-----揭密篇 .那么我的程序为什么能够将占用的内存移至虚拟内存呢？其实，你也可以，试试看把一个程序最小化到任务栏，再看看任务管理器，看到没，你的程序占用的实际内存一下子减少了，看来并不是我有什么方法能够压缩内存，而是操作系统本身就有这个机制，即当程序不使用时（最小化），操作系统会调用某些命令... 阅70 转1 评0 公众公开 11-12-01 10:01 |
