usesTLHelp32,PsAPI; (1)显示进程列表：_程序员之家(进程、窗口句柄、文件属性、程序运行状态)

开发技术指南» 文章正文

引言： usesTLHelp32,PsAPI; (1)显示进程列表：

摘要：　　有不少人讨论过显示系统键（capslock、numlock、insert、scrolllock等）状态的问题，用得最多的方法是添加一个timer，在事件中刷新系统键状态显示；另一个方法是做一个系统hook，在hook中刷新显示。这两种方式都会严重占用系统资源，第一种方法还存在延迟的问题。现在介绍第三种方法：　　键盘按钮被按下时系统会发送wm_keydown、wm_char、wm_keyu......

·dephi发布时免安装环境 »显示摘要«

摘要：以往的程序一般先进行打包，然后在用户机器上这行安装过程。在这篇文章里，介绍怎样将dephi编译的程序直接复制(copy)到用户的机器上就能运行，这也是智能客户端特点之一。 1.如何将程序用到的类库编译到可执行文件中？选择菜单project\options，选择packages标签，不选择“build with runtime packages”复选框。这种设置可......

进程、窗口句柄、文件属性、程序运行状态

uses tlhelp32,psapi;

【程序编程相关:Callingconventions(调】

(1)显示进程列表: 【推荐阅读:ShadowStarCodeFast开发】

【扩展信息:IndySSL-usingcertifi】

procedure tform1.button2click(sender: tobject);

var lppe: tprocessentry32;

found : boolean;

hand : thandle;

p:dword;

s:string;

begin

listbox1.items.clear ;

hand := createtoolhelp32snapshot(th32cs_snapall,0);

found := process32first(hand,lppe);

while found do

begin

s := strpas(lppe.szexefile);

if lppe.th32processid>0 then

p := lppe.th32processid

else

p := 0;

listbox1.items.addobject(s,pointer(p));//列出所有进程.

found := process32next(hand,lppe);

end;

(2)杀死某进程:

procedure tform1.button3click(sender: tobject);

var lppe: tprocessentry32;

found : boolean;

hand : thandle;

p:dword;

sexefile,sselect:string;

killed:boolean;

begin

p :=dword(listbox1.items.objects[listbox1.itemindex]);

if p<>0 then

begin

killed := terminateprocess(openprocess(process_terminate,false,p),$ffffffff);

... 下一页

·利用钩子捕捉鼠标信息的一个问题 »显示摘要«

摘要：利用setwindowshookex(wh_mouse?,mousehookhandler,hinstance,0)捕捉鼠标信息，其中mousehookhandler的格式如下： lresult callback mouseproc( ??? int ncode,?// hook code??? wparam wparam,?// message identifier??? lparam l......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：