Question

我试图显示当前在我的系统上运行的所有进程。任何人都可以指导我这样做。

Answer 1

我会使用WMI执行此任务，因为WMI也可以列出64位进程，我认为Windows API方式不行。下面是一个使用Win32_Process类查询正在运行的进程列表的示例：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
const
  WM_SETREDRAW = $000B;
var
  ProcessList: TNewListBox;

// this is a substitution for missing BeginUpdate method
// of TStrings class
procedure WinControlBeginUpdate(Control: TWinControl);
begin
  SendMessage(Control.Handle, WM_SETREDRAW, 0, 0);
end;

// this is a substitution for missing EndUpdate method
// of TStrings class
procedure WinControlEndUpdate(Control: TWinControl);
begin
  SendMessage(Control.Handle, WM_SETREDRAW, 1, 0);
  Control.Refresh;
end;

function GetProcessNames(Items: TStrings): Integer;
var
  I: Integer;
  WQLQuery: string;
  WbemLocator: Variant;
  WbemServices: Variant;
  WbemObject: Variant;
  WbemObjectSet: Variant;
begin
  Result := 0;

  WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  WbemServices := WbemLocator.ConnectServer('localhost', 'root\CIMV2');

  WQLQuery := 'SELECT Name FROM Win32_Process';

  WbemObjectSet := WbemServices.ExecQuery(WQLQuery);
  if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then
  begin
    Items.Clear;
    for I := 0 to WbemObjectSet.Count - 1 do
    begin
      WbemObject := WbemObjectSet.ItemIndex(I);
      if not VarIsNull(WbemObject) then
        Items.Add(WbemObject.Name);
    end;
    Result := Items.Count;
  end;
end;

procedure RefreshButtonClick(Sender: TObject);
begin
  // this try..finally block is used to reduce annoying visual effects
  // when filling the list box; Inno Setup doesn't publish BeginUpdate,
  // EndUpdate method pair, hence this home brewn solution
  WinControlBeginUpdate(ProcessList);
  try
    GetProcessNames(ProcessList.Items);
  finally
    WinControlEndUpdate(ProcessList);
  end;
end;

procedure InitializeWizard;
var
  RefreshBtn: TNewButton;
  ProcessPage: TWizardPage;
begin
  ProcessPage := CreateCustomPage(wpWelcome, 'Caption', 'Description');

  ProcessList := TNewListBox.Create(WizardForm);
  ProcessList.Parent := ProcessPage.Surface;
  ProcessList.SetBounds(0, 0, ProcessPage.SurfaceWidth,
    ProcessPage.SurfaceHeight - 33);

  RefreshBtn := TNewButton.Create(WizardForm);
  RefreshBtn.Parent := ProcessPage.Surface;
  RefreshBtn.Left := 0;
  RefreshBtn.Top := ProcessPage.SurfaceHeight - RefreshBtn.Height;
  RefreshBtn.Caption := 'Refresh';
  RefreshBtn.OnClick := @RefreshButtonClick;
end;

如何在Windows中获取当前进程列表

1 个答案: