...
uses
LSUtils;
......
var
VProcess: TStringList;
begin
VProcess := TStringList.Create;
try
LSListProcess(VProcess);
ProcessListBox.Items := VProcess;
finally
VProcess.Free;
end;
完成源码,安装完CodeTyphon32后,在:C:\codetyphon\CodeOcean\LazSolutions\samples\LSRunOnce
本文介绍如何使用CodeTyphon32环境下的LSListProcess函数来获取并显示系统中的进程列表。通过创建TStringList实例并调用特定函数,可以将当前运行的所有进程名称填充到指定的列表框中。
1519

被折叠的 条评论
为什么被折叠?



