VPF::Защита программы - Форум программистов

Jey_k

Дата 22.2.2005, 15:29 (ссылка)

(нет голосов)

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: 1
Всего: 61

Еще есть хорошая вещь как привязка к физическому адресу на диске.

--------------------

Проверка IP

user posted image

p0s0l

Дата 26.2.2005, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата

hDevice := CreateFile(
PChar('\\.\Scsi'+s+':'),

Как выяснилось недавно в одной темке, "\\.\Scsi0:" не всегда катит. В таких случаях нужно использовать "\\.\PhysicalDrive0" (хотя Scsi предпочтительнее, т.к. не требует привилегии админа):
http://forum.vingrad.ru/index.php?act=ST&f...t=0#entry313172

Это сообщение отредактировал(а) p0s0l - 26.2.2005, 15:12

--------------------

С уважением, г-н Посол.

Poseidon

Дата 27.2.2005, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата

элементарно, получаешь например через S.M.A.R.T. серийный номер жесткого диска (именно диска, а не раздела)

И тут вопрос: а почему

Цитата

именно диска, а не раздела

Я вот например смотрю в реестре букву системного диска (раздела).( Хоть у большинства это С: но все же бывает всякое. ) А потом получаю серийник этого раздела

Код

function DriveSerialNo(Disk : char):real;
var
 SerialNum  : dword;
 a, b       : dword;
 VolumeName : array [0..255] of char;
begin
 Result := 0;
 if GetVolumeInformation(PChar(Disk + ':\'), VolumeName, SizeOf(VolumeName),
                         @SerialNum, a, b, nil, 0) then
  Result := SerialNum;
end;

И код менше, и возни менше, и ошибок не возникает даже на Win 2003.
Или этот вариант некорректен? smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

p0s0l

Дата 27.2.2005, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата(Poseidon @ 27.2.2005, 15:50)

Или этот вариант некорректен?

Серийник раздела назначается при форматировании раздела, к тому же его можно сменить.
Серийник винта назначается при производстве винта, и его нельзя изменить (вроде как...).

--------------------

С уважением, г-н Посол.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »