L'auteur
Gregory Adam
 Belgique
Membre Actif (personne physique)
# 0000001121
enregistré le 04/06/2006
 Fiche personnelle
 Note des membres
18/20
2 votes
|
Contributions > 05 - API et appels systèmes
Application fox démarrée en TSE ou non
# 0000000395
ajouté le 19/01/2007 18:17:41 et modifié le 19/01/2007
consulté 8497 fois
Niveau
initié
Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0
 Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
|
| Description |
|---|
Inclus - une fonction pour savoir si l'appli tourne en TSE
- une classe qui donne des info du client
|
| Code source : |
|---|
set proc to tse_info additive
local obj
do case
case !TSE_Session()
?'not running under TSE'
case !tse_info_object(@m.obj)
?'error creating object'
otherwise
with m.obj
?'InitialProgram', .InitialProgram
?'ApplicationName', .ApplicationName
?'WorkingDirectory', .WorkingDirectory
?'SessionId', .SessionId
?'UserName', .UserName
?'WinStationName', .WinStationName
?'DomainName', .DomainName
?'ConnectState', .ConnectState
?'ConnectStateString', .ConnectStateString
?'ClientBuildNumber', .ClientBuildNumber
?'ClientName', .ClientName
?'ClientDirectory', .ClientDirectory
?'ClientProductId', .ClientProductId
?'ClientHardwareId', .ClientHardwareId
?'ClientAddress', .ClientAddress
?'ClientDisplay_Horizontal', .ClientDisplay_Horizontal
?'ClientDisplay_Vertical', .ClientDisplay_Vertical
?'ClientDisplay_ColorDepth', .ClientDisplay_ColorDepth
?'ClientProtocolType', .ClientProtocolType
endwith
endcase
|
| Commentaires |
|---|
|
|
Retour à la liste
Merci Greg