Функция такая:
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] [280] |
|
Ответов: 9906
Рейтинг: 351
|
|||
|
И в чем вопрос
|
|||
| карма: 9 |
|
|
Администрация
Ответов: 15295
Рейтинг: 1519
|
|||
|
работать не будет - никто не даст вот так просто прочесть чужой кусок памяти, но всеравно хотелось бы знать в чем вопрос.
|
|||
| карма: 26 |
|
|
Ответов: 1891
Рейтинг: 110
|
|||
|
Dilma, писал(а): работать не будет - никто не даст вот так просто прочесть чужой кусок памяти, но всеравно хотелось бы знать в чем вопросЖаль. Нужно было что бы схема показывала серийный номер bios |
|||
| карма: 0 |
|
|
Ответов: 1891
Рейтинг: 110
|
|||
|
А по-иному можно как-нибудь сделать что бы определялся серийный номер bios?
|
|||
| карма: 0 |
|
|
Разработчик
Ответов: 26322
Рейтинг: 2147
|
|||
|
Alexbootch, вот так можно для XP
-- Код удален, пример смотрите ниже по топику -- |
|||
| карма: 22 |
|
|
Ответов: 1891
Рейтинг: 110
|
|||
|
nesco, спасибо! nesco, а где взял инфу по ключам реестра?
|
|||
| карма: 0 |
|
|
Разработчик
Ответов: 26322
Рейтинг: 2147
|
|||
|
Alexbootch, в нэте. Вот ссылка http://www.delphikingdom.com/asp/answer.asp?IDAnswer=28123 Нашел в этом примере ключ SystemBiosVersion, дал поиск в реестре, а дальше -- дело техники.
[size=-2]------ Добавлено в 03:36 Предыдущий пример имеет лишний компонент, вот более простое решение |
|||
| карма: 22 |
|