Fremdes Programm sauber beenden

FriFra · Verfasst: Mo 24.06.02 17:08

Wie kann ich en fremdes Programm (ich habe das Handle) sauber beenden?
TerminateProcess killt ja nur die Anwendungen. Ich will aber erreichen, dass die Programme normal beendet werden.

Chatfix · Verfasst: Mo 24.06.02 18:33

ich glaub das geht so

markieren

Quelltext

1:	PostMessage(FindWindow(nil,pchar('ANWENDUNGSNAME'),WM_CLOSE, 0, 0);

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Torsten · Beiträge: 160

Ansonsten mal WM_QUIT testen.

Es gibt aber auch noch andere, weitaus aufwendigere, Methoden.

Doch probiere erst mal die oben genannte.

Grüße

Torsten

FriFra · Verfasst: Mo 24.06.02 20:59

Es geht leider nicht...

Auf WM_CLOSE reagiert die Anwendung nicht und WM_QUIT beendet das Programm nicht sauber, sondern schiesst einfach nur den Task ab.

Chatfix · Verfasst: Mo 24.06.02 21:05

Was ist den "sauber" beenden.. wenn man den Task beendet wird die anwendung doch auch geschlossen :?:

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

FriFra · Verfasst: Mo 24.06.02 21:13

Task abschiessen ist kein sauberes Beenden, da die Applikation dann keine chance mehr hat zu reagieren! Die Anwendung soll so geschlossen werden, wie wenn man auf [X] klickt...
Die fremde Anwendung soll "merken", dass sie beendet wird...

Torsten · Beiträge: 160

Hast Du das andere Programm mit CreateProcess gestartet?
Oder ist es eine völlig fremde Anwendung?

Grüße

Torsten

FriFra · Verfasst: Mo 24.06.02 21:16

Ich habe das Programm mit CreateProcess gestartet, deshalb habe ich auch das Processhandle :wink:

Chatfix · Verfasst: Mo 24.06.02 21:18

du kannst ja noch

WM_Destroy
WM_Endsession

probieren

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Chatfix · Verfasst: Mo 24.06.02 21:19

oder schau mal in der Delphi-Hilfe nach ob du was findest

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Torsten · Beiträge: 160

Ah ja, sorry. Hatte ich überlesen.

OK, dann hätte ich noch eine andere Variante.

Da Du ja das Programm selber geschrieben hast, müsstest Du ja auch die Klassennamen kennen.
Somit gehe doch den direkten Weg:

markieren

Quelltext

1:
2:

if(findwindow(pchar('TMyForm'),nil) <> 0) then 
  SendMessage(findwindow(pchar('TMyForm'),nil),WM_CLOSE,0,0);

Dabei gibt es lediglich ein Problem.
Nämlich, wenn Du alle Programme mit Formularnamen TMyForm nutzt.

Grüße

Torsten[/code]

FriFra · Verfasst: Mo 24.06.02 21:29

Wie schon gesagt, auf WM_CLOSE reagiert das Programm nicht und WM_QUIT ist das gleiche wie TerminateProcess...

Es scheint ja keiner eine echte Lösung zu haben... Ich muss aber das Programm richtig beenden, da es sein Trayicon OnClose bzw. OnDestroy selbst entfernt und ich keine Metode kenne verweiste Trayicons zu entfernen ohne mit der Maus drüber zu fahren...

Torsten · Beiträge: 160

Auch die letzte Lösung funzt nicht?
Komisch.

Na ich schau mich noch mal um.

Grüße

Torsten

Chatfix · Verfasst: Mo 24.06.02 21:33

also wen ich ein programm was ein tray-icon besitzt abschiese (prozess bzw. task beende) dann is auch das tray-icon weg...

wenn du die tray-icon-anwendung im form OnDestroy die "icon-löschen-funktion" reinmachst müsste es auch funktionieren

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

FriFra · Verfasst: Mo 24.06.02 21:36

Es funzt aber nicht... OnDestroy wird das Icon entfernt, das klappt auch beim normalen beenden, wenn ich aber den Task abschiesse bleibt das Icon... beim drüberfahren mit der Maus verschwindet es...

Chatfix · Verfasst: Mo 24.06.02 21:39

dan kanst dus nur noch mit DLLs versuchen die beide programme nutzen, da hört mein wissen aber auf

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

FriFra · Verfasst: Mo 24.06.02 21:46

Es müsste ja auch gehen, wenn man dem Tray eine Message sendet, damit er sich aktualisiert...

Torsten · Beiträge: 160

Moinsen!

OK, noch mal zum Verständniss.
Die Anwendung, die beendet werden soll, ist auch von Dir geschrieben! Richtig?

Wenn dem so ist, dann kannst Du in das Programm, welches beendet werden soll, einen MessageHandler einbauen.

Beispiel:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

private
  procedure MyMsgHandler(var: msg: TMsg; var Handled: Boolean);
public

...

procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.OnMessage:= MyMsgHandler;
end;

...

procedure MyMsgHandler(var: msg: TMsg; var Handled: Boolean);
begin
   if msg.Message = WM_IRGENDWAS then
  ...
end;

Sollte funktionieren. Habe aber jetzt gerade nicht getestet.

Grüße

Torsten

FriFra · Verfasst: Mo 24.06.02 21:55

Das aktuelle Programm ist von mir, aber die eigentliche Anwendung soll universell einsetzbar sein. Und das Problem mit den verwaisten Trayicons besteht bei alle Programmen welche im Tray laufen... deshalb wäre mir eine Lösung lieber, die entweder das Programm richtig schliesst oder aber den Systray repaintet...

Chatfix · Verfasst: Mo 24.06.02 21:59

komisch, also wenn ich z.B. icq abschiese dann ist das rtray-icon auhc mit weg.. aber du kannst ja kurzzeitig die taskleiste verstecken und wieder einlbenden

var hTaskBar: THandle;

Taskleiste verstecken:

markieren

Quelltext

1:	hTaskbar:=FindWindow('Shell_TrayWnd',nil); ShowWindow(hTaskBar, SW_HIDE);

Taskleiste sichbar machen:

markieren

Quelltext

1:	hTaskBar:=FindWindow('Shell_TrayWnd', nil); ShowWindow(hTaskBar, SW_SHOWNORMAL);

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme