Функция такая:
function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;
begin
result := string(pchar(ptr($FEC71)));
end;
code_1745.txt
Ответов: 1891
Рейтинг: 110
|
|||
Нашел нужную функцию, но не знаю будет ли она вообще работать. За IC прошу не бить , т.к. не изучал.
Функция такая: function GetBiosNumber: string;
begin result := string(pchar(ptr($FEC71))); end; code_1745.txt |
|||
карма: 0 |
| ||
файлы: 1 | code_1745.txt [810B] [199] |
Ответов: 9906
Рейтинг: 351
|
|||
И в чем вопрос
|
|||
карма: 9 |
|
Администрация
Ответов: 15295
Рейтинг: 1519
|
|||
работать не будет - никто не даст вот так просто прочесть чужой кусок памяти, но всеравно хотелось бы знать в чем вопрос.
|
|||
карма: 27 |
|
Ответов: 1891
Рейтинг: 110
|
|||
Dilma, писал(а): работать не будет - никто не даст вот так просто прочесть чужой кусок памяти, но всеравно хотелось бы знать в чем вопросЖаль. Нужно было что бы схема показывала серийный номер bios |
|||
карма: 0 |
|
Ответов: 1891
Рейтинг: 110
|
|||
А по-иному можно как-нибудь сделать что бы определялся серийный номер bios?
|
|||
карма: 0 |
|
Разработчик
Ответов: 26163
Рейтинг: 2127
|
|||
Alexbootch, вот так можно для XP
-- Код удален, пример смотрите ниже по топику -- |
|||
карма: 22 |
|
Ответов: 1891
Рейтинг: 110
|
|||
nesco, спасибо! nesco, а где взял инфу по ключам реестра?
|
|||
карма: 0 |
|
Разработчик
Ответов: 26163
Рейтинг: 2127
|
|||
Alexbootch, в нэте. Вот ссылка http://www.delphikingdom.com/asp/answer.asp?IDAnswer=28123 Нашел в этом примере ключ SystemBiosVersion, дал поиск в реестре, а дальше -- дело техники.
[size=-2]------ Добавлено в 03:36 Предыдущий пример имеет лишний компонент, вот более простое решение
|
|||
карма: 22 |
|