Hvordan får jeg en liste over handles til de processer der kører?

function EnumWnds(Wnd: HWND; Data: LParam): Bool;
var
  Text: string;
begin
  SetLength(Text, 256);

  if GetWindowText(Wnd, PChar(Text), 255) <> 0 then
    Form1.ListBox1.Items.AddObject(Text, Pointer(Wnd));

  Result := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EnumWindows(@EnumWnds, 0);
  ic := 1;
end;

/ZIRON

unden ic := 1 :-)

/ZIRON

det virker ikke... jeg kan godt compile men det gør ingenting... måske skal det siges at jeg kører winxp

som sagt, jeg vil gerne have en liste (i en TListBox fx) over alle de processer der kører\'s handle, så jeg kan manipulere med dem

når du kører det der, kommer der så ikke noget frem i din listbox, noget text????

/ZIRON

nej ingenting

kigger lige med

sådan her:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function EnumWnds(Wnd: HWND; Data: LParam): Bool; stdcall;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function EnumWnds(Wnd: HWND; Data: LParam): Bool;
var
  Text: string;
begin
  SetLength(Text, 256);

  if GetWindowText(Wnd, PChar(Text), 255) <> 0 then
    Form1.ListBox1.Items.AddObject(Text, Pointer(Wnd));

  Result := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EnumWindows(@EnumWnds, 0);
end;

end.

/ZIRON