Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

заводской номер CD/Floppy   Найти похожие ветки 

← →
MetalFan ©   (2004-09-07 12:41) [0]

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

---

← →
MetalFan ©   (2004-09-07 15:37) [1]

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

---

← →
Poirot ©   (2004-09-07 18:13) [2]

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

---

← →
MetalFan ©   (2004-09-07 19:39) [3]

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

---

← →
Poirot ©   (2004-09-07 19:47) [4]

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

---

← →
MetalFan ©   (2004-09-08 14:04) [5]

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

---

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

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

---

← →
MetalFan ©   (2004-09-08 17:29) [7]

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

---

← →
MetalFan ©   (2004-09-13 12:23) [8]

мдя...

---

← →
BiN ©   (2004-09-13 14:28) [9]

про флоп забудь а вот для 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;


---

← →
BiN ©   (2004-09-13 14:29) [10]

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

---

← →
MetalFan ©   (2004-09-13 16:09) [11]

> BiN [10]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.043 c