Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.04;
Скачать: CL | DM;

Вниз

Как узнать серийный номер CD средствами Delphi??   Найти похожие ветки 

 
Onward ©   (2003-08-20 03:51) [0]

Моя программа находится на CD. Как я могу узнать серийный номер этого CD на котором она находится????
В целях защиты от копирования..


 
Yanis ©   (2003-08-20 03:55) [1]


procedure TForm1.Button1Click(Sender: TObject);
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;

А при записи на другой диск будешь перекомпилировать проект? :)


 
Onward ©   (2003-08-20 03:57) [2]

WOW! Я очень вам благодарен!!! Это то что мне нужно...
А на счет перекомпиляции это непроблема...
Пасибо друг... :)


 
Yanis ©   (2003-08-20 04:09) [3]

To [2]
А инфа у тебя прикольная, т.е. я хочу сказать ты крут, особенно мне понравилось:
Интересное о себе.
Честно, понравилось. :))



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
1-10724
Bel
2003-08-20 11:52
2003.09.04
Как перетаскивать строки в ListBox е?


1-10778
Spawn
2003-08-23 09:19
2003.09.04
Word


3-10573
DiLLeR
2003-08-12 13:41
2003.09.04
Высота QRBand и QRShape.


3-10645
Ден
2003-08-12 14:25
2003.09.04
Снова строки


3-10631
Lamer_of_Delphi
2003-08-13 09:38
2003.09.04
Запрос не выполняется!!!