Thread Datum/Uhrzeit stellen: gibt's da ne API-Funktion? (12 answers)
Opened by steffenw at 2004-02-04 22:09

esskar
 2004-02-06 00:18
#12277 #12277
User since
2003-08-04
7321 articles
ModeratorIn

user image
SYSTEMTIME ist eine struct der Form

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
typedef struct _SYSTEMTIME
{
   WORD wYear;
   WORD wMonth;
   WORD wDayOfWeek;
   WORD wDay;
   WORD wHour;
   WORD wMinute;
   WORD wSecond;
   WORD wMilliseconds;
} SYSTEMTIME,


wenn man dies in perl darstellen will, benutzt man pack...

Code: (dl )
my $winsystime = pack("ssssssss", $wyear, $wmonth, $wdayofweek, $wday, $whour, $wminute, $wsecond, $wmilliseconds);


Laut docu ist die Funktion in der kernel32.dll enthalten...
dann verwendet man am Besten Win32::API (und mit Win32::API::Struct geht es auch ohne pack)

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Win32::API::Struct->typedef(SYSTEMTIME => qw{
   WORD wYear,
   WORD wMonth,
   WORD wDayOfWeek,
   WORD wDay,
   WORD wHour,
   WORD wMinute,
   WORD wSecond,
   WORD wMilliseconds
});

Win32::API->Import('kernel32', 'BOOL SetSystemTime(SYSTEMTIME lpPoint)');
my $systime = Win32::API::Struct->new('SYSTEMTIME');

# dann kann man mit $systime->{wYear} = 2004, etcpp. die Werte setzen
# und dann die Funktion aufrufen

SetSystemTime($systime);


viel spaƟ!\n\n

<!--EDIT|esskar|1076082865-->

View full thread Datum/Uhrzeit stellen: gibt's da ne API-Funktion?