Comment stopper une application Delphi ?
Bonjour,
j'ai un soft qui s'amuse a balayer des sous repertoires. LE lancement se fait via un bouton avec la methode "click" associee, et les affichages se font dans la form principale.
Je voudrais le stopper. j'ai donc mis des "application.processmessages" un peu partout et j'ai un bouton auquel j'ai associe le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
procedure TForm1.stopperClick(Sender: TObject);
begin
{$i-} closefile(fi); {$i+} if ioresult <> 0 then;
{$i-} closefile(fi2); {$i+} if ioresult <> 0 then;
showmessage('');
form1.Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if lbatches <> nil then lbatches.Free;
if lbatches <> nil then lheures.Free;
action := cafree;
end; |
Les closefile c'est juste pour fermer d'eventuels fichiers ouverts.
quand je clique dessus, ca affiche bien un message vide, mais apres ca reprend l'execution la ou ca s'etait interrompu. Pareil si je mets application.terminate au lieu du close.
je mets aussi la methode formclose au cas ou ca aiderait.
