Форум: "Основная";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c