Ich würde gern ein Delphiprogramm erstellen, mit dem ich ein Programm schließe. Das Problem: es soll ein Programm untern rechts in der Spalte sein, also keins was offen ist, sondern halt dort neben der Uhr (kp wie man das nennt)
Ich habe es soweit geschafft:
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','
TripoX Keybinder 0.1a.exe','
'
{Parameter},'
Keybinder\',SW_SHOW);
Panel1.Visible:=true
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(FindWindow(
nil,'
TripoX Keybinder 0.1a.exe'),WM_CLOSE,0,0);
Panel1.Visible:=false;
end;
end.
Zur Erklärung:
Bei Button1Click wird das Programm gestartet, welches sich in einem Unterordner befindet. Funktioniert Einwandfrei
Bei Button2Click will ich, dass es das Programm wieder schließt, doch es ist ja nicht offen sondern nur in der Leiste als Symbol unten Rechts.
Wie lautet der Befehl, das er von dort ein Programm schließt?
Danke im Vorraus