IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - Güç kaynağı durumunu öğrenmek (https://www.ircforumlari.net/delphi/688265-guc-kaynagi-durumunu-ogrenmek.html)

Kaf_Dağı

11 Mart 2015 13:25

Güç kaynağı durumunu öğrenmek

Güç kaynağı durumunu öğrenmek

Kod:

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;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:54.