delphi获取Windows系统的进程运行信息
delphi获取Windows系统的进程运行信息
自从出现windows系统以来，各种各样的软件层出不穷。购买或者免费下载以后，轻轻点击Install或者Setup以后，稍作些许简单配置就完成安装的整个过程。显然这给用户带来了许多方便，但对用户来说这些软件似乎是个"黑匣子"，展现在用户面前的仅仅是华丽的外表和简洁的操作，至于软件运行过程中调用了哪些文件和模块文件就无法知道了。或许真正希望了解这些的用户并不是很多，甚至对某些用户来说是不必要的，但是对于一个系统安全管理员来说这是一件很重要的事情。本文重点阐述如何获取系统的所有进程以及进程运行过程中所调用的模块文件(象EXE、DLL文件)，实际是对Windows系统所提供的任务管理器进一步完善，开发工具采用Delphi语言。
一、函数介绍
在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数，Delphi语言把这些函数接口封装到Tlhelp32.pas中，供Delphi用户开发过程调用。要详细了解相关知识可以查阅Tlhelp32.pas原文件和Windows SDK提供的帮助文件。其中同本文涉及的接口函数主要有CreateToolhelp32Snapshot、process32first、process32next、module32first、module32next五个函数以及TMODULEENTRY32、TPROCESSENTRY32两个数据结构。
1、CreateToolhelp32Snapshot
该函数是要实现上述目的最核心的一个函数，它可以获取系统运行进程(Process)列表、线程(Thread)列表和指定运行进程的堆(Heap)列表、调用模块(Module)列表。如果函数运行成功将返回一个非零"Snapshot"句柄，通过该句柄调用相关WinAPI函数就可以实现上述目的，其函数格式为：
HANDLE WINAPI CreateToolhelp32Snapshot(DWORD dwFlags,
DWORD th32ProcessID);
参数说明：
dwFlags参数:对函数建立的"Snapshot"所包含的列表类型，可选项包括：
TH32CS_SNAPHEAPLIST：所创建的Snapshot包含堆列表
TH32CS_SNAPMODULE ：所创建的Snapshot包含调用模块列表
TH32CS_SNAPTHREAD ：所创建的Snapshot包含线程列表；
TH32CS_SNAPPROCESS ：所创建的Snapshot包含进程列表；
TH32CS_SNAPALL ：所创建的Snapshot包含上述所有列表；
th32ProcessID参数：进程句柄参数，可以为零表示当前进程，该参数只对dwFlags包含TH32CS_SNAPMODULE、TH32CS_SNAPHEAPLIST可选项时起作用。当dwFlags为TH32CS_SNAPPROCESS，th32ProcessID为零时函数得到系统的所有进程列表。
2、Process32First、Process32Next、
相关文档：
Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、ShortString
2008-10-17 14:57:17
//最常用的 string
var
str: string; {定义}
begin
str := '万一'; {赋值}
ShowMessage(IntToStr(Length(str))); {长度是: 4}
end;
//长字符串 AnsiString; 在当前版� ......
一、类和对象
类是对象的类型，是创建对象的模板。一个类可以创建多个对象，而一个对象总是属于某个类。类具有内部的属性（状态）和行为（操作）。
对象是类的实例，具有区别于同类其他对象的属性集合。
对象的声明存放于堆栈，对象的引用存放于堆。
二、类的方法分类
1、 普通方法
不加任何修饰� ......
服务端：添加ADOConnection，ADOQuery1，ADOQuery2。设置ADOQuery1为主表，ADOQuery2为从表。(通过 ADOQuery2.SQL.Text:= 'select * from 从表 where FKID=:主表PKID'设置)。添加DataSetProvider1和DataSetProvider2分别连接到ADOQuery1和ADOQuery2。
客户端：添加ClientDataSet1，ClientDataSet2。ClientDataS ......
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件：xpanel:=x;ypanel:=y;
PANEL的DragOver事件：xpanel:=x;ypanel:=y;
LABEL的MouseMove事件：xlabel:=x;ylabel:=y;
LABEL的EndDrag事件：label ......
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
今天开始学习元件编辑器，感觉比属性编辑器简单许多，但还是遇到了一些疑问。如果你能解答文中记录的问题，请告诉我答案，谢谢！
目 录
===============================================================================
⊙ TBaseComponentEdit ......
