Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Вниз
Как узнать серийный номер 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c
