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

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

заводской номер CD/Floppy [D5, D6, Win95/98, Win2k, WinXP]

MetalFan ©   (2004-09-07 12:41:00) 

есть ли такое в природе? и если есть, то как это выцепить?
заранее спасибо за инфу!

---

MetalFan   (2004-09-13 16:09:00) [1]

> BiN [10]

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

---

BiN   (2004-09-13 14:29:00) [2]

Извиняюсь.....
Совсем не тот код дал.
Это для определения ID болванки, а не CD-ROM-а

---

BiN   (2004-09-13 14:28:00) [3]

про флоп забудь а вот для CD
В Res помещается строка ошибки

function GetCDUID(Drive:Char; CallBackWindowHandle:DWORD; var Res:string):Bool;
var
 msp : TMCI_INFO_PARMS;
 MediaString : array[0..255] of char;
 ret : longint;
 OpenParm: TMCI_Open_Parms;
 dwFlag:DWORD;
 GenParm: TMCI_Generic_Parms;
 Drv:String;
begin
 FillChar(OpenParm, SizeOf(TMCI_Open_Parms), 0);
 OpenParm.dwCallback := CallBackWindowHandle;
 OpenParm.lpstrDeviceType := 'CDAudio';
 Drv:=Drive+':';
 OpenParm.lpstrElementName := Pchar(Drv);
 dwFlag:=mci_Wait or mci_Open_Type or MCI_OPEN_ELEMENT or mci_Open_Shareable;
 Result := mciSendCommand(0, mci_Open, dwFlag, Longint(@OpenParm))=0;
 if Result then
 begin
   FillChar(MediaString, sizeof(MediaString), 0);
   FillChar(msp, sizeof(msp), 0);
   msp.lpstrReturn := @MediaString;
   msp.dwRetSize := 255;
   ret := mciSendCommand(OpenParm.wDeviceID, MCI_INFO, MCI_INFO_MEDIA_IDENTITY,
           longint(@msp));
   if Ret <> 0 then
   begin
     MciGetErrorString(ret, @MediaString, sizeof(MediaString));
   end;
   Res:=MediaString;
   GenParm.dwCallback := CallBackWindowHandle;
   mciSendCommand( OpenParm.wDeviceID, mci_Close, mci_Wait, Longint(@GenParm));
 end
 else Res:='';
end;


---

MetalFan   (2004-09-13 12:23:00) [4]

мдя...

---

MetalFan   (2004-09-08 17:29:00) [5]

а ссылочки не найдется? а то везде продать ее хотят)

---

Igit   (2004-09-08 15:46:00) [6]

Книжка классная есть, Всеволод Несвижский "Программирование устройств SCSI и IDE"

---

MetalFan   (2004-09-08 14:04:00) [7]

а где можно про ASPI почитать?

---

Poirot   (2004-09-07 19:47:00) [8]

GetVolumeInformation() - это тебе как нить поможет, но... но.. :)))
Ешшо мона попробовать читать как то на подобии ASPI как это делает Неро и прочии тулзы - но там не номер, а некая мануфактурная инфа есть...) дерзай:)

---

MetalFan   (2004-09-07 19:39:00) [9]

ну в смысле "защитый" неизменяемый серийный номер.

---

Poirot   (2004-09-07 18:13:00) [10]

Это какойже должен быть номер, если их тучами продают:)) полболванки номер?:)))))))

---

MetalFan   (2004-09-07 15:37:00) [11]

Мастера сегодня в отпуске?

---

Наверх