Текущий архив: 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.019 c