Discussion :

[David]

Toujours pour mon petit compteur, j'ai un autre problème :
en fait, l'evénement qui provoque l'incrémentation doit être l'execution du prg !

Je m'explique : à la première execution le compteur se met à 1. Pas de problème.
Dès la seconde, le prg doit vérifier si il est déja instancié.
si oui : passage d'un paramètre ou événément déclancheur (?) à la première instance pour incrementation, puis fin de la seconde instance.

Cette méthode vous semble-t-elle correcte ?
Si oui un peu d'aide me serait très utile !

Pour le passage du paramètre, le fonction ParamStr peut elle faire l'affaire ou bien n'est elle possible qu'à l'execution ?

Merci pour votre aide

[Nono40]

Non paramstr n'est mise à jour qu'au démarrage de l'application. Donc tu ne peux pas l'utilser dans ton cas.

Une astuce serait d'envoyer un message à l'instance 1 depuis l'instance 2 qui incrémenterait le compteur. Pour la gestion de messages perso dans une appli voir :
http://nono40.developpez.com/sources/source0073.html

[edam]

salut
nono si en utilise ton procedure: FindWindow('TFormSomme',Nil); et en a déja deux instance alors il naura pas de probléme car FindWindow peut donner le handle de l'application appelante ,Non? :

[Nono40]

Oui, exact...

Mais en envoyant le message à l'application elle-même au lieu d'une fenêtre on peut changer le titre de l'application avant... Exemple ici :
http://delphi.developpez.com/faq/?pa...xecution#1plan

[edam]

salut
oujourd'hui jai consacré un peut de temp pour OLE dans delphi 2 pour exepert jai trouver quelque chose qui peut servire ici
je sais pas comment mai jai vu que si daus aplication peut se communiquer
nono je pence que tu peut expliquer sa bien que moi
et a propos pour mon afficheru je pence que je vs dérange pas

[Fares BELHAOUAS]

Salem

Tu peux utiliser un fichier INI pour remplire la valeur d'incrémentation

l'instance à l'execution vérifie s'il y a une précédente instance qui s'execute, si ce n'est pas le cas elle ecris une valeur dans un fichier ini et la met à 0.
sinon, s'il y a une instance avant, elle incrémente la valeur et se termine.

Pour vérifier si une instance du programme est en execution j'utilise le code suivant :

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
 
 var gbApplicationAllreadyRuning : boolean ;
 
begin
   gbApplicationAllreadyRuning := (OpenMutex(MUTEX_ALL_ACCESS,False,
    'Mon Application') <> 0) ;
 
 if not(gbApplicationAllreadyRuning) then
   begin
    CreateMutex(nil,False,'Mon Application');
    Application.Initialize;
    Application.CreateForm(TFichePrincipale, FichePrincipale);
    Application.Run;
   end
 else
   ShowMessage('Application déjà en cours d''exécution !')
end.

[edam]

pour connétre si une précédente instance est executé cest simple sans ini il a une fonction qui vs donne sa

[David]

Merci a vous tous.
Je vais explorer toutes ces pistes.