SimpleFelix的博客2.获取当前进程内存占用情况:GetProcessMemoryInfo 示例如下: // 取得当前进程占用内存 function CurrentMemoryUsage: Cardinal; var pmc: TProcessMemoryCounters; begin pmc.cb := SizeOf(pmc); if ...
masterjames的博客 Win32BuildNumber := Win32BuildNumber and $FFFF; if Win32MinorVersion >= 90 then begin WinINfo := 'WindowsMe'; ICode := '003'; WindowsFlag := 2; end else begin if ...
weixin_30787531的博客//////////////////////////////////////////////////////...{****************Delphi常用获取系统信息的函数*********************} /////////////////////////////////////////////////////////////// unit un...
kygl2003的博客1 DELPHI下API简述 DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 ...