Нашёл код для получения серийного номера BIOS'a
Код:
function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;
здесь
http://www.delphiworld.narod.ru/base...os_serial.html
Где
FEC71 - физический адрес (как я понял).
1.Мне нужно изменить его на адрес, где расположена id материнской платы. Как его узнать?
2.При запуске из Windows пишет
Access Violation....
Загружаюсь с поддержкой командной строки (
Shift+F5), запускаю программу и выдаётся сообщение:
This program must be run under Win32.
Вот код:
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
a:=string(pchar(ptr($FEC71)));
writeln(a);
readln;
end.