Discussion :

[TOTO32]

Bonjour a tous,

Voici le bout de code qui m'intrigue !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TTray.Timer1Timer(Sender: TObject);
var SCANINI, SCANPRG: TIniFile; I, J, Sum: Integer; ScanSet: String; VerifDate: Boolean;
    DirPar: ShortString;
begin
    try
        ...
        ......
        for I:=1 to Sum do begin
            if SCANINI.ReadString('File'+IntToStr(I),'Enabled','Non') = 'Oui' then 
            begin
                .....
                ........
                DirPar:=ExtractFilePath(Application.ExeName);
                DirPar:=Copy(DirPar,1,Length(DirPar-8);
                if ProcSetting(ExtractFilePath(Application.ExeName)) then 
                      ShowWrn(DirPar,1);
                Exit;
            end;
        end;
        ...
        ..........
    finally
        SCANINI.Free;
    end;
end;

Sachant que ProcSetting est une fonction me retournant un Boolean
Cette fonction est importer d'une DLL, nommé "scfchk.dll".

Sachant que ShowWrn est une procedure importer d'une autre DLL, nommé "scfwrn.dll".
Cette DLL affiche une fenetre générant un rapport dans un TEdit.

Sachant que TTray.Timer1Timer est éxécuté toute les 60 secondes.


Le principe d'éxécution est :
Quand TTray.Timer1Timer est éxécuté celui-ci verifie certaine chose, ensuite si tout a été verifier il me lance la fonction ProcSetting, si elle renvoie True, la fonction me lance la procedure ShowWrn qui affiche une fenetre.

La question que je me pose est :
Est-ce que quand la procedure ShowWrn affiche la fenetre, la procedure TTray.Timer1Timer est toujour active, si oui, empêche telle une autre instance de TTray.Timer1Timer de s'éxécuté ?

Car j'aurai besoin que quand la fenetre s'affiche, que la procedure TTray.Timer1Timer puisse tourner normalement, et me generer d'autre instance de ShowWrn, si oui, est-ce possible ? et comment ?

Merci pour votre aide !

[MD Software]

Les timers sont réantrants, c'est à dire que l'évènement se déclenche tout le temps, même si l'exécution est bloquée dans l'évènement précédent.
Attention cependant, il faut que l'exécution des messages de Windows soit toujours possible. En effet, le timer déclenche un WM_Timer qui s'ajoute dans la file de message. Si l'exécution de cette file est bloquée, par exemple par un Sleep, les WM_Timer vont s'ajouter dans la file au bon moment, mais ne seront pas exécutés tout de suite.

[Nono40]

Pour la deuxième partie, il faut que tu crées ta fenêtre en dynamique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With TMaForm.Create(Application) Do
Try
  ShowModal;
Finally
  Free;
End;

[TOTO32]

Merci,

pour l'éxécution je pense y voir plus clair, sauf que j'aurais aimé avoir plus de precision pour le "sleep".

Quand a la reponse de nono40, je ne comprend pas de quel fenetre tu parle, et surtout pourquoi je devrait le créer en dynamique, quel différence !

Désolé mais je débute !