Einzelnen Beitrag anzeigen

marco1204

Registriert seit: 24. Jan 2011
20 Beiträge
 
#1

anderes .exe programm mittels OnClick beenden

  Alt 24. Jan 2011, 21:09
Hallo alle zusammen.
Ich bin ein rellativer Delphi anfänger.
Ich will ein Programm, bei dem ich auf "blabla.exe starten" drücke, und somit dieses programm startet. Ich will es nutzen als zusammenstellung von Keybindern.
da hat mir google schon geholfen, das funktioniert auch
es erscheint ein Panel auf dem ich dann Informationen schreibe zu den Keybindern.
auf diesem Panel soll dann wieder ein Button sein mit dem ich dieses Programm "blabla.exe" wieder schließe.
aber wie mache ich das? google hat mich irgendwie nicht schlau gemacht.

Hier mein bissheriger Quelltext mit Rechner als Beispielprogramm:
Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle,'open','calc.exe',''{Parameter},'c:\WinNT\System32',SW_SHOW);
  Panel1.Visible:=true
end;

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

end.
Die Fragezeichen sind halt das wo ich nicht weiter weiß.
hoffe ihr könnt helfen
danke im Vorraus
  Mit Zitat antworten Zitat