本文整理自网络,侵删。
单元 uses TLhelp32;
// 取得当前进程占用内存function CurrentMemoryUsage: Cardinal;var pmc: TProcessMemoryCounters;begin pmc.cb := SizeOf(pmc); if GetProcessMemoryInfo(GetCurrentProcess, @pmc, SizeOf(pmc)) then result := pmc.WorkingSetSize else RaiseLastOSError;end;
// 取得当前进程的线程数function GetProcessThreadCount: integer;var SnapProcHandle: THandle; ThreadEntry: TThreadEntry32; Next: boolean;begin result := 0; SnapProcHandle := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0); if SnapProcHandle <> THandle(-1) then begin ThreadEntry.dwSize := SizeOf(ThreadEntry); Next := Thread32First(SnapProcHandle, ThreadEntry); while Next do begin if (ThreadEntry.th32OwnerProcessID = GetCurrentProcessId) then result := result + 1; Next := Thread32Next(SnapProcHandle, ThreadEntry); end; CloseHandle(SnapProcHandle); end;end;
相关阅读 >>
键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例
Delphi提示‘error loading midas.dll’的原因及解决方案
Delphi xe android下让tmemo不自动弹出键盘
更多相关阅读请进入《Delphi》频道 >>