Главная страница
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.026 c
1-10766
pvv
2003-08-24 05:53
2003.09.04
Как получить Sender объекта на котором кликнули попупменюшкой


1-10821
Mazer
2003-08-21 19:01
2003.09.04
Перенос процедур главного модуля в несколько других...


1-10819
BlackTiger
2003-08-21 13:05
2003.09.04
Помогите побороть Automation-сервер! Очень нужно!


11-10662
Microlab
2002-12-21 20:23
2003.09.04
Как перемещать форму без заголовка?


4-11027
BPK
2003-07-01 00:52
2003.09.04
Как правильно делать в Unicode константы и переменные?