Process 如何在Lazarus中运行流程

Process 如何在Lazarus中运行流程,process,lazarus,Process,Lazarus,我使用Lazarus IDE,我的问题是: 如何在Lazarus中运行流程?(仅在拉撒路) 这项工作在delphi中很容易,因为我认为应该用JwaTlHelp32替换tlhep32装置 这个简单的一键一备忘录应用程序在laz v1.6中工作: uses ...windows, jwatlhelp32; var ...Snapshot: THandle; pe: TProcessEntry32; procedure TForm1.Button1Click(Sender: TObject); b

我使用Lazarus IDE,我的问题是:

如何在Lazarus中运行流程?(仅在拉撒路)


这项工作在delphi中很容易,因为

我认为应该用JwaTlHelp32替换tlhep32装置

这个简单的一键一备忘录应用程序在laz v1.6中工作:

uses ...windows, jwatlhelp32;

var ...Snapshot: THandle; pe: TProcessEntry32;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  try
    pe.dwSize := SizeOf(pe);
    if Process32First(Snapshot, pe) then
      while Process32Next(Snapshot, pe) do  memo1.Lines.Add(pe.szExeFile);
  finally
    CloseHandle(Snapshot);
  end;
end;         

该代码在Windows上的Lazarus上应该可以正常工作。请解释运行时遇到的问题。我将tlhelp32单元添加到我的项目中,当我编译代码时,错误窗口显示:“由于您的计算机缺少toolhelp.dll,程序无法启动。请尝试重新安装程序以解决此问题”,这对Delphi有效,或者,您是为win9x编译示例吗?