серийный номер диска
Klever © (2006-08-01 12:45:00)
Здравствуйте! можно ли с любого диска(компакт с фильмами
,программами и т.д.) узнать с помощью Делфи серийный номер диска и
занести это значение в Edit или Label. И если можно, то как? Я в
этом деле новичек, и пока теряюсь в догадках.Всем спасибо!
Klever (2006-08-01 14:21:00) [1]
Пробовал
procedure TForm1.Button1Click(Sender: TObject);
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,FileSystemFlags: Cardinal;
begin
GetVolumeInformation('g:\',VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,
FileSystemName,MAX_PATH);
Memo1.Lines.Add('VolumeName = '+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;
Но GetVolumeInformation не подходит
Наверх 
ЧАТ |
Орешник |
|
