*****************************************************************************
// Windows API Pierwowzór
// *****************************************************************************
prototypowy stdcall PUSTKA KERNEL32.GetSystemTime (POINTER);
prototypowy stdcall BOOL KERNEL32.SystemTimeToTzSpecificLocalTime (POINTER, POINTER, POINTER);
typedef _SYSTEMTIME zaczynać
KRÓTKI iyear;
KRÓTKI imonth;
KRÓTKI iDayOffWeek;
KRÓTKI iday;
KRÓTKI ihour;
KRÓTKI iminute;
KRÓTKI isecond;
KRÓTKI imillisecond;
końcówka;
_SYSTEMTIME SystemTime, LocalTime;
_SYSTEMTIME POINTER pSystemTime, pLocalTime;
#include "ifx.h"
#include "isrt.h"
#include "iswi.h"
#include "WinApi.h"
eksportowy prototypowy MiscCommon_Installed ();
funkcja MiscCommon_Installed ()
WARIANT Dzień, Rok, Miesiąc;
SMYCZKOWY sYear, sDay, sMonth;
BOOL bSuccess;
SMYCZKOWY smok;
SMYCZKOWY svName;
LICZBA nvSize;
SMYCZKOWY zastępca;
zaczynać
// Dostawać aktualny dzień, miesiąc, i rok
pSystemTime = &SystemTime;
GetSystemTime (pSystemTime);
pLocalTime = &LocalTime;
bSuccess = SystemTimeToTzSpecificLocalTime (NIEOBOWIĄZUJĄCY, pSystemTime, pLocalTime);
Rok = pLocalTime->iyear;
sYear = Rok;
Miesiąc = pLocalTime->imonth;
sMonth = Miesiąc;
Dzień = pLocalTime->iday;
sDay = Dzień;
//MessageBox (sMonth, INFORMACJA);
RegDBSetKeyValueEx ("\ \ OPROGRAMOWANIE \ \ ComHouse Radio \ \ Uwolnienie", "InstallYear", REGDB_NUMBER, sYear, -1);
RegDBSetKeyValueEx ("\ \ OPROGRAMOWANIE \ \ ComHouse Radio \ \ Uwolnienie", "InstallMonth", REGDB_NUMBER, sMonth, -1);
RegDBSetKeyValueEx ("\ \ OPROGRAMOWANIE \ \ ComHouse Radio \ \ Uwolnienie", "InstallDay", REGDB_NUMBER, sDay, -1);
RegDBSetKeyValueEx ("\ \ OPROGRAMOWANIE \ \ ComHouse Radio \ \ Uwolnienie", "INSTALLDIR", REGDB_STRING, INSTALLDIR, -1);
końcówka;
|