Главная страница
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.041 c
2-1154592529
Lagrima_JN
2006-08-03 12:08
2006.08.20
Возможность редактирования отдельных столбцов в StringGrid.


10-1122960775
Dell3r
2005-08-02 09:32
2006.08.20
Файлы типа .doc в один файл


2-1154158166
Батя
2006-07-29 11:29
2006.08.20
Реестр


3-1150304770
vvQuad
2006-06-14 21:06
2006.08.20
Перенос БД на другой комп


1-1151976047
Lex_!
2006-07-04 05:20
2006.08.20
Программная установка события у компонента....