Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 817 • TDictionary Custom Sort 6 816 • Fast Watermark Sources 6 598 • 3D Designer 9 560 • Sik Screen Capture 6 937 • Patch Maker 7 387 • Айболит (remote control) 7 332 • ListBox Drag & Drop 6 188 • Доска для игры Реверси 98 166 • Графические эффекты 7 503 • Рисование по маске 6 790 • Перетаскивание изображений 5 646 • Canvas Drawing 6 025 • Рисование Луны 5 816 • Поворот изображения 5 268 • Рисование стержней 3 859 • Paint on Shape 3 016 • Генератор кроссвордов 3 969 • Головоломка Paletto 3 147 • Теорема Монжа об окружностях 3 984 • Пазл Numbrix 2 631 • Заборы и коммивояжеры 3 443 • Игра HIP 2 359 • Игра Go (Го) 2 273 • Симулятор лифта 2 675 • Программа укладки плитки 2 236 • Генератор лабиринта 2 788 • Проверка числового ввода 2 395 • HEX View 2 729 • Физический маятник 2 421

Главная

Исходники (более 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;