(lazarus)显示所有进程的映像名称

...

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