CodeTyphon32中自带例子源码：5行代码取得所有进程列表。

C:\codetyphon\CodeOcean\Solutions\samples\LSListProcess

procedure TMainForm.UpdateListButtonClick(Sender: TObject);var  VProcess: TStringList;begin  VProcess := TStringList.Create;  try    LSListProcess(VProcess);    ProcessListBox.Items := VProcess;  finally    VProcess.Free;  end;end;