[DELPHI] LISTAR TODOS OS PROCESSOS ATIVOS NO WINDOWS

procedure TForm1.Button1Click(Sender: TObject); 

const

  PROCESS_TERMINATE = $0001;

var

  ContinueLoop: Bool;

  FSnapshotHandle: THandle;

  FProcessEntry32: TProcessEntry32;

  s: TStringBuilder;

begin

  try

    s := TStringBuilder.Create;

    FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

    FProcessEntry32.dwSize := SizeOf(FProcessEntry32);

    ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

    while Integer(ContinueLoop) <> 0 do

    begin

      s.AppendLine(FProcessEntry32.szExeFile);

      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

    end;

    ShowMessage(s.ToString);

  finally

    CloseHandle(FSnapshotHandle);

    FreeAndNil(s);

  end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】