Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

Вопрос о привязке проги к компу   Найти похожие ветки 

← →
XeN   (2002-01-08 14:30) [1]

//capture HDD serial.

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;

вроде так, попробуй.

---

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

Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c