Bios

[vitalik007]

как узнать всю информацию о BIOS
и если с помощью delphi снять пароль

[Хs-You]

Ну ты и попросил! Эт как у меня про 2 байта! Но возможно всё!

Определить дату BIOS, равно как тип ПК или поиметь другие данные, находящиеся по фиксированому _физическому_ адресу, в Delphi можно так:
var
BiosDate: array[0..7] of char absolute
$FFFF5;
PCType: byte absolute $FFFFE;

procedure TForm1.FormCreate(Sender: TObject);
var
S: string;
begin
case PCType of
$FC: S := ′AT′;
$FD: S := ′PCjr′;
$FE: S := ′XT =8-O′;
$FF: S := ′PC′;
else
S := ′Нестандартный′;
end;
Caption := ′Дата BIOS: ′ + BiosDate + ′ Тип ПК: ′ + S;
end;

[Хs-You]

или так

Получение серийного номера BIOS

function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;

[MadReason]

да и биосы разные бывают, самые распространенные AMI и AWARD, а пароль ты не снимешь, точнее снимешь но не сейчас, сначала изучи ассемблер и архитектуру фсякую. а так бы тебе бы уже нашлепали вирусов для приколо разгоняющих проц и ставящих пароль.

[JTG]

у некоторых производителей можно программно затереть определённые области памяти биоса, но для этого используется ввод/вывод в порты, а это привелегированные команды, придётся курить работы Rem'а про ring0 (или пользоваться cmd->debug )