[Delphi] Czy możliwa jest zmiana BIOSu z poziomu programu?

0

Witam, mam pytanie czy z poziomu mojego programu jest możliwość zmiany BIOSu, a konkretnie godziny o której ma się komputer sam włączyć? Chodzi mi tylko o przystosowanie do jednego komputera.

Jeśli ktoś byłby taki dobry to napisze jeszcze jakąś podpowiedź jeśli istnieje taka opcja. Chociaż napiszcie TAK lub NIE.

OFF-TOPIC Czy istnieją już takie programy? Znacie nazwy?

0

tak

0

Nie.

0

Żartowałem.
Chcesz po prostu zmodyfikować ustawienia CMOS.
Sprwadź to metodą googlova albo na macajeva. Ale dla newbie polecam googlova.

P.S.
Zmień okulary bo wyglądasz jak mucha ;-P

0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ZLPortIO;

type
  TForm1 = class(TForm)
    eData1: TEdit;
    eData2: TEdit;
    eData3: TEdit;
    bCzytaj: TButton;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure bCzytajClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function Bcd2Dec8 (n: byte) : byte;
begin
Bcd2Dec8 := (N shr 4)*10 +N and 15;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
case ZlIOStarted of
  true: StatusBar1.SimpleText :=  'Sterownik portów załadowany';
  false: StatusBar1.SimpleText :=  'Problem ze sterownikiem portów!';
  end;
end;

procedure TForm1.bCzytajClick(Sender: TObject);
begin
try
  portwriteb($70, $04);
  sleep(50);
  eData1.Text := IntToStr(Bcd2Dec8(portreadb($71)));
  portwriteb($70, $02);
  sleep(50);
  eData2.Text := IntToStr(Bcd2Dec8(portreadb($71)));
  portwriteb($70, $00);
  sleep(50);
  eData3.Text := IntToStr(Bcd2Dec8(portreadb($71)));
except
  eData1.Text := '##';
  eData2.Text := '##';
  eData3.Text := '##';
  end;

end;

end.

Kod do odczytania godziny po przerobieniu przeze mnie. Może się komuś przyda.

http://www.bioscentral.com/misc/cmosmap.htm mapa biosu

ZLPortIO <--- Darmowa biblioteka

NIE ZEZWALAM NA KOPIOWANIE NA INNE FORA NIŻ 4programmers.net

mgyver:Dopiero zauważyłem Twoje posty, myślisz że jesteś fajny jak robisz syf na forum?

0

Odczytałem :
RTC hours alarm 00100000
RTC minutes alarm 00011000
RTC seconds alarm 00100000

Jeśli jest zapisane jako BCD jak zwykła godzina to
00100000 = 0010 0000 = 20
00011000 = 0001 1000 = 18
00100000 = 0010 0000 = 20

a po drugie nawet jak zmienię godzinę ręcznie w biosie to nadal odczytuje to samo ;/

Jak zmienić godzinę włączania komputera RTC Alarm Resume (Power On by Alarm)?

0

up

1 użytkowników online, w tym zalogowanych: 0, gości: 1