Форум: "Начинающим";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];

Вниз

Системная дата   Найти похожие ветки 

← →
Pv   (2008-11-17 21:50) [0]

Народ, подскажите как программно задать дату???
Нашел функцию но она всегда возвращает 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) [1]

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

---

← →
Anatoly Podgoretsky ©   (2008-11-17 22:49) [2]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.12.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c