Вверх ↑
Этот топик читают: Гость
Ответов: 1891
Рейтинг: 110
#1: 2007-07-27 01:33:38 ЛС | профиль | цитата
Нашел нужную функцию, но не знаю будет ли она вообще работать. За IC прошу не бить , т.к. не изучал.

Функция такая:
function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;


code_1745.txt
карма: 0
%time%
0
файлы: 1code_1745.txt [810B] [199]
Ответов: 9906
Рейтинг: 351
#2: 2007-07-27 07:25:39 ЛС | профиль | цитата
И в чем вопрос
карма: 9

0
Администрация
Ответов: 15295
Рейтинг: 1519
#3: 2007-07-27 10:22:08 ЛС | профиль | цитата
работать не будет - никто не даст вот так просто прочесть чужой кусок памяти, но всеравно хотелось бы знать в чем вопрос.
карма: 27
0
Ответов: 1891
Рейтинг: 110
#4: 2007-07-27 13:52:34 ЛС | профиль | цитата
Dilma, писал(а):
работать не будет - никто не даст вот так просто прочесть чужой кусок памяти, но всеравно хотелось бы знать в чем вопрос


Жаль. Нужно было что бы схема показывала серийный номер bios
карма: 0
%time%
0
Ответов: 1891
Рейтинг: 110
#5: 2007-07-28 02:12:59 ЛС | профиль | цитата
А по-иному можно как-нибудь сделать что бы определялся серийный номер bios?
карма: 0
%time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#6: 2007-07-28 02:55:28 ЛС | профиль | цитата
Alexbootch, вот так можно для XP

-- Код удален, пример смотрите ниже по топику --
карма: 22

0
Ответов: 1891
Рейтинг: 110
#7: 2007-07-28 03:07:53 ЛС | профиль | цитата
nesco, спасибо! nesco, а где взял инфу по ключам реестра?
карма: 0
%time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#8: 2007-07-28 03:36:33 ЛС | профиль | цитата
Alexbootch, в нэте. Вот ссылка http://www.delphikingdom.com/asp/answer.asp?IDAnswer=28123 Нашел в этом примере ключ SystemBiosVersion, дал поиск в реестре, а дальше -- дело техники.

[size=-2]------ Добавлено в 03:36
Предыдущий пример имеет лишний компонент, вот более простое решение
Add(MainForm,11684334,161,133)
{
Left=20
Top=105
Width=317
Height=130
link(onCreate,4768385:doRead,[])
}
Add(Registry,4768385,217,168)
{
HKey=2
Key="HARDWAREDESCRIPTIONSystem"
Value="SystemBiosVersion"
DataType=3
link(onRead,5679123:doConvert,[])
}
Add(Stream2Hex,5679123,266,168)
{
Mode=4
Symbol="1310"
link(onResult,11271552:doText,[])
}
Add(ListBox,11271552,322,147)
{
Left=10
Top=10
Width=290
TabOrder=-1
IdxIcons=[]
Icons=[]
}
карма: 22

0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)