Защита программ

TSnake · 13.05.2006

2zubr
а зачем IntToHex(VolumeSerialNo, 8)?
и если это серийник hdd, то почему он разный для разных разделов винта??

zubr · 14.05.2006

а зачем IntToHex(VolumeSerialNo, 8)?

Это для того, чтобы на экран выводилась строка номера диска в шестнадцатиричном формате, если тебе нужно только для проверки, то IntToHex не нужен.

и если это серийник hdd, то почему он разный для разных разделов винта??

А кто сказал, что это серийник винта. Данная функция возвращает номер тома логического диска, который генерит винда, при создании диска.
Чтобы получить серийник HDD все гораздо сложнее.

TSnake · 14.05.2006

Я в полных непонятках:

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
serial1 : PDWORD;
serial2, b : DWORD;
begin
GetVolumeInformation(PChar('C:\'), nil, 0, serial1, b, b, nil, 0);
label1.Caption := IntToStr(serial1^);
GetVolumeInformation(PChar('C:\'), nil, 0, @serial2, b, b, nil, 0);
label2.Caption := IntToStr(serial2);
end;

В label1 и label2 получаем разные результаты. но почему?

zubr · 14.05.2006

Проблема в том, что в случае с serial1 : PDWORD ты объявляешь указатель на невыделенную область памяти, тогда надо выделить память под переменную, на которую будет указывать этот указатель:

Код:

New(serial1);
GetVolumeInformation(PChar('C:\'), nil, 0, serial1, b, b, nil, 0);
label1.Caption := IntToStr(serial1^);

62316e · 14.05.2006

как говорят: если написали к вашей софтине крек - значит юзают. ломают все.
1) мне больше понрмавилось активацыя через нет.
2) сам в себя записуеш какой-то црц. (аля грузиш exe, длл(или чет типа таво) с длл выгрущаэш ехе в конец(или умно) дописываеш че надо (аля "осталось 13 дней...") и опять грузиш exe.. тут уже как надо) и на любой апаратуре будет работать тока скока надо) - пока не взламают конечно(

TSnake · 15.05.2006

2zubr
Спасибо, работает.

Защита программ

Ещё по теме