Hallo,

bei einem bestimmten Ereignis, welches im OnActivate Ereignis bzw der FormActivation-Prozedur abgefragt wird, möchte ich meine Applikation schließen und die Weiternutzung verhindern. Das habe ich versuchsweise mit:

PostMessage(Handle, WM_CLOSE, 0, 0);

gelöst. Innerhalb von Delphi XE funzt das auch problemlos, starte ich die Applikation aber direkt außerhalb von Delphi, bleibt dieser Befehl wirkungslos. Was kann man da tun ?

Grundsatzfrage: Warum lässt du überhaupt das Fenster erst aufgehen und brichst es nicht schon vorher ab?

PostQuitMessage(0);

Zitat von pelzig:

PostQuitMessage(0);

VCL: Application.Terminate;

Aber wie gesagt, man kann natürlich erst vollgas geben, und wirft danach den Anker raus, bzw. schießt mit einem Panzer den Motorblock weg,
anstatt man garnicht erst losfährt.

Deine Analogien werden auch immer wilder

Zitat von himitsu:

Grundsatzfrage: Warum lässt du überhaupt das Fenster erst aufgehen und brichst es nicht schon vorher ab?

Weil ich eine Funktion habe, die im festgelegten Intervall einen bestimmten Zustand überprüft, und wenn der eintritt, soll das Programm beendet werden. Gleichzeitig rufe ich diese Funktion in der FormActivate-Funktion auf, da der Zustand auch beim Programmstart einmalig geprüft werden soll.

Application.Terminate funktioniert übrigens nicht, das hab ich schon getestet.

So besser?

• Man kann natürlich das Haus (Form) bauen, einrichten (Create), dem Eigentümer das Exposé schicken (OnShow) und während der Eigentümer grade die Eingangstür hindurch will (OnActivate), reißt man alles schnell wieder ab (Exit), weil der doch nicht da rein durfte und man ihm garkein Haus geben wollte.
• Oder man hört auf, bevor es los geht.

PS: Wenn dein Programm im Hintergrund startet, garnicht erst den Fokus bekommt, dann würde die Form wohl nicht aktiviert (bekommt den Eigabefokus nicht) und würde schön sichtbar bleiben und man könnte alles stundenlang sehen, wenn man den Vordergrundprozess zur Seite schiebt.
Und solange dein Programme/Fenster dann den Fokus nicht bekommt, kann man per Messages alles damit machen.

@himitsu
Macht immer wieder spaß deine Schnitzereien zu lesen

gruss

Zitat von devidespe:

Gleichzeitig rufe ich diese Funktion in der FormActivate-Funktion auf, da der Zustand auch beim Programmstart einmalig geprüft werden soll.

Na dann prüfe das auch beim Programmstart

zusammenfalten · markieren

Delphi-Quellcode:

program MeineTolleAnwendung;

begin
  // hier ist der Start des Programms, hier prüfen

  if EinBesondererMoment then
    Exit;

  Application.Initialize;
  Application.CreateForm( TForm1, Form1 );
  Application.Run;
end.