![]() |
Programmbeendigung verhindern
Hallo, Delphi-Praktiker,
wie kann ich verhindern, daß ein Benutzer über das "X" oben rechts oder mit alt-F4 ein Programm beenden kann ? Beste Grüße Klaus-Peter |
Re: Programmbeendigung verhindern
Was ist der Sinn davon das der User nicht mehr die auf seinem PC gestarteten Programme beenden kann? Das würde mich stören und das Programm sofort wieder löschen.
|
Re: Programmbeendigung verhindern
Im Ereignis OnCloseQuery die Variable CanClose auf False setzen.
|
Re: Programmbeendigung verhindern
Hallo, Bernhard,
wenn das Programm von einem berechtigten/ registrierten Benutzer gestartet wurde (und laufend vor sich hin arbeitet), soll es auch nur von einem solchen Benutzer wieder beendet werden können und nicht von jemandem, der zufällig auf den Bildschirm schaut. Klaus-Peter |
Re: Programmbeendigung verhindern
Geht es also um fremde Programme?
|
Re: Programmbeendigung verhindern
Und wie soll er das können, wenn der Button nicht mehr funktioniert.
entweder du schreibst im OnClose ereigns deines Formulares
Delphi-Quellcode:
dadurch kann das formular nur noch über Application.Terminate geschlossen werden. Das ganze Programm wird beendet
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin Action := caNone; end; Den Button selbst kannst du so deaktivieren
Delphi-Quellcode:
und so wieder aktivieren
EnableMenuItem(GetSystemMenu(Form1.Handle, False), SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
Delphi-Quellcode:
dabei kann das rogramm noch über Alt+F4 schliessen
EnableMenuItem(GetSystemMenu(Form1.Handle, False), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
|
Re: Programmbeendigung verhindern
Hallo, Oregon,
ich verstehe den Sinn der Rückfrage nicht. Ich entwickle ein Programm, bei dem ein (kleiner) Schutz vor unberechtigtem Beenden eingebaut werden soll. Klaus-Peter |
Re: Programmbeendigung verhindern
Die Frage war so gemeint, ob du dein eigenes Programm so schützen willst oder ein Fremdes (z.B. Notepad oder sonst ein Programm)
|
Re: Programmbeendigung verhindern
Zitat:
|
Re: Programmbeendigung verhindern
Alternativ auch das Programm mit einer Sperrvorrichtung ausstatten. Alos eine kleine Passwortabfrage oder etwas vergleichbares. :)
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:33 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz