Hvilke programmer er aktive

du kan godt få en liste alle porceses som kører er det det du er intresseret i???

/ZIRON

sådan en kom Pelle da med den anden dag ... : http://www.eksperten.dk/spm/127039


JEns B

Der må da være et simpelt api kald der lister alle aktive processer, i stedet for side op og side ned med kode.

ikke mig bekendt ....

Jens B

jooo hvad med dette:

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

Koden ser spændende ud GetWindowText kan nok gøre det. Men når jeg kompiler koden får jeg en: File not found \'Variants.dcu\'. Når jeg så sletter den i uses kan jeg kompilere uden problemer. Der kommer dog ikke noget i listboxen. Bruger D5 kan det være et problem?

www.ziron.dk/Variants.dcu

/ZIRON

Nu er jeg ikke helt hård i D. Men hvis jeg placerer Variants.dcu i mappen med de andre program filer, mangler kompileren nu en pas fil af samme navn i mappen  ..delphi5\\project\\bpl

den skal ligge i imports, så vidt jeg ved

okay så får du også lige pas filen...

/ZIRON

www.ziron.dk/Variants.pas

/ZIRON

Nu kører det snart, der mangler bare lige den Types.dcu der refereres i uses i din variants.pas. Der findes tilsyneladende ikke en www.ziron.dk/Types.dcu

den kommer så nu :-)

/ZIRON

de ligger der nu, både dcu og pas...

/ZIRON

Der er nu følgende Undeclared identifier i  types.pas:
PLongint
PInteger
PSmallInt
PDouble
PByte

De liggeri windows.pas

Burde de undeclared identificeres ikke forsvinde
når jeg anfører i types.pas:
uses
  Windows;

det gør de ikke...