Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Вниззаводской номер 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c