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

Comment changer la date et l'heure d'un ordinateur   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Comment changer la date et l'heure d'un ordinateur
# 0000000339
ajouté le 09/07/2006 13:49:31 et modifié le 09/07/2006
consulté 8413 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description
Certain ordinateur remettent la date et l'heure automatiquement si la connexion internet est ouverte. Il faut changer ce setting, ou se débrancher de l'internet.
Code source :
&&Structure du _SYSTEMTIME
*typedef struct _SYSTEMTIME {
*  WORD wYear;
*  WORD wMonth;
*  WORD wDayOfWeek;
*  WORD wDay;
*  WORD wHour;
*  WORD wMinute;
*  WORD wSecond;
*  WORD wMilliseconds;
*} SYSTEMTIME;


SetTime(CTOT("01/01/2007 10:00"))

FUNCTION SetTime(tDatetime)
      cBuff = REPLI (Chr(0), 16)
      cDate = TTOD(tDatetime)
      cTime = SUBSTR(TTOC(tDatetime),12,5)
      cBuff =         Num2WORD(YEAR(cDate))
      cBuff = cBuff + Num2WORD(MONTH(cDate))
      cBuff = cBuff + Num2WORD(1)
      cBuff = cBuff + Num2WORD(DAY(cDate))
      cBuff = cBuff + Num2WORD(VAL(LEFT(cTime,2)))
      cBuff = cBuff + Num2WORD(VAL(SUBSTR(cTime,4,2)))
      cBuff = cBuff + Num2WORD(VAL(RIGHT(cTime,2)))
      cBuff = cBuff + Num2WORD(0)+CHR(0)
      DECLARE INTEGER  SetLocalTime IN WIN32API STRING @cBuff
      SetLocalTime(@cBuff)
RETURN

FUNCTION Num2WORD
   LPARAMETER tnNum
   LOCAL x
   x=INT(tnNum)
RETURN CHR(MOD(x,256))+CHR(INT(x/256))
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

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