进程信息的获取 我想在delphi程序中,获得指定内存进程的内存占用大小,进程建立的用户名等相关信息,如何实现呢如比指定smss.exe,就得到他的内存占用,就像任务管理器里面一样可以显示出进程占用的内存大小,最好是连CPU的占用率也能得到.谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses Psapifunction GetProcessMemorySize(_sProcessName: string; var _nMemSize: Cardinal): Boolean;varl_nWndHandle, l_nProcID, l_nTmpHandle: HWND;l_pPMC: PPROCESS_MEMORY_COUNTERS;l_pPMCSize: Cardinal;beginl_nWndHandle := FindWindow(nil, PChar(_sProcessName));if l_nWndHandle = 0 then begin Result := False; Exit;end;l_pPMCSize := SizeOf(PROCESS_MEMORY_COUNTERS);GetMem(l_pPMC, l_pPMCSize);l_pPMC^.cb := l_pPMCSize;GetWindowThreadProcessId(l_nWndHandle, @l_nProcID);l_nTmpHandle := OpenProcess(PROCESS_ALL_ACCESS, False, l_nProcID);if (GetProcessMemoryInfo(l_nTmpHandle, l_pPMC, l_pPMCSize)) then _nMemSize := l_pPMC^.WorkingSetSizeelse _nMemSize := 0;FreeMem(l_pPMC);Result := True;end;//Beispielprocedure TForm1.Button1Click(Sender: TObject);varl_nSize: Cardinal;beginif (GetProcessMemorySize('Unbenannt - Editor', l_nSize)) then ShowMessage('Size: ' + IntToStr(l_nSize) + ' byte')else ShowMessage('Error');end; 求delphi 5 企业版 下载地址 有厦门的delphi QQ群吗? 一道送分题! 在线等待!!!!!!!!!!! 有关程序启动画面的问题!!! 到Delphi的数据库版块找一个帖子,散分 TNND,心情不爽,散分 请举例一个读取Excel文件中的第二行,第三列的值然后赋给Lable,请高手写出code如何? 删除表中重复的行 谁会C#编程 请问怎样自动生成课程表。 delphi BDE 返回数据问题!望指点!!!!! 多表查询某个字段的问题
function GetProcessMemorySize(_sProcessName: string; var _nMemSize: Cardinal): Boolean;
var
l_nWndHandle, l_nProcID, l_nTmpHandle: HWND;
l_pPMC: PPROCESS_MEMORY_COUNTERS;
l_pPMCSize: Cardinal;
begin
l_nWndHandle := FindWindow(nil, PChar(_sProcessName));if l_nWndHandle = 0 then
begin
Result := False;
Exit;
end;l_pPMCSize := SizeOf(PROCESS_MEMORY_COUNTERS);GetMem(l_pPMC, l_pPMCSize);
l_pPMC^.cb := l_pPMCSize;GetWindowThreadProcessId(l_nWndHandle, @l_nProcID);
l_nTmpHandle := OpenProcess(PROCESS_ALL_ACCESS, False, l_nProcID);if (GetProcessMemoryInfo(l_nTmpHandle, l_pPMC, l_pPMCSize)) then
_nMemSize := l_pPMC^.WorkingSetSize
else
_nMemSize := 0;FreeMem(l_pPMC);Result := True;
end;//Beispielprocedure TForm1.Button1Click(Sender: TObject);
var
l_nSize: Cardinal;
begin
if (GetProcessMemorySize('Unbenannt - Editor', l_nSize)) then
ShowMessage('Size: ' + IntToStr(l_nSize) + ' byte')
else
ShowMessage('Error');
end;