Недавно добавленные исходники
• Animation Loaders 661 • DeLiKaTeS Tetris (Тетрис) 5 672 • TDictionary Custom Sort 7 634 • Fast Watermark Sources 7 325 • 3D Designer 10 525 • Sik Screen Capture 7 843 • Patch Maker 8 069 • Айболит (remote control) 8 125 • ListBox Drag & Drop 6 928 • Доска для игры Реверси 100 098 • Графические эффекты 8 189 • Рисование по маске 7 591 • Перетаскивание изображений 6 190 • Canvas Drawing 6 554 • Рисование Луны 6 484 • Поворот изображения 5 663 • Рисование стержней 4 586 • Paint on Shape 3 287 • Генератор кроссвордов 4 276 • Головоломка Paletto 3 414 • Теорема Монжа об окружностях 4 234 • Пазл Numbrix 2 747 • Заборы и коммивояжеры 3 650 • Игра HIP 2 458 • Игра Go (Го) 2 439 • Симулятор лифта 2 845 • Программа укладки плитки 2 289 • Генератор лабиринта 3 005 • Проверка числового ввода 2 511 • HEX View 2 915

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Как сменить системное время в операционной системе из программы 2

function SetTime(DateTime:TDateTime): boolean;
var
  st: TSystemTime;
  ZoneTime: TTimeZoneInformation;
begin
  GetTimeZoneInformation(ZoneTime);
  DateTime:=DateTime+ZoneTime.Bias/1440;
  with st do
  begin
    DecodeDate(DateTime, wYear, wMonth, wDay);
    DecodeTime(DateTime, wHour, wMinute, wSecond, wMilliseconds);
  end;
  Result:=SetSystemTime(st);
end;