Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.20;
Скачать: CL | DM;

Вниз

Привязка проги к железу   Найти похожие ветки 

 
R   (2003-02-11 09:45) [0]

Мастера приведите пример функции по оределению какого либо
стабильного параметра в компьютере например номера материнки или другого железа, кроме жесткого диска.


 
Беспечный Ангел ©   (2003-02-11 11:12) [1]

И ты считаешь, что этот параметр стабильный? Вот у меня неделю назад материнка сдохла, надоело ей работать... Поймите, привязывать прогу к железу - это неверный путь... Учитывай то, что любое железо может сдохнуть, а программа должна работать, и желательно БЕЗ переустановки. Или представь, что пользователь твоей проги решил апгрейд сделать.... Я думаю, он сильно удивится...


 
Anatoly Podgoretsky ©   (2003-02-11 11:25) [2]

Я думаю он пойдет ему кое что бить, если это конечно специально не оговорено


 
sniknik ©   (2003-02-11 11:42) [3]

> оределению какого либо стабильного параметра в компьютере
вот пример определения железки, HASP ключ называется (многие так делают удобно можно переставить и 14$ всего стоит), и заметьте не жесткий диск. :-)))))

const
IS_HASP = 1;
GET_HASP_CODE = 2;

procedure hasp (Service, SeedCode, LptNum, Pass1, Pass2 : longint;
var p1,p2,p3,p4 : longint);external;
{$L hasp32b.obj}

function CheckHasp : Boolean;
const Pass1: integer = ????;
Pass2: integer = ????;
SeedCode: integer = 0;
LptNum: integer = 0;
p1: integer = 0;
p2: integer = 0;
p3: integer = 0;
p4: integer = 0;
begin
hasp (IS_HASP, SeedCode, LptNum, Pass1, Pass2, p1, p2, p3, p4);
if (p1 = 0) then CheckHasp:= False
else begin
hasp ( GET_HASP_CODE, SeedCode, LptNum, Pass1, Pass2, p1, p2, p3, p4 );
if (p1 = ?????) and (p2 = ????) and (p3 = ????) and (p4 = ????) then CheckHasp:= True
else CheckHasp:= False
end;
end;


помогло?


 
Романов Р.В. ©   (2003-02-11 12:11) [4]

В таких случаях на com или lpt порт специальные ключи цепляют.


 
Слесарь Матерящийся ©   (2003-02-11 12:16) [5]

GUID, сохранённый в реестре. Самое стабильное, что только может быть. Безо всяких hasp-ов


 
R   (2003-02-12 08:38) [6]

>Слесарь Матерящийся ©
Да я тут пробежался по инету действительно GUID
для этого подходит единственное не нашел инфы о том в какай ветки реестра он сидит -подскажите?



Страницы: 1 вся ветка

Текущий архив: 2003.02.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
14-63792
Tio
2003-02-02 23:17
2003.02.20
Windows 2000 и интернет


4-63906
Scorp
2003-01-08 21:53
2003.02.20
Програмное выполнение команды через командную строку


6-63698
John
2002-12-29 17:47
2003.02.20
письмо с приаттаченным файлом


14-63789
SPeller
2003-02-02 19:42
2003.02.20
Классы в Дельфи


14-63766
BOA_KAA
2003-02-03 15:17
2003.02.20
E-mail