Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Какой функцией можно поменять системное время?   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c