| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как изменить системную дату на компьютере с помощью Delphi. [D5, Win95/98]

vpc_ ©   (2002-03-29 23:44:00) 

Здравствуйте!

Поскажите, пожалуйста как изменить системную дату на компьютере с помощью Delphi?

Заранее Вам благодарен.

---

SDS   (2002-03-30 00:02:00) [1]

На что меняет этот код дату смотри сам :)

procedure TForm1.Button1Click(Sender: TObject);
var
s : _SYSTEMTIME;
begin
s.wYear := 2001;
s.wMonth:= 1;
s.wDayOfWeek := 1;
s.wDay := 1;
s.wHour := 0;
s.wMinute := 0;
s.wSecond := 0;
s.wMilliseconds := 0;
SetSystemTime(s);
end;


---

Наверх