Cześć!!
Mam taki problemik:
Mam dwa dyski na których są różne systemy i teraz w biosie moge sobie ustawić z którego dysku najpierw chcĘ odpalać sytem np: z HDD-0 lub HDD-1 ale nie chce mi sie zawsze wchodzić do biosu...
Czy są jakieś procedurki albo komponenty dzęki którym mógłbym w programiku zmienić biosowe ustawienia z którego dysku ma sie włączyć system? potem dałbym tylko reset i startowałby z tego dysku co ustawiłem!!
Za pomoc z góry dzięki!!
To nie jest takie hop siup i juz :) Bylo juz kiedys na forum o tym :) Na chip.pl jest artykol na temat odczytywania i zapisywania jakis wartosci do biosu Wejdz na strone glowna i wpisz w wyszukiwarce delphi :) Powinno znaleŹĆ artykolik :) Tam tez beda wszystkie materialy potrzebne do tego :)
A nie lepiej zainstalować boot-loadera (LILO, grub)??
A nie lepiej zainstalować boot-loadera (LILO, grub)??
A gdzie mozna takie cosik najlepiej freeware zassać ?
Standardowo: www.google.pl -> bool loader. Ewentualnie w Win2k i XP masz już taki bajerek w systemie (C:\boot.ini). W Linuksie też (/etc/lilo.conf i potem lilo).
Możesz sobie pogrzebać w BIOSie przez komponent ZLPortIO - to właśnie o tym było w Chip-ie (..ale ostrzegam że 1 drobna pomyłka i możesz już nie ujrzeć niczego po wciśnięciu przycisku "POWER" ;-| ,więc jeśli nie masz 2 BIOSów lub jesteś początkujący to nawet nie próbuj... :-8 )
Pedors ale to był ow ogole chyba co innego :)
Do tego możesz dostać się jedynie przez porty, a Windows XP blokuje tego typu komunikację. Daje tutaj Unit do Turbo Pascala:
[code]
Unit CMOS;
Interface
Const SekundaRTC =00;
SekundaBudzika =01;
MinutaRTC =02;
MinutaBudzika =03;
GodzinaRTC =04;
GodzinaBudzika =05;
DzienTygodnia =06;
Dzien =07;
Miesiac =08;
Rok =09;
RTCRejStanuA =10;
RTCRejStanuB =11;
RTCRejStanuC =12;
RTCRejStanuD =13;
StanPOST =14;
PowodRestartu =15;
StacjeDyskietek=16;
FDD =16;
DyskiTwarde =18;
HDD =18;
Wyposarzenie =20;
RAMPodstDB =21;
RAMPodstGB =22;
RAMRozszerzDB =23;
RAMRozszerzGB =24;
HDD0 =25;
HDD1 =26;
SumaKontrolnaGB=46;
SumaKontrolnaDB=47;
Wiek =50;
Function Odczytaj(Adres:Byte):Byte;
Procedure Zapisz(Adres,Wartosc:Byte);
Implementation
Uses NewDelay;
Function Odczytaj;
Var Bajt:Byte;
Begin
Asm
Mov Al ,Adres
Out 70h ,Al
End;
Delay(1);
Asm
In Al ,71h
Mov Bajt,Al
End;
Odczytaj:=Bajt;
End;
Procedure Zapisz;
Begin
Asm
Mov Al ,Adres
Out 70h ,Al
End;
Delay(1);
Asm
Mov Wartosc,Al
Out 71h,Al
End;
End;
End.
[/code]