| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Привязка проги к железу [D5, Win95/98]
R © (2003-02-11 09:45:00)Мастера приведите пример функции по оределению какого либо
стабильного параметра в компьютере например номера материнки или другого железа, кроме жесткого диска.
R (2003-02-12 08:38:00) [1]>Слесарь Матерящийся ©
Да я тут пробежался по инету действительно GUID
для этого подходит единственное не нашел инфы о том в какай ветки реестра он сидит -подскажите?
Слесарь Матерящийся (2003-02-11 12:16:00) [2]GUID, сохранённый в реестре. Самое стабильное, что только может быть. Безо всяких hasp-ов
Романов Р.В. (2003-02-11 12:11:00) [3]В таких случаях на com или lpt порт специальные ключи цепляют.
sniknik (2003-02-11 11:42:00) [4]> оределению какого либо стабильного параметра в компьютере
вот пример определения железки, 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;
помогло?
Anatoly Podgoretsky (2003-02-11 11:25:00) [5]Я думаю он пойдет ему кое что бить, если это конечно специально не оговорено
Беспечный Ангел (2003-02-11 11:12:00) [6]И ты считаешь, что этот параметр стабильный? Вот у меня неделю назад материнка сдохла, надоело ей работать... Поймите, привязывать прогу к железу - это неверный путь... Учитывай то, что любое железо может сдохнуть, а программа должна работать, и желательно БЕЗ переустановки. Или представь, что пользователь твоей проги решил апгрейд сделать.... Я думаю, он сильно удивится...
| |
