Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.20;
Скачать: 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 вся ветка

Текущий архив: 2006.08.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.046 c
1-1152192712
dvakar
2006-07-06 17:31
2006.08.20
Как сохранить содержимое WebBrowser на диск?


2-1154037933
susergey
2006-07-28 02:05
2006.08.20
Командная строка


2-1154336277
D@Nger
2006-07-31 12:57
2006.08.20
DBGrid и цвет выделенной ячейки


3-1150353422
s_t_d
2006-06-15 10:37
2006.08.20
Отображение длинных текстов в DBGrid


2-1154501900
Arsenija
2006-08-02 10:58
2006.08.20
обработка по нажатии ENTER в LabeledEdit