ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Application fox démarrée en TSE ou non   



L'auteur

Gregory Adam
Belgique 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é 5954 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
le 19/01/2007, Francis Faure a écrit :
Merci Greg

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2020.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3