На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
var sps:_SYSTEM_POWER_STATUS; begin GetSystemPowerStatus(sps); label1.Caption:='ACLineStatus - ' + inttostr(sps.ACLineStatus); label2.Caption:='BatteryLifePercent - ' + inttostr(sps.BatteryLifePercent); end;
или
Код
var SysPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SysPowerStatus); if Boolean(SysPowerStatus.ACLineStatus) then begin ShowMessage('System running on AC.'); end &
... Читать дальше »
В этом уроке пойдет речь о том как добавить свою delphi программу в автозапуск или cделать так что бы она запускалась при каждом страте Windows. Для этого нам нужно добавить некоторые записи в реестр Windows. Для начала, в раздел uses добавляем RegisTry. В любом обработчике событий (можно в OnCreate у формы или в OnClick у кнопки) прописываем код приведенный ниже.
Код
var reg: tregistry; begin reg := tregistry.create; reg.rootkey := hkey_local_machine; reg.lazywrite := false; reg.openkey('software\microsoft\windows\currentversion\run', false); reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё} r
... Читать дальше »
|