Форум: "Система";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];
ВнизКакой функцией можно поменять системное время? Найти похожие ветки
← →
Alku (2002-02-20 10:43) [0]САБЖ.
← →
gek (2002-02-20 10:59) [1]
function set_sys_time:boolean;
var
sys_tim:systemtime;
begin
result:=false;
GetSystemTime(sys_tim);
sys_tim.wMinute:=23;
SetSystemTime(sys_tim);
result:=true;
end;
← →
Ura (2002-02-20 11:07) [2]
var NewTime: SYSTEMTIME;
if ( SetLocalTime(NewTime) = FALSE) then
begin
Application.MessageBox("Не могу установить время и дату","Ошибка", MB_OK + MB_ICONWARNING );
end;
← →
Coalycat (2002-02-20 14:26) [3]procedure TForm1.Button1Click(Sender: TObject);
var
STIME:SYSTEMTIME;
HR,MIN,SEC,MSECS:WORD;
begin
DecodeTime(DateTimePicker1.Time,HR,MIN,SEC,MSECS);
GetSystemTime(STime);
STIME.wHour:=HR;
STIME.wMinute:=MIN;
STIME.wSecond:=SEC;
SetLocalTime(STIME);
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c