forcer l'évén onclose du MainForm de faire son travail avant FinRésolu

Question

first i'm so sorry for using this language :
second my problem is:
How to force the onclose event of the Main Form to do his job before terminated or killed by any External Process like the task Manager  .
i have using this code to make Fullscreen of my Main form Application and look like a game application and this is my code :

var
  Form1: TForm1;
      HTaskbar: HWND;
  OldVal: LongInt;
implementation
 uses Unit2;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 try
    // Find handle of TASKBAR
    HTaskBar := FindWindow('Shell_TrayWnd', nil);
    // Turn SYSTEM KEYS off, Only Win 95/98/ME
    SystemParametersInfo(97, Word(True), @OldVal, 0);
    // Disable the taskbar
    EnableWindow(HTaskBar, False);
    // Hide the taskbar
    ShowWindow(HTaskbar, SW_HIDE);
  finally
    with Form1 do
    begin
      BorderStyle := bsNone;
      FormStyle   := fsStayOnTop;
      Left        := 0;
      Top         := 0;
      Height      := Screen.Height;
      Width       := Screen.Width;
    end;
  end ;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  //Find handle of TASKBAR
  HTaskBar := FindWindow('Shell_TrayWnd', nil);
  //Turn SYSTEM KEYS Back ON, Only Win 95/98/ME
  SystemParametersInfo(97, Word(False), @OldVal, 0);
  //Enable the taskbar
  EnableWindow(HTaskBar, True);
  //Show the taskbar
  ShowWindow(HTaskbar, SW_SHOW);
end;

and this Onclose event is my problem when my application face a crash or access violation in his Mimory i have to use the task manager to kill or terminate My process from memory ,but this can't solve the problem and finish by hiding the task bar Menu system and this is very bad to me and the user 
so please help ........

MiniApp · Answer

Bonjour (good Morning),

You can insert a command Action := caFree.
This command close and eliminate used memory of a form, but in a form the default value is Action := caFree, (N.B. : Pour MDIChild val par défault Action := caMinimize). Sorry if my English is bad.
 
In French (en français):
Tu peut insérez la commandeAction := caFree.
La commande ferme et elimine la mémoire utilisé par la form, mais dans une form la valeurr par défault est Action := caFree, (N.B. : Pour MDIChild val par défault Action := caMinimize)
Chercher et essayer : vous trouverez la solution!
Fouiner et regarder partout : vous trouverez la connaissance!!

Cirec · Answer

Hi,

Can we speak English?
Yes we can. ^^

But you are on a French site, and we must use that language. If this is a problem for you, you can always use Google Translate to ask your question.

Thank you for your understanding. 

If we finish the process from the outside and brutally (by Task Manager) no event is triggered (OnClose, OnCloseQuery, OnDestroy)


Salut,

Peut-on parler anglais?
Oui, nous pouvons. ^^

Mais vous êtes sur un site français, et nous devons utiliser cette langue. Si c'est un problème pour vous, vous pouvez toujours utiliser Google Translate pour poser votre question.

Nous vous remercions de votre compréhension.

Si on termine un processus de l'extérieur et de manière brutale (par le Gestionnaire de Tâches) aucun évènement n'est déclenché (OnClose, OnCloseQuery, OnDestroy)

bravemouse · Answer

Monsieur Cirec  merci pour votre Entré inattendue mais c'est vraiment mignonne et j'aimerai cette manière que vous parler et ça ma pousser de faire étudier la langue français comme même ...
en retour sur l'objet : es que  il y à une Méthode de hook peut m'aider pour faire s'échapper de la Mort de Mon application depuis le gestionnaire des taches ? autrement dit es que je peut introduire une commande dans mon app pour le temp que je tue mon app depuis le task Manager la bare menu des taches de windows revienne à l'état précédente .....
c'est tous et pardonne moi pour mes fautes françaises

bravemouse · Answer

j'ai oublier de dire encore merci pour votre peine le temps que vous    écrit et répondre à moi .....
c'est était vraiment une magnifique stratégie pour me pousser à aller sur google translate et faire poser ma question et apprendre de la langue française en même temps .....
je vous félicite et merci beaucoup ...
Cordialement : bravesaw

MiniApp · Answer

Google Translate est très pratique, mais il ne fait pas forçément de bonne traduction :-( ("pour votre peine le temps que vous écrit" is not French, "pour votre peine le temps que je vous écrit" is more good). Après pour sauver ton App du crash TaskMgr, il faut une seconde app. Perso je ne pense pas que sauver une app du crash est très pratique, quand le PC est surchargé si on veut arrêter ton app ce sera impossible et sa empirerait les choses.

Google Translate is very practical, but it doesn't necessarily make good translation. After for saving your App of crash taskmgr, it takes a second app. Personally I do not think saving a crash app is very convenient, when the PC is overloaded if you want to stop your app and it will not make things worse.

Cirec · Answer

oui Google translate n'est pas toujours top ... mais on comprend bien le sens de la phrase.

Et si le texte est écrit en "bon Anglais"  la traduction est impeccable.

pour BraveMouse:

La seule solution est de créer une seconde application un "Luncher" qui va faire les modifications de l'environnement (OS), lancer l'application et à la fin restaurer l'environnement et ce même si le processus est tué par le gestionnaire des tâches.

program Luncher;

{*$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  HTaskbar: HWND;
  OldVal: LongInt;

procedure HideTaskBar;
begin
  // Find handle of TASKBAR
  HTaskBar := FindWindow('Shell_TrayWnd', nil);
  // Turn SYSTEM KEYS off, Only Win 95/98/ME
  SystemParametersInfo(97, Word(True), @OldVal, 0);
  // Disable the taskbar
  EnableWindow(HTaskBar, False);
  // Hide the taskbar
  ShowWindow(HTaskbar, SW_HIDE);
end;

procedure ShowTaskBar;
begin
  //Find handle of TASKBAR
  HTaskBar := FindWindow('Shell_TrayWnd', nil);
  //Turn SYSTEM KEYS Back ON, Only Win 95/98/ME
  SystemParametersInfo(97, Word(False), @OldVal, 0);
  //Enable the taskbar
  EnableWindow(HTaskBar, True);
  //Show the taskbar
  ShowWindow(HTaskbar, SW_SHOW);
end;

procedure LunchApp(const App: string);
var
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(Start, Sizeof(Start), #0);
  start.cb := SizeOf(start);

if CreateProcess(nil, PChar(App), nil, nil, False,
    NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then
  try
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
  finally
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;
end;

begin
  HideTaskBar;
  try
    LunchApp('.\AppTest.exe');
  finally
    ShowTaskBar;
  end;
end.

solilog · Answer

Hi all, 
Sorry Cirec, we can forget French for once.
I suggest something else...
The issue: when the prog crashes, the OnClose event is not called and the process created in the FormCreate is not killed.
There are the procedures initialization and finalization.  As their names, the first is called when the unit is loaded, the second when the unit is unloaded (at the end of the application). When these proc are called, the Form never exists (or not created -initialization', or already free - finalization), so you cannot acces to object in the form, only variables, global procedures.

finalization is ALLWAYS called, even when the program crashes. Try to put your Onclose intructions there. No time to test it now, but sure it'll work.
example: no need the word procedure  nor begin end.

interface 
...
implementation
...

procedure closeprocess;
begin
...
end;

finalization
   closeprocess;   

end.

Regards

solilog

Cirec · Answer

Salut,

je suis désolé de dire non sur toute la ligne ^^

étant un site francophone on ne peut pas commencer a faire d'exception  sinon on devra aussi d'accepter de répondre en Allemand, Portugais ... etc etc. ... bref et ça fait parti du règlement de CS.

sinon pour "initialization / finalization" 
finalization is ALLWAYS called, even when the program crashesben ... c'est pareil ... c'est non ! 
ça ne fonctionne pas !
si le processus plante ou si il est tué plus rien n'est exécuté !!!


fais le teste ;)
bonne soirée.

solilog · Answer

Bonjour,
mes excuses, j ai teste et Cirec a (encore et toujours) raison :-)
solilog

bravemouse · Answer

soyer les bien venus Monsieur : Solilog .
et Merci Pour Votre Suggestion .

Forcer l'évén onclose du MainForm de faire son travail avant Fin

10 réponses

Votre réponse

Discussions similaires