PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → [WD11] Detecter 2° lancement
[WD11] Detecter 2° lancement
Débuté par Dc, 21 fév. 2007 10:59 - 4 réponses
Posté le 21 février 2007 - 10:59
Bonjour,

Soit une application lancée.
je voudrais effectuer une action si elle est lancée une deuxieme fois.
Comment detecter lors de l'init, que mon appli est deja ouverte ?

merci

--
-------------------------------------------------------------
www.ctc-soft.com
NOUV : Système de surveillance vidéo
Comptabilité shareware
Logiciels de Gestion de saisie terrain
Spécialisé Tournées de boulangers
-------------------------------------------------------------
Posté le 21 février 2007 - 11:09
Bonjour,
Si c'est juste pour bloquer le lancement, tu peux le faire dans les propriété de l'exe (je n'ai plus le nom de l'option en tête).
Sinon regarde dans l'aide de exelancé.

Frédéric.
Posté le 22 février 2007 - 11:50
Bonjour,

dans le code suivant, on supprime le processus du même programme.

chListePID, chPID, chExe est une chaîne
enI, enPid, enNb est un entier

chExe=ExeInfo(exeNom)
chListePID=ExeListeProcessus(exePID, exeNomLong)
enNb=ChaîneOccurrence(chListePID,chExe)
SI enNb>1 ALORS
enNb=ChaîneOccurrence(chListePID,RC)
POUR enI=1 A enNb
SI Position(ExtraitChaîne(chListePID,enI,RC),chExe)>0 ALORS
chPID=ExtraitChaîne(chListePID,enI,RC)
chPID=ExtraitChaîne(chPID,1,TAB)
enPid=chPID
ExeTermine(enPid)
RETOUR
FIN
FIN
FIN
Posté le 23 février 2007 - 10:11
"Alain Blanc" <ablanc@lasociete.com> a écrit dans le message de news:
45dd6554$1@news.pcsoft.fr...

Bonjour,

dans le code suivant, on supprime le processus du même programme.

chListePID, chPID, chExe est une chaîne
enI, enPid, enNb est un entier

chExe=ExeInfo(exeNom)
chListePID=ExeListeProcessus(exePID, exeNomLong)
enNb=ChaîneOccurrence(chListePID,chExe)
SI enNb>1 ALORS
enNb=ChaîneOccurrence(chListePID,RC)
POUR enI=1 A enNb
SI Position(ExtraitChaîne(chListePID,enI,RC),chExe)>0 ALORS
chPID=ExtraitChaîne(chListePID,enI,RC)
chPID=ExtraitChaîne(chPID,1,TAB)
enPid=chPID
ExeTermine(enPid)
RETOUR
FIN
FIN
FIN

Coher tout simplement l'option mono-instance dans la création de
l'exécutable
Posté le 23 février 2007 - 18:21
Bonjour,



Peanut avait énoncé :


Coher tout simplement l'option mono-instance dans la création de
l'exécutable


je veux pas l'empecher le 2° lancement, je veux le Detecter....
faut que je regarde plus en details es 2 autres reponses...

merci a tous

--
-------------------------------------------------------------
www.ctc-soft.com
NOUV : Système de surveillance vidéo
Comptabilité shareware
Logiciels de Gestion de saisie terrain
Spécialisé Tournées de boulangers
-------------------------------------------------------------