Aktive programmer.

åben din "task manager"

;-) Jeg vil gerne kunne lave et selv...
Jeg har en plan om at samle alt det jeg bruger i ét program. Og der i blandt er task manager...

kig i Delphi dev. Guide kapittel 14

prøv at kig her : http://www.borrisholt.com/Win32api/DelphiSource/EnumWindows.zip

/Martin

Smid en ListBox og en knap på din form og smid følgende ind under din knap's procedure:

procedure TForm1.Button1Click(Sender: TObject);
  procedure EnumWindowsProc(hWindow : hWnd;
  lParam  : LongInt);
  {$IFDEF Win32} stdcall; {$ELSE} ; export; {$ENDIF}
  var
    lpBuffer : PChar;
  begin
    GetMem(lpBuffer, 255);
    try
      if GetWindowText(hWindow, lpBuffer, 255) > 0 then
        ListBox1.Items.Add(lpBuffer);
    finally
      FreeMem(lpBuffer, sizeof(lpBuffer^));
    end;
  end;

var
  WindowInfo : TFindWindowStruct;
begin
  EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
end;

jeg takker...
Jeg er lidt nysgerrig... Hvor kender i alle de (mærkelig, sindsyge, helt ude i skoven) koder fra?

hermandsen's kode kan i store træk slås op i hjælpen !

Jens B

>>cork
Hjælp-filen, diverse bøger, internettet, eksperten, venner... Man lærer jo hele tiden, så det er bare at komme i gang og prøve tingene af! ;)

Okay, kan i så ikke lige fortælle mig hvordan at man deler point?

Det har du gjort :-)

Jens B