var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,
FileSystemFlags : Integer;
begin
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
Memo1.Lines.Add('VName = '+VolumeName);
Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
Memo1.Lines.Add('FSName = '+FileSystemName);
end;
Серийный номер винчестера
Всем привет.Скажите пожалуйста,как вычислить серийный код винчестера.Я знаю один код,но он че-то не работает...
С уважением,SNAKE
[COLOR=red]kastron, научитесь пожалуйста пользоваться тэгами code.[/COLOR]
Код:
С уважением,SNAKE
[COLOR=red]kastron, научитесь пожалуйста пользоваться тэгами code.[/COLOR]
VolumeSerialNo - LPDWORD попробуй,если непоможет - тада скажи - как он неработает,мошт ругается или он в VolumeSerialNo ничего некладет?
Код:
var vname,fsname:array [0..MAX_PATH-1] of Char;
serial,maxcompl,sysflags:dword;
.....
getvolumeinformation(pchar('f:\'),vname,MAX_PATH,@serial,maxcompl,sysflags,fsname,MAX_PATH);
serial,maxcompl,sysflags:dword;
.....
getvolumeinformation(pchar('f:\'),vname,MAX_PATH,@serial,maxcompl,sysflags,fsname,MAX_PATH);
В моем коде,который я указывал выше,программа при попытке ее откомпилировать или запустить на исполнение выдает ошибку в строке
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@Vo lumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@Vo lumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
я же писал выше и даже dword выделил. сопоставил бы код и понял бы уж что к чему.
это и есть ошибка, потому как MaxComponentLength и FileSystemFlags должны быть типа dword или cardinal. ты же когда GetVolumeInformation набираешь там и подсказка вылазиет, а в ней, то, какие параметры передавать надо.
Код:
MaxComponentLength,
FileSystemFlags : Integer;
FileSystemFlags : Integer;
это и есть ошибка, потому как MaxComponentLength и FileSystemFlags должны быть типа dword или cardinal. ты же когда GetVolumeInformation набираешь там и подсказка вылазиет, а в ней, то, какие параметры передавать надо.