Programmabbruch über Windows-Fenster 'x' verhindern

[Gerkey]

Möchte gerne verhindern, dass das Anwendungsprogramm über Klick auf 'x' im Windows-Fenster beendet werden kann oder zumindest eine Warnung ausgeben, falls das versucht wird !
Kann mir da jemand helfen ?

Gerkey

[Der schöne Günther]

Schau dir mal die Events OnClose und OnCloseQuery deines Formulars an.

[Jasocul]

Du kannst auch die BorderIcons im Objektinspektor ausstellen.
Allerdings funktioniert Alt-F4 trotzdem noch.

Hängt also ein bisschen davon ab, was du erreichen willst.

[a.def]

Zitat von Der schöne Günther:

Schau dir mal die Events OnClose und OnCloseQuery deines Formulars an.

In OnCloseQuery kannst du CanClose auf False setzen. Dann hast du dein Ziel erreicht.
Wenn du dein Programm aber selbständig mit Close; schließen möchtest, wird das ebenfalls nicht mehr funktionieren.
Mit einer Zeile Code ist es also nicht getan.

[p80286]

Da gab es mal was "Shell-Ersatz". Im Zusammenhang mit dem BKA-Trojaner.
Ich finde das nur gerade nicht.
Wenn ich mich richtig erinnere kann man eine Shell sooft beenden wie man will, sie wird automatisch neu gestartet.

Bin mir allerdings überhaupt nicht sicher.

Gruß
K-H

[Gerkey]

Danke für den Tip mit OnCloseQuery. Das hat mit ein paar zusätzlichen Statements gut geklappt !

gerkey

[EWeiss]

Zitat von a.def:

Zitat von Der schöne Günther:

Schau dir mal die Events OnClose und OnCloseQuery deines Formulars an.

In OnCloseQuery kannst du CanClose auf False setzen. Dann hast du dein Ziel erreicht.
Wenn du dein Programm aber selbständig mit Close; schließen möchtest, wird das ebenfalls nicht mehr funktionieren.
Mit einer Zeile Code ist es also nicht getan.

Zum besseren Verständnis Siehe!
Schließen von Fenstern

gruss

[Slipstream]

Zitat von Gerkey:

Danke für den Tip mit OnCloseQuery. Das hat mit ein paar zusätzlichen Statements gut geklappt !

gerkey

Dafür wurds ja auch erfunden, das OnCloseQuery, oder?

[t.roller]

Man kann auch das ganze Geklicke "da oben" abfangen, wenn man will...

Delphi-Quellcode:

...
  protected
    procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCLBUTTONDOWN;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
begin
if cbCLOSE.Checked then inherited;  // NO CLOSE if deactivated / unchecked
// cbCLOSE kann man durch eine PW-Abfrage ersetzen, ALT-F4 muss geblockt werden
  if msg.wParam = HTCAPTION then
  begin
   Caption:= 'HTCAPTION';  Exit;//
  end;
  if msg.wParam = HTSYSMENU then
  begin
   Caption:= 'HTSYSMENU';  Exit;//
  end;
  if msg.wParam = HTCLIENT then
  begin
   Caption:= 'HTCLIENT';  Exit;//
  end;
  if msg.wParam = HTCLOSE then
  begin
   Caption:= 'HTCLOSE';  Exit;//
  end;
  if msg.wParam = HTMAXBUTTON then
  begin
   Caption:= 'HTMAXBUTTON';  Exit;//
  end;
  if msg.wParam = HTMINBUTTON then
  begin
   Caption:= 'HTMINBUTTON';  Exit;//
  end;
end;