急急急：如何在listbox中显示当前系统中所有的执行程序,不是显示id号！(50分)

看看下面的可不可以！<br>来自：delphisnail 时间：00-8-29 22:39:36 ID:321610 &nbsp;<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>&nbsp; cursorpoint:TagPOINT;<br>&nbsp; windowhandle:hwnd;<br>&nbsp; textmaxlength:integer;<br>&nbsp; textcontent:array[0..100] of char;<br>&nbsp; returnlength:word;<br>begin<br>&nbsp; textmaxlength:=100;<br>&nbsp; Memo2.lines.clear;<br>&nbsp; if GetCursorPos(cursorpoint) then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; Memo2.Lines.Add(format('光标位置x=%d，y=%d',[cursorpoint.x,cursorpoint.y]));<br>&nbsp; &nbsp; &nbsp; windowhandle:=windowfrompoint(cursorpoint);<br>&nbsp; &nbsp; &nbsp; if windowhandle&lt;&gt;null then<br>&nbsp; &nbsp; &nbsp; &nbsp; Memo2.Lines.Add(format('光标处窗口名柄号为%d',[windowhandle]));<br>&nbsp; &nbsp; &nbsp; if iswindow(windowhandle) then<br>&nbsp; &nbsp; &nbsp; &nbsp; returnlength:=SendMessage(windowhandle,WM_GETTEXT,textmaxlength,lparam(@textcontent));<br>&nbsp; &nbsp; &nbsp; if returnlength&gt;0 then<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Memo2.Lines.Add('读到窗口标题为：');<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Memo2.Lines.Add(textcontent);<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; end;<br><br>end;<br>&nbsp;

给我个email地址，我有一个例程，是专门针对这个，保你满意。

试试我编写的&lt;a href="http://go18.163.com/_NTES/~windstorm2000/program/proc.zip"&gt;进程管理&lt;/a&gt;吧<br>功能：<br>1.查看系统中起的进程名字、ID号以及每个进程所用到的链接库名和ID号<br>2.可以杀掉进程，此功能对调试CGI、ISAPI程序非常有用，可以夸张地说是ISAPI 程序调试的终结者，你再也不用为调试程序而经常关机了，如果你是用PWS调试 程序的话，你只要找到名为INETINFO.EXE的进程，把它杀掉就可以重新编译程序了，下次要调试，只要进入PWS--&gt;主屏--&gt;按启动按钮就可以了。<br>3.监控应用程序的开与关，如果你想让某个应用程序一直运行或定时关闭，〖进程管理〗将帮你非常方便做到这一点，而且〖进程管理〗初时运行为拖盘式。<br>4.可以自动更新你的应用程序，在新增的程序页中，当源程序比目标程序新时，将自动更新目标程序，这个功能可用于保持两台机子或多台机子之间文件的一致性、软件的升级等等。<br>5.〖进程管理〗自动记录它自已所做的一切事情，以便你日后查看〖进程管理〗到底为你做了什么事情，哪些事情是你要求它做的，哪些事情是它自动完成的...<br>6.本程序是个绿色软件，它不用安装，只有一个主程序PROC.EXE，运行后会在当前目录中产生一个INI文件PROC.INI，所有的设置都写在其中。<br>

我的email:fatcat@email.com.cn

接受答案了.