 |
列出所有程序的问题可以从微软的Knowledge Base的文章：“Q192986 SAMPLE: MODLIST.EXE Shows How to Enumerate Processes and Modules”下载例子MODLIST.EXE。该例子运行的效果如下图所示。
该例子的工作原理是这样的：在Windows 95/98/Me下利用ToolHelp32函数。该例子共使用了以下几个函数：
CreateToolhelp32Snapshot()
Process32First()
Process32Next()
Module32First()
Module32Next()
在Windows NT, Windows 2000下使用PSAPI.DLL中的函数。该例子使用了以下几个函数:
EnumProcesses()
EnumProcessModules()
GetModuleFileNameExA()
强行关闭程序的问题可以参考微软的Knowledge Base的文章：“Q178893 HOWTO: Terminate an Application "Cleanly" in Win32”。
 达姆弹的意见：
假定你用的是vc：用terminateprocess（终止进程函数）详查msdn。
吴轶群的意见：
上述两者的意见都对，但太笼统，补充一二。在pb中列举当前所有活动进程的示例。
1、Declare四个Win32Api函数。
Function Long GetCurrentProcessId() Library "kernel32.dll"
Function Long CreateToolhelp32Snapshot(Long Flags,Long ProcessId) Library "kernel32.dll"
Function Integer Process32First(uLong Snapshot,ref s_Process Process) Library "kernel32.dll"
Function Integer Process32Next(uLong Snapshot,ref s_Process Process) Library "kernel32.dll"
2、定义s_Process结构
unsignedlong structsize
unsignedlong usage
unsignedlong processid
unsignedlong defaultheapid
unsignedlong moduleid
unsignedlong threads
unsignedlong parentprocessid
unsignedlong classbase
unsignedlong flags
character filename[260]
3、调用示例(此函数查找在系统中是否已有当前程序的复本在运行)
s_Process lst_Process //进程结构
String ls_FileName[100],ls_CurExeName //最多100个进程，可改进
ulong ln_ProcessID,ln_SameCount,ln_Snapshot,ln_Circle,ln_Count
ln_ProcessID = GetCurrentProcessId() //取当前进程的ID
if IsNull(ln_ProcessID) or ln_ProcessID<1 then return -1 //出错则返回
ln_Snapshot = CreateToolhelp32Snapshot(2,0) //在堆上创建进程快照
if (ln_Snapshot<1) then return -1 //出错则返回
lst_Process.StructSize = 296 //Win32api的Process结构大小
ln_SameCount = 0 //复本数为0
if Process32First(ln_Snapshot,lst_Process)=0 then return -1 //取第一个进程失败则返回
ln_Count = 1
ls_FileName[ln_Count] = lst_Process.FileName //列举的进程名称放入数组
//如列举到的进程ID等于当前进程ID,则知道了当前进程的名称,保存
if lst_Process.ProcessID=ln_ProcessID then ls_CurExeName=lst_Process.FileName
do while true //循环取列举的进程名称，放入数组
if Process32Next(ln_Snapshot,lst_Process)=0 then exit //列举完毕
ln_Count = ln_Count + 1
ls_FileName[ln_Count] = lst_Process.FileName
if lst_Process.ProcessID=ln_ProcessID then ls_CurExeName=lst_Process.FileName
loop
for ln_Circle=1 to ln_Count //计算系统中有几个同名进程
if ls_CurExeName=ls_FileName[ln_Circle] then ln_SameCount=ln_SameCount+1
next
return ln_SameCount //如当前进程无复本在运行，返回1;否则有几个在运行则返回几
4、如在vb中调用，则比在pb中调用更简单。
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, C/C++, MFC, C++ Builder, Borland C++, Turbo C, C, BCB, Power Builder, PB, sybase, Visual Basic, VB, Windows API, win32, api, windows api, gdi32, kernel。
|
如何列出系统正在进行的程序及强行关闭该程序
