luk program fra listbox

Du laver en PostMessage(WM_CLOSE,[HandlePåHovedVindue], 0,0); Så lukker programmet.

Jens B http://fotx.net/borrisholt

Sendmessage kunne man vel også bruge :-)

/ZIRON

sådan kom lige med det:

SendMessage(HandlePåHovedVindue, WM_SYSCOMMAND,SC_CLOSE,0);

/ZIRON

hvad skal stå i [handlepåhovedvindue]

det som du finder i dit program, altså det i listboxen, det er det som der skal stå....

/ZIRON

jeg ved ikke på forhånd hvad der er på listen, da
programmet kører på forskellige pc\'er.
programmet finder alle kørende programmer,og jeg kan ikke vide hvad for programmer der kører på forskellige pc\'er

nej når du kører det som du får ved hjælp af den kode du har der oppe, så har du noget i listboxen og når du så kilker på en linine finder du ud af hvad der står i den linie og og indsætter det på HandlePåHovedVindue plads...

kan du ikke finde ud af det så skirv lige :-)

/ZIRON

Ziron: det forstår jeg ikke .....hjælp

sådan så får du det hele:

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;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(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.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;

end.

/ZIRON