| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Серийный номер дискеты, cd или ешшо какого-нибудь накопителя [D5, Win2k]
nw © (2003-02-06 02:31:00)Подскажите, как узнать серийный номер дискеты (3"14) и CD ??? Если конечно такое озможно программно.
Anatoly Podgoretsky (2003-02-21 12:24:00) [1]Вадим © (07.02.03 05:31)
Ну и что все равно получишь.
DVM (2003-02-21 12:15:00) [2]Удалено модератором
Примечание: Задай свой вопрос в отдельной ветке
Boy_Star (2003-02-21 10:41:00) [3]Огромное спасибо! Очень было нужно и так быстро найти!
Вадим (2003-02-07 05:31:00) [4]Только после того как винт будет отформатирован этот серийник изменится.
MARcoDEN (2003-02-06 10:26:00) [5]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;
| |
