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

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

Системная дата [D7, XP]

Pv ©   (2008-11-17 21:50:00) 

Народ, подскажите как программно задать дату???
Нашел функцию но она всегда возвращает false, подскажите кто знает!!!
function SetUTCDate(pDay, pMonth, pYear: Word): Boolean;
var st: TSystemTime;
begin
 Result := False;
 GetSystemTime(st);
 with st do
 begin
   wDay := pDay;
   wMonth := pMonth;
   wYear := pYear;
 end;
 if SetSystemTime(st) then
 Result := True;
end;

---

KilkennyCat   (2008-11-17 22:49:00) [1]

http://msdn.microsoft.com/en-us/library/ms724942(VS.85).aspx

---

Anatoly Podgoretsky   (2008-11-17 22:49:00) [2]

> Pv  (17.11.2008 21:50:00)  [0]

А ты не хочешь проанализировать результат функции. Но у тебя вероятнее всего не хватает привилегий, в коде не видать получения привилегии SE_SYSTEMTIME_NAME, ее надо явно получить.

---

Наверх