Главная страница
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.022 c
1-50000
ymin
2002-04-30 15:35
2002.05.16
Esc


4-50177
Win32
2002-03-12 21:59
2002.05.16
Функции в USER.EXE, RUNDLL32.EXE, RUNONCE.DLL, SHELL32.DLL и подобные.......


1-50011
Steel Ice
2002-04-30 22:36
2002.05.16
Копирование куска массива


3-49885
Илья_____
2002-04-18 18:54
2002.05.16
Как получить номер строки DBGrid a, на которой стоит курсор


6-50068
amg
2002-03-05 01:04
2002.05.16
Передача html с помощью TServerSocket