Скачать: CL | DM;

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

← →
Klever ©   (2006-08-01 12:45) [0]

Здравствуйте! можно ли с любого диска(компакт с фильмами ,программами и т.д.) узнать с помощью Делфи серийный номер диска и занести это значение в Edit или Label. И если можно, то как? Я в этом деле новичек, и пока теряюсь в догадках.Всем спасибо!

---

← →
Klever ©   (2006-08-01 14:21) [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 не подходит

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c