Opened by steffenw at 2004-02-04 22:09
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
SYSTEMTIME ist eine struct der Form
wenn man dies in perl darstellen will, benutzt man pack...
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)
viel spaß!\n\n
<!--EDIT|esskar|1076082865-->
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-->