Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
14-50095
chernoruk
2002-03-20 23:17
2002.05.16
Перехват TCP пакетов


1-49947
BigBadMutuh
2002-05-01 09:34
2002.05.16
Как узнать время?


1-49982
Daiz13
2002-04-30 09:23
2002.05.16
Подскажите компонент для графика


1-49915
Windeus
2002-05-03 08:49
2002.05.16
Extension in Savedialog


1-49963
3asys
2002-05-03 23:15
2002.05.16
Программное добавление в PageControl закладки (TabSheet)