Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 804 • TDictionary Custom Sort 6 806 • Fast Watermark Sources 6 588 • 3D Designer 9 547 • Sik Screen Capture 6 925 • Patch Maker 7 374 • Айболит (remote control) 7 318 • ListBox Drag & Drop 6 178 • Доска для игры Реверси 98 132 • Графические эффекты 7 488 • Рисование по маске 6 778 • Перетаскивание изображений 5 632 • Canvas Drawing 6 016 • Рисование Луны 5 804 • Поворот изображения 5 257 • Рисование стержней 3 852 • Paint on Shape 3 010 • Генератор кроссвордов 3 961 • Головоломка Paletto 3 143 • Теорема Монжа об окружностях 3 974 • Пазл Numbrix 2 626 • Заборы и коммивояжеры 3 437 • Игра HIP 2 354 • Игра Go (Го) 2 267 • Симулятор лифта 2 671 • Программа укладки плитки 2 230 • Генератор лабиринта 2 782 • Проверка числового ввода 2 389 • HEX View 2 726 • Физический маятник 2 415

Получить статус питания

Оформил: DeeCo

procedure TForm1.Button1Click(Sender: TObject);
 var
   SysPowerStatus: TSystemPowerStatus;
 begin
   GetSystemPowerStatus(SysPowerStatus);
   if Boolean(SysPowerStatus.ACLineStatus) then
   begin
     ShowMessage('System running on AC.');
   end
   else
   begin
     ShowMessage('System running on battery.');
     ShowMessage(Format('Battery power left: %d percent.', [SysPowerStatus.BatteryLifePercent]));
   end;
 end;