Текущий архив: 2003.04.14;
Скачать: CL | DM;
Вниз
Серийный номер дискеты, cd или ешшо какого-нибудь накопителя Найти похожие ветки
← →
nw (2003-02-06 02:31) [0]Подскажите, как узнать серийный номер дискеты (3"14) и CD ??? Если конечно такое озможно программно.
← →
MARcoDEN © (2003-02-06 10:26) [1]GetVolumeInformation
Четвертый параметр этой функции и есть серийный номер.
Вот пример получений серийника с HDD:
procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum:Pdword;
a,b:Dword;
buffer:array [0..255] of char;
begin
new(SerialNum);
if GetVolumeInformation("c:\",buffer,sizeof(buffer),SerialNum,a,b,nil,0) then
Label1.Caption:=IntToStr(SerialNum^);
Dispose(SerialNum);
end;
← →
Вадим © (2003-02-07 05:31) [2]Только после того как винт будет отформатирован этот серийник изменится.
← →
Boy_Star (2003-02-21 10:41) [3]Огромное спасибо! Очень было нужно и так быстро найти!
← →
DVM © (2003-02-21 12:15) [4]Удалено модератором
Примечание: Задай свой вопрос в отдельной ветке
← →
Anatoly Podgoretsky © (2003-02-21 12:24) [5]Вадим © (07.02.03 05:31)
Ну и что все равно получишь.
Страницы: 1 вся ветка
Текущий архив: 2003.04.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
