Luk andre programmer med delphi 7 ?

button1// indlæser alle aktive programmer
button2//lukker det program man klikker på i listbox'en

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
      Form1.ListBox1.Items.Add(lpBuffer);
  finally
    FreeMem(lpBuffer, sizeof(lpBuffer^));
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
  var
    WindowInfo : TFindWindowStruct;
begin
    EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
end;



procedure TForm1.ListBox1Click(Sender: TObject);
var
pro : String;
luk : HWND;
begin
pro := ListBox1.Items.Strings[ListBox1.ItemIndex];

luk :=  FindWindow(nil, PChar(pro));

SendMessage(luk, WM_SYSCOMMAND,SC_CLOSE,0);

end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Listbox1.Clear;
end;

ups det var clik på listbox der lukker programmet

hhmmm....når jeg forsøger at bruge det du har skrevet, får jeg fejl i 
Form1.ListBox1.Items.Add(lpBuffer); ud defineret listbox1 hvad skal jeg gøre
er det muligt at du kan lave et eksempel til mig ?

kommer her:
unit Unit1;

interface

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


type
  PFindWindowStruct = ^TFindWindowStruct;
  TFindWindowStruct = record
    Caption : string;
    ClassName : string;
    WindowHandle : THandle;
end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
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
      Form1.ListBox1.Items.Add(lpBuffer);
  finally
    FreeMem(lpBuffer, sizeof(lpBuffer^));
  end;
end;




procedure TForm1.ListBox1Click(Sender: TObject);
var
pro : String;
luk : HWND;
begin
pro := ListBox1.Items.Strings[ListBox1.ItemIndex];

luk :=  FindWindow(nil, PChar(pro));

SendMessage(luk, WM_SYSCOMMAND,SC_CLOSE,0);

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Listbox1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    WindowInfo : TFindWindowStruct;
begin
    EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));
end;

end.

Nu, kom jeg da videre, jeg kan starte programmet men, den vil ikke indlæse programmerne,jeg bruger Delphi 7 under Win XP Pro, hvad kan det skyldes ?

Kan man ikke specifiere hvilke programmer man vil have lukket i kilde koden også lave en knap der kun lukker dem ?

det har ikke noget med din delphi version at gøre, jeg kører både xp pro og 98
og der er ingen problemer med at indlæse aktive programmer.

til dit sp. 2 kan du kigge på et tidligere indlæg hvor programmet checker om
en text string er til stede i listgboxen er den det laver du den bare i en if sætning tilknyttet en knap.

http://www.eksperten.dk/spm/427182

hhmmm.....det er vist lidt sort at det virker hos dig og ikke hos mig......jeg kan ikke se fejlen, men det er jo heller ik min kode.
Har du nogen ide til hvorfor det ikke virker ?
men hvis du har lavet en demo der virker hos dig, kunne du fx sende mig kilde koden, så kan jeg selv compiele den og teste om det virker hos mig.
mail: headtaker85@hotmail.com

hermed sendt

Ahaha.....Det virker.....Tak for hjælpen