Discussion :

[gudul]

Bonjour,

j'ai un programme delphi qui ne doit être lancé qu'une seule fois. J'ai donc créé un mutex afin de ne pouvoir lancer qu'un processus. Mon soucis est que je suis sur un serveur TSE et que mon système ne fonctionne que pour une session. J'aimerai pouvoir vérifier que le programme ne tourne pas déjà sur une autre session. J'arrive à voir les processus dans le gestionnaire des clients TSE, il doit donc y avoir un moyen de le voir par programme.

[gudul]

Personne n'a une idée ?

[evarisnea]

excuse mon ignorance, mais TSE c'est quoi ?
:

[dd16]

Vu le principe de l'environnement TSE (ou Citrix) le plus simple serait de pouvoir ecrire un fichier qui te permet de savoir si ton appli est lancée dans un repertoire commun à toute les sessions.

La base de registre est spécifique à chaque session donc le .ini s'impose

[Graffito]

Bonjour,

Le fichier que l'on écrit au lancement et que l'on supprime à la fin représente une solution simple, mais si le programme crashe, on est bloqué. Pour résoudre ce problème, on peut se servir des attributs datetime du fichier à condition d'actualiser périodiquement les attributs dates.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TfrMain.Timer1Timer(Sender: TObject);
begin
//périodiquement, toutes les nn secondes 
Deletefile(lockfilename);
writefile(lockfilename) ;
// Si ça crashe entre les 2 instructions précédentes : y'aura un problème 
end;
 
// Au lancement :
// on vérifie si le fichier lock existe : il est toujours présent sauf en cours d'écriture du Lock
if not Renamefile(lockfilename, tempfilename) ;
   then showmessage('process déjà actif') ;
   else begin 
          // ecrit un deuxiéme fichier pour récupérer l'heure d'écrtiture du serveur de fichier
          writefile(tempfilename2) ;
         // vérifie si la différence de datetime entre l'écritutre du temp et 
         // du lock est supérieure à n fois le timer 
       if abs(GetFileDateTime(tempfilename)-GetFileDateTime(tempfilename2))*3600*24 < n*nn 
          then showmessage('process déjà actif')  
          else begin writefile(lockfilename) ; timer1.enabled:=true ; end ;
        deletefile(tempfilename) ;
        deletefile(tempfilename2) ;
        end ;
 
procedure writefile(filename:string) ;
var tsl:tstringlist;
begin
tsl:=tstringlist.create ; tsl.savetofile(filename) tsl.free ;end;
 
function GetFileDateTime(filename:string) : TDateTime;
begin
// lire les attributs date time du fichier
if fileexists(filename) 
   then result:=0
   else begin 
          // result:=attributs date time du fichier
          ...
          end ;
end ;

[Graffito]

Rebonjour,

J'ai corrigé, complété et simplifié le code du message précédent :
La seule possibilité de problème est un crash dans la function canStartProcess si il n'y a pas d'autre process actif.

A l'installation de l'appli, il faut créer le fichier lock (lockfilename), sans quoi aucun process ne demarrera jamais.

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
26
27
28
29
30
31
32
33
34
35
procedure TfrMain.Timer1Timer(Sender: TObject); 
begin //périodiquement, toutes les nn secondes 
writefile(lockfilename) ; 
end; 
 
function Canstartprocess : boolean; 
...
// Au lancement, on vérifie si le fichier lock existe. 
// il sera absent si un autre process est aussi en train de démarrer 
result:=false ;
if Renamefile(lockfilename, tempfilename) then begin 
   // ecrit un deuxiéme fichier pour récupérer l'heure d'écriture du serveur de fichier 
   writefile(tempfilename2) ; 
   // vérifie si la différence de datetime entre l'écriture du temp et 
   // du lock est supérieure à n fois le timer 
   result:=abs(GetFileDateTime(tempfilename)-GetFileDateTime(tempfilename2))*3600*24 > n*nn 
   writefile(lockfilename) ;
   deletefile(tempfilename) ; 
   deletefile(tempfilename2) ; 
   end ; 
timer1.enabled:=ok ;
if not result then showmessage('process déjà actif') ; 
end;
 
procedure writefile(filename:string) ; 
var tsl:tstringlist; 
begin 
tsl:=tstringlist.create ; tsl.savetofile(filename) ; tsl.free ; end; 
 
function GetFileDateTime(filename:string) : TDateTime; 
begin // lire les attributs date time du fichier 
if fileexists(filename) 
   then result:=0 
   else result:=FileDateToDateTime(fileAge(filename)) ; 
end ;

[Laurent Dardenne]

Attention à ne pas intégrer sous Citrix/TSE une application à coup de marteau !
Si elle n'est pas prévu pour, on ne peut rien faire si ce n'est de 'bricoler'.
Pensez aux admins système qui vont subir ce genre d'approche, c'est une solution certes mais à quelle prix ! cf. la remarque de Graffito
Vous allez créer le lundi vos em****** du vendredi, pensez-y.

As-tu regardé les API TSE
wtsenumerateprocesses
wtsenumeratesessions

Consulte aussi les providers pour WMI

[swierzbicki]

Si votre application ne necessite aucune interface utilisateur il serait plus sage de developper un service NT ?

[Laurent Dardenne]

Une autre piste
http://www.codeproject.com/w2k/LiviuBirjegaCode3.asp
A vérifier

Code :

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

1
2
3
4
5
 
CreateMutex
..
 
Terminal Services:  The name can have a "Global\" or "Local\" prefix to explicitly create the object in the global or session name space. The remainder of the name can contain any character except the backslash character (\). For more information, see Kernel Object Namespaces.

[gudul]

merci pour vos reponses.

Je pense que Laurent a la solution mais le lien n'est pas facile à déchiffrer.

J'ai trouvé ce lien qui explique ce que je dois faire. En plus, c'est du Delphi

http://www.jrsoftware.org/iskb.php?mutexsessions

[gudul]

Ca marche, le seul truc c'est que j'ai changé le nom du premier Mutex car pour windows, le nom Global\MonNomDeMutex et MonNomDeMutex sont reconnus comme le même et l'appli ne se lance pas. J'ai donc rajouté 'Local' à la fin

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
26
27
28
29
30
31
32
procedure CreateMutexes(const MutexName: String);
{ Creates the two mutexes checked for by the installer/uninstaller to see if
  the program is still running.
  One of the mutexes is created in the global name space (which makes it
  possible to access the mutex across user sessions in Windows XP); the other
  is created in the session name space (because versions of Windows NT prior
  to 4.0 TSE don't have a global name space and don't support the 'Global\'
  prefix). }
const
  SECURITY_DESCRIPTOR_REVISION = 1;  { Win32 constant not defined in Delphi 3 }
var
  SecurityDesc: TSecurityDescriptor;
  SecurityAttr: TSecurityAttributes;
begin
  { By default on Windows NT, created mutexes are accessible only by the user
    running the process. We need our mutexes to be accessible to all users, so
    that the mutex detection can work across user sessions in Windows XP. To
    do this we use a security descriptor with a null DACL. }
  InitializeSecurityDescriptor(@SecurityDesc, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@SecurityDesc, True, nil, False);
  SecurityAttr.nLength := SizeOf(SecurityAttr);
  SecurityAttr.lpSecurityDescriptor := @SecurityDesc;
  SecurityAttr.bInheritHandle := False;
  CreateMutex(@SecurityAttr, False, PChar(MutexName+'Local'));
  CreateMutex(@SecurityAttr, False, PChar('Global\' + MutexName));
end;
 
...
 
begin
  CreateMutexes('YourMutexNameGoesHere');
end;

[Laurent Dardenne]

Pour ton intégration c'est déjà plus propre
Bon on place l'info dans la FAQ !
Merci !