| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Серийный номер (опять) [D5, Win95/98]

i2e ©   (2004-04-16 11:21:00) 

Серийный номер тома определяется функцией GetVolumeInformation.
Для Win95, Win98 проблем не было, а для Win2k и WinNT полученные данные каждый раз разные.
А чего не так?

var
  VolName:   PChar;
  SerialNmr: PDWord;
  StrNmr:    String;
  CL:        Cardinal;
begin
     New(SerialNmr);
     New(VolName);
     GetVolumeInformation('C:\', VolName, SizeOf(VolName), SerialNmr, CL, CL, nil, 0);
     StrNmr := IntToHex(Integer(SerialNmr^), 8);
     ....

или:  Str := IntToStr(Integer(SerialNmr^));

Причем, как я заметил в других вопросах форума на эту тему, делается различие между томоми диском. Меня вполне бы устроил данный вариант, если бы была повторяемость результата.

---

i2e   (2004-04-19 11:30:00) [1]

Продолжаем разговор.
Теперь написано так:

var
   VolName, FileSystemName : array [0..MAX_PATH-1] of Char;
   SerialNmr               : DWord;
   MaxComponentLength      : DWORD;
   FileSystemFlags         : DWORD;
begin
   GetVolumeInformation('C:\', VolName, MAX_PATH, @SerialNmr, MaxComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);
   Edit1.Text := IntToHex(SerialNmr, 8);

Вроде корректно. НО ПРОБЛЕМА ОСТАЛАСЬ.
Под 95,98 - повторяемость есть, под NT - каждый раз формируется новый номер.
Меня вполне бы устроил номер тома (а не HDD), но стабильно формируемый.

Есть идеи?

---

i2e   (2004-04-16 14:32:00) [2]

AV на это место не получал.
Под 95 и 98 такое работало вообще без проблем. Проверено у многих пользователей. Может это и странно, но это факт.
FAQ посмотрел, кое-что нашел. Проверю - доложу.

---

Рамиль   (2004-04-16 13:57:00) [3]

Мне интересно как в 95 и 98 такое работало...

---

Kerk   (2004-04-16 13:47:00) [4]

> Что такое AV?

Access Violation

---

Anatoly Podgoretsky   (2004-04-16 12:10:00) [5]

Учиться лучше на чужих ошибка, но все почему то учатся на своих.
А ты уже сходил в местное FAQ?

---

i2e   (2004-04-16 12:05:00) [6]

Может и странное. Как умею. Учиться некогда, всем надо результат.
Что такое AV?

---

Anatoly Podgoretsky   (2004-04-16 11:31:00) [7]

Странное у тебя какое то управление память, а ты еще AV не получал?

---

Наверх