Programm für schließung eines Programes in der Taskleiste rechts neben der Uhr

[DeddyH]

Nichts gegen Herumprobieren, aber man sollte schon in Grundzügen wissen, was man tut. "Funkt nicht" hilft uns allen nicht weiter. Bist Du sicher, dass Du auch das richtige Handle hast? Hast Du Dir WinSpy einmal angeschaut? Dann solltest Du bemerkt haben, dass das Programm Dir sogar entsprechenden Code generieren kann.

[marco1204]

mein programm sieht so aus:

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'),SC_CLOSE,0,0);
  Panel1.Visible:=false;
end;

end.

starten funktioniert ja... aber das beenden das programmes, da tut sich nichts.
ich weiß ja aucf welchem pfad das programm liegt, also hier zumbeispiel unter dem unterordner /Keybinder/
aber hiflt das was? also geht das auch iwie das er die datei auf dem pfad beendet?
habe bissher keinen weg gefunden

[Luckie]

SC_CLOSE ist keine Nachricht, sondern der WParam vom WM_SYSCOMMAND. Aber der Beispielcode wurde hier schon gepostet.