защита програмы от копирования

[psycho-coder]

Ну, форматнул он винт. Серийник винта, что тоже отформатировался?

[ZBEP]

psycho-coder, ну по идее не должен..
Сейчас на флешке проверю.

Мда..
После смени буквы не меняется.
После форматирования меняется

[_SERGEYX_]

Привязка к железу - не лучший вариант.
А программа никак не будет привязана к пользователю?
Можно, например, привязаться к банковским реквизитам юзера (номер счета, банк, МФО). Мне юзер высылает банковские реквизиты, а я по ним генерирую ему серийник. Если юзер попытается вывести на печать отчет с другими реквизитами - программа этого не позволит.

[ZBEP]

Ну для моей проги самый оптимальный вариант привязываться к железу.
(можно было бы еще ввести онлайн проверку, т.к. прога работает через интернет, но что-то не охота как то все это делать). Привязать к материнке я думаю будет в самый раз.

П.с.
Кто нить может поделиться ссылкой на то, где объясняют как получить серийник материнки?
Везде либо жесткий, либо через реестр, что не подходит.

[psycho-coder]

Сообщение от ZBEP

psycho-coder, ну по идее не должен..
Сейчас на флешке проверю.

Мда..
После смени буквы не меняется.
После форматирования меняется

Как можно отформатировать (удалить), серийный номер устройства, который вшит в него заводом-производителем? Может я что то пропустил в своем развитии?

[ZBEP]

psycho-coder, он не удаляется, а меняется.
Это сирийный номер тома
Сейчас буду искать, как получить для физического диска.

[psycho-coder]

Проверить я это все равно не смогу (по крайней мере до вечера). Хочу обратить внимание на фразу "серийный номер устройства". Этот код зашит, его изменить нельзя.
А в коде которых Вы привели, если я правильно понял, получает номер тома!
А это немного разные вещи.

[ZBEP]

psycho-coder, да, он получает не серийник жесткого, а тома.
Я думал, что жесткого, поэтому и удивился, что номер поменялся.

Сейчас буду искать как получить серийник самого жесткого вне зависимости от его томов и т.д.

[_SERGEYX_]

function GetHardDiskSerial(const DriveLetter: Char): string; 
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(PChar(DriveLetter + ':\'),
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
    VolumeFlags, nil, 0);
  Result := Format('%8.8X',
    [VolumeSerialNumber])
end;


procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
 ShowMessage(GetHardDiskSerial('j'));
end;

Проверил на флешке - после форматирования номер не изменяется...

[ZBEP]

_SERGEYX_, спс, но это тоже номер тома (который после форматирования поменяется), а не самого жесткого.

п.с.
И вот этот метод получение серийного номера BIOS тоже у меня не работает:

function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;