[Delphi 7] Sluiten applicatie afvangen

[Verwijderd]

Ik ben vrij nieuw met het programmeren in delphi.
Ik heb een standaard formulier gemaakt wat ze alleen af kunnen sluiten met het kruisje.
De code ALT-F4 heb ik uitgeschakeld gekregen (na wat zoekwerk hier en daar).

Nu wil ik echter voordat ze op het kruisje klikken dat ik ze eerst een code moet intikken en wanneer die code correct dat hij direct compleet windows afsluit, dus niet alleen de applicatie.
Ik ben nog niet aan het zoeken geweest om windows direct af te sluiten omdat ik het nog niet voor elkaar krijg om alleen de applicatie te laten sluiten an het invoeren van een juist code.

Wie kan mij verder helpen bedankt alvast.

[NMe]

Het OnClose event van je form gebruiken?
Kan vast netter, maar goed.

[Verwijderd]

Het OnClose event gebruik ik ook al, maar ik zou graag willen weten hoe ik kan afvangen dat hij toch afsluit.

[Verwijderd]

code:

procedure TfBrowser.FormClose(Sender: TObject; var Action: TCloseAction);
var
  code: string;
begin
  code := InputBox('Afsluiten...', 'Voer hier de code in om de applicatie af te sluiten:', '');

  if (code = 'afsluiten') then Action := caFree else Action := caNone;
end;

heb ik ervan gemaakt en het werkt netjes

[Knutselsmurf]

Daarvoor heb je de OnCloseQuery. Heb zo even geen help bij de hand, maar die kan je true of false terug laten geven om aan te geven of de applicatie echt afgesloten moet worden.
hier een voorbeeld

[ Voor 21% gewijzigd door Knutselsmurf op 24-12-2005 21:44 ]

[Tomatoman]

Alt+F4 uitschakelen lijkt me een slecht idee. Het is namelijk een shortcut voor het aanklikken van het 'kruisje' en is voor mensen zonder muis de enige manier om het programma af te sluiten. In Windows mag je er niet van uitgaan dat iemand over een muis of ander aanwijsapparaat beschikt, een programma hoort altijd via het toetsenbord te bedienen te zijn.

Bovendien doet Alt+F4 precies hetzelfde als het kruisje, dus waarom zou Alt+F4 niet mogen en het kruisje wel? Dat is inconsequent. Ook is er voor de programmeur geen verschil - je kunt ze beide afvangen met OnCloseQuery en OnClose.