介绍一下进程控制的api(200分)

ioi2000 · 2002-09-07

介绍一下进程控制的api （例如：启动、关闭、获得内存和cpu使用情况） 再多问一下如何取得当前CPU使用情况

HouBy · 2002-09-07

createprocess:创建一个新进程 exitproscess：终止一个进程 getprocessworkingsetsize:了解一个应用程序在运行过程中实际向它交付了多大容量的内存 terminateprocess：结束一个进程 GlobalMemoryStatus：获取内存信息 至于cpu占用情况，从注册表中可得到HKEY_DYN_DATA/PerfStats/StartStat/KERNEL/CPUUsage""

chenxz · 2002-09-08

CreateToolhelp32Snapshot() Process32First() Process32Next() CloseHandle CreateProcess CreateRemoteThread DuplicateHandle GetCurrentProcess GetCurrentProcessId GetExitCodeProcess GetPriorityClass ReadProcessMemory SetPriorityClass TerminateProcess VirtualProtectEx WriteProcessMemory Thread32First Thread32Next Module32First Module32Next 具体的用法请参考msdn或windows sdk，引用时要uses TlHelp32

ioi2000 · 2002-09-08

那么getprocessworkingsetsize中的最大和最小内存使用是什么意思阿,介绍一下拉

chenxz · 2002-09-08

就是限制进程的最大和最小内存使用。 看帮助说明。 The GetProcessWorkingSetSize function obtains the minimum and maximum working set sizes of a specified process. The "working set" of a process is the set of memory pages currently visible to the process in physical RAM memory. These pages are resident and available for an application to use without triggering a page fault. The size of a process' working set is specified in bytes. The minimum and maximum working set sizes affect the virtual memory paging behavior of a process. BOOL GetProcessWorkingSetSize(     HANDLE hProcess, // open handle to the process of interest     LPDWORD lpMinimumWorkingSetSize, // points to variable to receive minimum working set size     LPDWORD lpMaximumWorkingSetSize // points to variable to receive maximum working set size   &nbsp

;   Parameters hProcess An open handle to the process whose working set sizes will be obtained. The handle must have PROCESS_QUERY_INFORMATION access rights. For more information, see Process Objects. lpMinimumWorkingSetSize Points to a variable that receives the minimum working set size of the specified process. The virtual memory manager attempts to keep at least this much memory resident in the process whenever the process is active. lpMaximumWorkingSetSize Points to a variable that receives the maximum working set size of the specified process. The virtual memory manager attempts to keep no more than this much memory resident in the process whenever the process is active when memory is in short supply.   Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. To get extended error information, call GetLastError.

ioi2000 · 2002-09-08

结束进程与终止进程有什么不同， 如果我自己的程序启动另外一个程序，那个程序自己结束了，我还需不需要结束或终止这个进程

PressAnyKey · 2002-09-08

关注

kcahcn · 2002-09-08

前面别人说的没错。我只是想加一点。。。 如果你用的是WINNT family （winnt、win2k、winxp）， 而且想得到进程的信息（像 Win2k 的任务管理那样）就可以用Native API（本机API）。 有一本书关于Native API 名为 Windows NT/2000 本机API 可以看一下 http://bingle.sitenova.net/teach/NTNativeAPI.cab 用ReadProcessMemory也可以得到进程信息。。。 告诉我你用什么windows。。

duducat · 2002-09-09

too too easy…… winnt,xp,2000一个函数嫁异行代码搞定， 温酒吧的要复杂一点！！ 可惜不想公开源码，有什么好交换的没有？？（有点技术价值的）

duducat · 2002-09-09

以上是对进程物理内存使用情况而言，cpu使用情况则到处都有源码可以抄袭！ 前面两个就不说了……

stuwei · 2002-09-09

好多函数啊，API函数一共多少条?

duducat · 2002-09-09

最后nt,window2000,xp下面物理内存的使用绝对不是用的ReadProcessMemory getprocessworkingsetsize两个函数…… 真的是很简单的，不过我找资料也找了很久哟：） 温酒吧的则是自己搞定的，稍微复杂一点

kcahcn · 2002-09-09

如果对 NativeAPI感兴趣的话我可以把源代码写在这儿。 我不求交换什么。也不要给我分。。。 Knowledge is free for all... CIONO1

cg1120 · 2002-09-09

关闭所有正在运行的程序： procedure TForm1.ButtonKillAllClick(Sender: TObject); var     pTask : PTaskEntry;     Task : Bool;     ThisTask: THANDLE; begin     GetMem (pTask, SizeOf (TTaskEntry));     pTask^.dwSize := SizeOf (TTaskEntry);     Task := TaskFirst (pTask);     while Task do     begin         if pTask^.hInst = hInstance then         ThisTask := pTask^.hTask     else         TerminateApp (pTask^.hTask, NO_UAE_BOX);         Task := TaskNext (pTask);     end;     TerminateApp (ThisTask, NO_UAE_BOX); end; 重新启动Windows，不是重新启动机器！包含Thunk技术。 感谢http://www.experts-exchange.com/Q.10115419, 以下代码RestartWindows可以实现: {$StackFrames On}  //QT_Thunk needs a stack frame, Thunking call to 16-bit USER.EXE. The ThunkTrash argument allocates space on the stack for QT_Thunk function LoadLibrary16(LibraryName: PChar): THandle; stdcall; external kernel32 index 35; procedure FreeLibrary16(HInstance: THandle); stdcall; external kernel32 index 36; function GetProcAddress16(Hinstance: THandle; ProcName: PChar): Pointer; stdcall; external kernel32 index 37; procedure QT_Thunk; cdecl; external kernel32 name 'QT_Thunk'; var   hInst16: THandle;   GFSR: Pointer; function RestartWindows: WordBool; var   ThunkTrash: array[0..$20] of Word;   dw: DWord;   w: Word; begin   if Win32Platform = VER_PLATFORM_WIN32_NT then   begin     Result := False;     Exit;   end;   ThunkTrash[0] := hInst16; //Prevent the optimizer from getting rid of ThunkTrash   hInst16 := LoadLibrary16('user.exe');   if hInst16 < 32 then     raise Exception.Create('Cannot load USER.EXE');   FreeLibrary16(hInst16); //Decrement the usage count. This doesn't really free the library, since USER.EXE is always loaded   GFSR := GetProcAddress16(hInst16, 'ExitWindows'); //Get the function pointer for the 16-bit function in USER.EXE   if GFSR = nil then     raise Exception.Create('Cannot get address of ExitWindows');   dw := EW_RestartWindows;   w  := 0;   asm  //Thunk down to USER.EXE     push dw           { push arguments }     push w     mov edx, GFSR     { load 16-bit procedure pointer }     call QT_Thunk     { call thunk }     mov Result, ax    { save the result }   end; end; {$StackFrames Off} 如何知道进程使用了多少内存 // Works only on Windows NT systems (WinNT, Win2000, WinXP) uses psAPI; procedure TForm1.Button1Click(Sender: TObject); var   pmc: PPROCESS_MEMORY_COUNTERS;   cb: Integer; begin   cb := SizeOf(_PROCESS_MEMORY_COUNTERS);   GetMem(pmc, cb);   pmc^.cb := cb;   if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then     Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes'   else     Label1.Caption := 'Unable to retrieve memory usage structure';   FreeMem(pmc); end; 几个基本的例子，由此可演化得到许多硬件信息。 结果放在Memo1中。 procedure TForm1.Button1Click(Sender: TObject); var         systeminfo: SYSTEM_INFO;         memory: MEMORYSTATUS;         sector,byte,cluster,free: DWORD;         freespace,totalspace: longint;         CDtype: UINT;         name: CHAR;         drvname: string;         volname,filesysname: PCHAR;         sno,maxl,fileflag: DWORD; begin         Memo1.Lines.Clear();         //获得CPU型号         GetSystemInfo(systeminfo);         Memo1.Lines.Add('您的CPU类型是:' + inttostr(systeminfo.dwProcessorType));         //获得内存状态         memory.dwLength := sizeof(memory); //初始化         GlobalMemoryStatus(memory);         Memo1.Lines.Add('您的物理内存是(' + inttostr(integer(memory.dwTotalPhys div 1024 div 1024)) + 'MB)。');         Memo1.Lines.Add('其中可用内存是(' + inttostr(integer(memory.dwTotalPhys div 1024)) + 'KB)。');         //获得C盘可用空间         GetDiskFreeSpace('C:', LPDWORD(@sector)^, LPDWORD(@byte)^, LPDWORD(@free)^, LPDWORD(@cluster)^); //获得返回参数         totalspace := cluster * byte * sector div 1024 div 1024; //计算总容量         freespace := free * byte * sector div 1024 div 1024; //计算可用空间         Memo1.Lines.Add('C盘总空间(' + inttostr(integer(totalspace)) + 'MB)。');         Memo1.Lines.Add('C盘可用空间(' + inttostr(integer(freespace)) + 'MB)。');         //检测CD－ROM，是否有光盘         GetMem(volname, 255);         GetMem(filesysname, 100);         for name :='C' to 'Z'  do//循环检测A～Z         begin                 drvname := name + ':';                 CDtype := GetDriveType(PCHAR(@drvname[1])); //获得磁盘类型                 if (CDtype = DRIVE_CDROM) then                 begin                         Memo1.Lines.Add('您的光驱盘符为[' + drvname + ']');                         volname^ := Chr(0);                         filesysname^ := Chr(0);                         if ( not (GetVolumeInformation(PCHAR(@drvname[1]), volname, 250, LPDWORD(@sno), LPDWORD(@maxl)^, LPDWORD(@fileflag)^, filesysname,100))) then                                 Memo1.Lines.Add(drvname + '驱中没有发现光盘') //如果返回值为假                         else //如果返回值为真                         begin                                 Memo1.Lines.Add (drvname + '驱中光盘卷标为: [' + String(volname) + ']');                                 Memo1.Lines.Add (drvname + '驱中光盘序号为: [' + inttostr(sno) + ']');                         end;                 end;         end;         FreeMem(volname);         FreeMem(filesysname) end;

忘记了！ · 2002-09-09

小弟菜鸟，关注先。

qsilence · 2002-09-09

to ioi2000 你到底想实现什么功能？ >>结束进程与终止进程有什么不同， 结束进程最好是从执行该进程的一个线程中调用EXITPROCESS函数， 这可以把进程所打开的所有资源一一关闭，如DLL等。结束进程后，GETEXITCODEPROCESS 得到进程返回值（是否出错）。 关闭进程 TERMINATEPROCESS（。。。）强行关闭进程，进程所关联的DLL等其他系统清除 工作不执行（内存泄露）。 另外向主窗体发关闭消息也可以，进程采用方法一退出。 >>如果我自己的程序启动另外一个程序，那个程序自己结束了，我还需不需要结束或终止这个进程 不需要

kcahcn · 2002-09-09

手痒，就上来写下述。希望对某些人有帮助。 在NT Family如果想枚举正在运行的进程（像win2k,xp的任务管理）就可以用 NtQuerySystemInformation（or ZwQuerySystemInformation）此服务在NTDLL.dll （格式在NativeAPI那本书介绍的），要用SystemProcessAndThreadInformation=5 作为要得到系统信息 用SystemProcessInformation=2 可以得到处理器的一些信息。还有SystemProcessorTimes =8' 还有很多信息。。。多看我说的那本书。。 反汇编有关的软件可以知道他们用的是一样的方法（win2k的任务管理，pview,...） 如果要针对一个进程的话可以看那本书的第六章（ZwCreateProcess,ZwOpenProcess,ZwTerminateProcess, ZwQueryInformationProcess,...）

duducat · 2002-09-09

to cg1120代码有出严重的小错误：）呵呵汇编部分 ，怎么没有人贴温酒吧的代码？？？？？？……

duducat · 2002-09-09

SystemProcessAndThreadInformation=5 不能获得进程路径，此外此函数运行起来不稳定，存在内存漏洞 唯一优点就是提供的进程信息比较多 …… CreateToolhelp32Snapshot() Process32First() Process32Next() 其实间接调用了SystemProcessAndThreadInformation=5 而且消除了SystemProcessAndThreadInformation的不稳定因素 如果提供信息就比SystemProcessAndThreadInformation=5 少了，我个人还是喜欢 CreateToolhelp32Snapshot() Process32First() Process32Next() 程序的稳定压倒一切

duducat · 2002-09-09

procedure TForm1.Button1Click(Sender: TObject); var   pmc: PPROCESS_MEMORY_COUNTERS;   cb: Integer; begin   cb := SizeOf(_PROCESS_MEMORY_COUNTERS);   GetMem(pmc, cb);   pmc^.cb := cb;   if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then     Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes'   else     Label1.Caption := 'Unable to retrieve memory usage structure';   FreeMem(pmc); end; 有多代码多余，和可能引起出错地方

介绍一下进程控制的api(200分)

ioi2000

Unregistered / Unconfirmed

HouBy

Unregistered / Unconfirmed

chenxz

Unregistered / Unconfirmed

ioi2000

Unregistered / Unconfirmed

chenxz

Unregistered / Unconfirmed

ioi2000

Unregistered / Unconfirmed

PressAnyKey

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

duducat

Unregistered / Unconfirmed

duducat

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

duducat

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

cg1120

Unregistered / Unconfirmed

忘记了！

Unregistered / Unconfirmed

qsilence

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

duducat

Unregistered / Unconfirmed

duducat

Unregistered / Unconfirmed

duducat

Unregistered / Unconfirmed

Similar threads