*****************************************************************************
Prototypen //-Windows API
// *****************************************************************************
Prototyp stdcall LÜCKE KERNEL32.GetSystemTime (ZEIGER);
Prototyp stdcall BOOL KERNEL32.SystemTimeToTzSpecificLocalTime (ZEIGER, ZEIGER, ZEIGER);
typedef _SYSTEMTIME anfangen n
KURZES iyear;
KURZES imonth;
KURZES iDayOffWeek;
KURZES iday;
KURZES ihour;
KURZES iminute;
KURZES isecond;
KURZES imillisecond;
Ende;
_SYSTEMTIME SystemTime, LocalTime;
_SYSTEMTIME ZEIGER pSystemTime, pLocalTime;
#include „ifx.h“
#include „isrt.h“
#include „iswi.h“
#include „WinApi.h“
Exportprototyp MiscCommon_Installed ();
Funktion MiscCommon_Installed ()
VERSCHIEDENER Tag, Jahr, Monat;
SCHNUR sYear, sDay, sMonth;
BOOL bSuccess;
SCHNUR-Drache;
SCHNUR svName;
ZAHL nvSize;
SCHNUR Temp;
anfangen
// erhalten laufenden Tag, Monat und Jahr
pSystemTime = &SystemTime;
GetSystemTime (pSystemTime);
pLocalTime = &LocalTime;
bSuccess = SystemTimeToTzSpecificLocalTime (NULL, pSystemTime, pLocalTime);
Jahr = pLocalTime->iyear;
sYear = Jahr;
Monat = pLocalTime->imonth;
sMonth = Monat;
Tag = pLocalTime->iday;
sDay = Tag;
//MessageBox (sMonth, INFORMATIONEN);
RegDBSetKeyValueEx („\ \ SOFTWARE \ \ ComHouse drahtloses \ \ Freigabe“, „InstallYear“, REGDB_NUMBER, sYear, -1);
RegDBSetKeyValueEx („\ \ SOFTWARE \ \ ComHouse drahtloses \ \ Freigabe“, „InstallMonth“, REGDB_NUMBER, sMonth, -1);
RegDBSetKeyValueEx („\ \ SOFTWARE \ \ ComHouse drahtloses \ \ Freigabe“, „InstallDay“, REGDB_NUMBER, sDay, -1);
RegDBSetKeyValueEx („\ \ SOFTWARE \ \ ComHouse drahtloses \ \ Freigabe“, „INSTALLDIR“, REGDB_STRING, INSTALLDIR, -1);
Ende;
|