Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Komplette Anwendung aus DLL beenden (https://www.delphipraxis.net/123168-komplette-anwendung-aus-dll-beenden.html)

RWarnecke 28. Okt 2008 21:39


Komplette Anwendung aus DLL beenden
 
Hallo zusammen,

ich habe eine DLL mit einer Form. Gibt es eine Möglichkeit die komplette Anwendung zu schliessen mit einem Button der auf der Form aus der DLL ist ?

_frank_ 28. Okt 2008 21:51

Re: Komplette Anwendung aus DLL beenden
 
wenn du an das handle des Mainforms rankommst sollte das mittels WM_CLOSE funktionieren, oder du machst es dirty: holst dir das Prozesshandle (afair GetCurrentThreadID) und killst diesen ;)
alternativ kannst du auch eine Plugin-Schnittstelle bauen, wo du aus der DLL eine routine des Hauptprogramms aufruft um es zu schließen. Da sehe ich aber schon AVs haglen, da nach dem abarbeiten der Main-Methode, versucht wird wieder in die dll-procedure zurückzukehren, was ggf. nicht mehr möglich ist.

HTH Frank

Luckie 28. Okt 2008 22:01

Re: Komplette Anwendung aus DLL beenden
 
Sene eine WM_CLOSE an dein Hauptfenster. Vom Abschiessen würde ich abraten.

Viktorii 29. Okt 2008 07:01

Re: Komplette Anwendung aus DLL beenden
 
Ist das so gemeint:

Delphi-Quellcode:
SendMessage(hWnd, WM_CLOSE, 0, 0)
:?:

Auf die Gefahr hin, ne dumme Frage zustellen: Wie komme ich denn an das Handle?

mjustin 29. Okt 2008 07:41

Re: Komplette Anwendung aus DLL beenden
 
Zitat:

Zitat von Viktorii
Ist das so gemeint:

Delphi-Quellcode:
SendMessage(hWnd, WM_CLOSE, 0, 0)
:?:

Auf die Gefahr hin, ne dumme Frage zustellen: Wie komme ich denn an das Handle?

MMit etwas Glück kann man mit GetParent die Fensterhierarchie bis zum Hauptfenster hinauf gelangen. Wenn ein Fenster kein Parent-Fenster mehr hat, ist man dann am Ziel...

Mike

DeddyH 29. Okt 2008 07:43

Re: Komplette Anwendung aus DLL beenden
 
Wäre es nicht einfacher, beim Aufruf der DLL das eigene Fensterhandle gleich mitzugeben?

hoika 29. Okt 2008 07:50

Re: Komplette Anwendung aus DLL beenden
 
Hallo,

so richtig verstehe ich das Problem nicht.

Das Form wird über einen DLL-Aufruf erzeugt.
Dann klickst du im Form auf "Komplett beenden" (als Bsp.)

Das Form ist ja wohl Modal oder ?
Warum übergibst du deinem DLL-Aufruf keinen var Parameter,
und nachdem das DLL-Form geschlossen wurde, wertest du diesen var-Parameter aus
und beendest ggfs. dein Programm.

Zeig doch mal den DLL-Aufruf (die aus der DLL exportierte Methode).


Heiko

RWarnecke 29. Okt 2008 07:51

Re: Komplette Anwendung aus DLL beenden
 
Zitat:

Zitat von DeddyH
Wäre es nicht einfacher, beim Aufruf der DLL das eigene Fensterhandle gleich mitzugeben?

Das ist richtig. Eine andere Möglichkeit wäre auch, das Handle mit FindWindow zu ermitteln. Aber Application.MainFormHandle müsste doch auch das Handle vom Hauptfenster sein oder ?

DeddyH 29. Okt 2008 07:53

Re: Komplette Anwendung aus DLL beenden
 
Application.MainForm.Handle ist das Handle des Hauptfensters der Anwendung. IIRC ist das innerhalb der DLL aber ein anderes, aber ich kann mich da auch irren.

RWarnecke 29. Okt 2008 08:09

Re: Komplette Anwendung aus DLL beenden
 
Zitat:

Zitat von DeddyH
Application.MainForm.Handle ist das Handle des Hauptfensters der Anwendung. IIRC ist das innerhalb der DLL aber ein anderes, aber ich kann mich da auch irren.

Ich werde es heute Abend mal ausprobieren und dann hier berichten, wie es ist.

Luckie 29. Okt 2008 08:32

Re: Komplette Anwendung aus DLL beenden
 
Innerhalb der DLL hast du ja kein TApplication Objekt. Und wenn du es hast, müsste es ein anderes als das deiner Anwendung sein. Warum wird denn eigentlich so ein Spagat veranstalltete, wo man das Problem doch mit WM_CLOSE und dem Fensterhandle ganz einfach schon gelöst hätte?

DeddyH 29. Okt 2008 08:37

Re: Komplette Anwendung aus DLL beenden
 
Deshalb ja mein Vorschlag aus #6, es muss ja nicht unbedingt das eigene Handle sein, Application.Mainform.Handle ginge ja auch.

RWarnecke 29. Okt 2008 12:39

Re: Komplette Anwendung aus DLL beenden
 
Zitat:

Zitat von Luckie
Innerhalb der DLL hast du ja kein TApplication Objekt. Und wenn du es hast, müsste es ein anderes als das deiner Anwendung sein. Warum wird denn eigentlich so ein Spagat veranstalltete, wo man das Problem doch mit WM_CLOSE und dem Fensterhandle ganz einfach schon gelöst hätte?

Hallo Michael,

ich habe gerade zur Zeit kein Delphi zur Hand, so dass ich es ausprobieren könnte. Ich werde es heute Abend ausprobieren. Ich melde mich wieder und werde hier dann das Endresulttat posten.

RWarnecke 29. Okt 2008 20:27

Re: Komplette Anwendung aus DLL beenden
 
Also ich habe das ganze jetzt mal ausprobiert. Ich hatte leider keinen Erfolg mit diesen drei Variationen :
Delphi-Quellcode:
SendMessage(FindWindow('TMainForm', 'Code-Orakel v1.1.0'), WM_CLOSE, 0, 0);
{...}
SendMessage(Application.MainFormHandle, WM_CLOSE, 0, 0);
{...}
SendMessage(Application.MainForm.Handle, WM_CLOSE, 0, 0);
Entweder wurde nur die Form die in der DLL geschlossen oder es passierte garnichts.

Hintergrund meiner Frage ist, ich wollte die TMSWebUpdate Komponente in eine DLL packen um es einfach zu haben, ein WebUpdate in eine Anwendung einzubinden.

_frank_ 29. Okt 2008 21:35

Re: Komplette Anwendung aus DLL beenden
 
Die beiden letzten greifen auf das TApplication-Object der dll zu und nicht der Hostanwendung.Das zweite hat sicherlich beim compilieren schon gemeckert...
Der erste Weg müsste funktionieren,jedoch solltest du mal schauen,ob Findwindow überhaupt ein gültiges Fensterhandle zurückliefert (<>0).ist dem so,musst du der nachricht evtl noch einen Parameter mitschicken (auch wenn ich nicht wüsste,welchen ;) ),dazu sagt aber sicher das MSDN etwas.

HTH Frank

Luckie 29. Okt 2008 21:38

Re: Komplette Anwendung aus DLL beenden
 
WM_CLOSE ist parameterlos.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:22 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz