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

[marco1204]

alles klar danke, werd mein glück mal versuchen
erstatte dann bericht

[Sir Rufo]

Oder mal mit dem WinSpy versuchen
http://www.delphipraxis.net/15388-wi...6-09-08-a.html

[marco1204]

das funkt leider alles nicht,
weder: PostMessage(AnDasGefundeneHandle, wm_syscommand, sc_close, 0);
noch irgendwas anderes. diese KliiTask undWinSpy sind ja alles andere Programme, ich will ja ein Programm selber machen, (bzw. eher mit eurer Hilfe) und das layout auch selber gestalten können.
Hat nicht jemand nen konkreten Code, den ich dort einfüge um ein Programm zu schliesen welches unten rechts in der Taskleiste iegt (genauer: einen Keybinder) was ich einfach per Onclick schließe?
wäre mir seeehr hilfreich
danke

[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.

[Sir Rufo]

Zitat von marco1204:

das funkt leider alles nicht,
weder: PostMessage(AnDasGefundeneHandle, wm_syscommand, sc_close, 0);
noch irgendwas anderes. diese KliiTask undWinSpy sind ja alles andere Programme, ich will ja ein Programm selber machen, (bzw. eher mit eurer Hilfe) und das layout auch selber gestalten können.
Hat nicht jemand nen konkreten Code, den ich dort einfüge um ein Programm zu schliesen welches unten rechts in der Taskleiste iegt (genauer: einen Keybinder) was ich einfach per Onclick schließe?
wäre mir seeehr hilfreich
danke

Da du dir nicht die Mühe machst und den WinSpy ausprobierst, kommst du halt auch nicht in den Genuss der Erkenntnis,
dass WinSpy dir
a) zeigt was für Fenster so auf deinem System sichtbar und unsichtbar rumschwirren mit allen von Dir benötigeten Informationen
b) du damit ausprobieren kannst, ob das besagte Fenster zu schließen geht
c) du von WinSpy direkt den Delphi-Code präsentiert bekommst, den du dann in deine Anwendung übernehmen kannst
(da ist ein Script-Modul dabei, wo du so lange mit rumexperimentierst, bis alles so ist wie gewünscht und dann schwupps in die Anwendung)

Aber stimmt, das müsste man ja wieder selber erarbeiten

[EWeiss]

Eigentlich wollte ich ja nicht Antworten aber man sieht doch das marco1234 keine Ahnung bzw.. über kein Grundwissen verfügt.
Ist weiter nicht schlimm dafür ist ja ein Forum da..
Aber ich glaube er sucht jemand der es für ihn macht.

Zitat:

Nichts gegen Herumprobieren, aber man sollte schon in Grundzügen wissen, was man tut.

Sehe ich genau so.. Sorry

gruss

[alphaflight83]

Etwas OT, aber:
Danke für den Link zu WinSpy, das Ding kannte ich noch gar nicht. wirklich nützliches Tool.

[marco1204]

hm. okay anscheinend ist es doch nciht so einfach wie ich gedacht hätte.
denn ihr scheint ja irgendwie azuh nicht so richtig zu wissen was zu utn ist, bzw scheint es größere arbeit zu sein. ich will icht das ihr alles für mich macht, ich brauchte bloß hilfe für DIESE EINE ZEILE.
aber naja
ich weiß jetzt zuumindest, das ich mit fragen wohl eher nichtmehr hier her kommen werde
danke