Владимир
Группа: Администратор
Сообщений: 1190
|
http://www.delphifaq.com/fq/q2101.shtml
You can get and set system date/time using GetSystemTime and
SetSystemTime from Win32 library
| CODE |
(* System time is represented with the following structure:
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end; *)
uses
Windows, Dialogs, Forms;
var
MyTime : TSystemTime;
begin
FillChar (MyTime, sizeof(MyTime), #0);
MyTime.wYear := 1998;
MyTime.wMonth := 12;
MyTime.wDay := 24;
// fill out more.. important!
if not SetSystemTime (MyTime) then
ShowMessage ('Failure!');
end.
|
или изобразим это на С++Builder:
| CODE |
TSystemTime MyTime;
ZeroMemory(&MyTime, sizeof(MyTime));
MyTime.wYear = 1998;
MyTime.wMonth = 12;
MyTime.wDay = 24;
// fill out more.. important!
if(!SetSystemTime(&MyTime)) ShowMessage ("Failure!");
|
|
