Системное программирование

← →
Valerik (2002-11-01 15:28) [0]

Народ, напишите кто знает, как прочитать серийный номер винта?

← →
Song © (2002-11-01 15:36) [1]

А соседнее сообщение в ломы посмотреть?

← →
Valerik (2002-11-01 15:40) [2]

Да, тама путного ничего нет! Че, так сложно прочитать?

← →
Kotka © (2002-11-02 00:04) [3]

function tform1.GetVolumeInfoFVS(const Dir:string; var FileSystemName,VolumeName:string;var Serial:longint):boolean; {Получение информации о диске Dir - каталог или буква требуемого диска FileSystemName - название файловой системы VolumeName - метка диска Serial - серийный номер диска В случае ошибки функция возвращает false} var root:pchar; res:longbool; VolumeNameBuffer,FileSystemNameBuffer:pchar; VolumeNameSize,FileSystemNameSize:DWord; VolumeSerialNumber,MaximumComponentLength,FileSystemFlags:DWORD; s:string; n:integer; begin n:=pos(":",Dir); if n>0 then s:=copy(Dir,1,n+1) else s:=s+":"; if s[length(s)]=":" then s:=s+"\"; root:=pchar(s); getMem(VolumeNameBuffer,256); getMem(FileSystemNameBuffer,256); VolumeNameSize:=255; FileSystemNameSize:=255; res:=GetVolumeInformation(Root,VolumeNameBuffer,VolumeNameSize ,@VolumeSerialNumber, MaximumComponentLength, FileSystemFlags ,FileSystemNameBuffer,FileSystemNameSize); Result:=res; VolumeName:=VolumeNameBuffer; FileSystemName:=FileSystemNameBuffer; Serial:=VolumeSerialNumber; freeMem(VolumeNameBuffer,256); freeMem(FileSystemNameBuffer,256); end;

это можно найти ВЕЗДЕ! Я уверен, что в базе готовых решений это тоже есть!!!!!!!!!!!!

2 Kotka: вроде бы речь идет о информации винта, а не раздела.

под Win9x можно юзать Smartvsd.vxd, под NT - как то по другому, сейчас не помню.

а х.з. пошут че попало, а потом разбирайся!!!

Системное программирование Найти похожие ветки