| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
CD-ROM [D5, D6, D7, Win95/98, WinXP]
Sura © (2002-11-27 09:03:00)Уважаемые,Мастера!
Как прочитать серийный номер CD-ROM !
Заранее благодарен !!!!!!!!!!!!!!
Мастера,желательно кодом!!!!!
Naum (2002-12-02 04:16:00) [1]Sura. Зайди на www.irs.ru/~naum (моё, родное) в раздел CDProtector, или же на www.irs.ru/~const. Защита лицензионного программного обеспечения на CD. Я тебя обрадую! Невозможно при помощи сериала защитить диск от КОПИРОВАНИЯ... От виртуализации, если постараться, то можно... А так... Прости... Короче, смотри на мой проект, там все продуманно...
Vint (2002-11-29 12:05:00) [2]>Koster (29.11.02 05:22)
так же, как и от дизассемблеров ;-)
>Sura (27.11.02 09:03)
спасаешь мир от пиратов? или может ты родственник Била Гейтса :))))
Koster (2002-11-29 05:22:00) [3]хм а как серийный номер CD спасет от "виртуализации" прогами типа Парагон и ВСД ?
al_ (2002-11-28 01:31:00) [4]Может и с нами поделишься?
Sura (2002-11-27 10:13:00) [5]OK!
Dmitry501 (2002-11-27 10:12:00) [6]Пожалуйста!
Sura (2002-11-27 10:08:00) [7]OK! Dmitry501
После обработки и т.д.Я гарантирую исходники.
Спасибо Dmitry501!!!
Dmitry501 (2002-11-27 10:08:00) [8]Ну держи еще- от наших, русских :)
Цитата
От:Alexey Zolotarev (Alexey.Zolotarev@f548.n5030.z2.fidonet.org)
Заголовок:CD Serial Number
View: Complete Thread (6 articles)
Original Format
Группы новостей:fido7.ru.delphi
Число:1999/07/07
Hi Ruslan!
Смотpел я на все это , и думаю надо помочь человеку.
Указываешь свой Литеpал - сдюка, и Ок .
=== Cut ===
Getting the serial number of a disk.
Frequently Asked Questions
Getting the serial number of a disk.
Question:
How do I retrieve the serial number of a disk?
Answer:
You can use the Windows API function GetVolumeInformation()
procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation("C:\",
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
"-" +
IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;
=== Cut ===
=== Cut ===
How can I get serial number of my drive
Frequently Asked Questions
How can I get serial number of my drive
Question:
How can I get volume information, such as the serial number,
from my drivers?
Answer:
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;
=== Cut ===
Удачи.
Алексей Золотаpев.
alan@laes.sbor.ru
Sura (2002-11-27 10:05:00) [9]Еще,еще,пожалуйсто,если можно,чем больше - тем лучше !
Dmitry501 (2002-11-27 10:05:00) [10]Вот мое мыло, но это не мои идеи- я писал от кого. Ну и напоследок короткий совет от M.H. Avegaart (avegaartNOSPAM@mccomm.nl):
function GetVolumeSerialNumber(Drive: Char): DWORD;
var
MaximumComponentLength, FileSystemFlags: DWORD;
begin
if not GetVolumeInformation(PChar(Drive + ":\"), nil, 0, @Result,
MaximumComponentLength, FileSystemFlags, nil, 0) then
RaiseLastWin32Error;
end;
Dmitry501 (2002-11-27 10:03:00) [11]Хватит? Или еще надо?
Sura (2002-11-27 10:02:00) [12]OKKKKK !!! Dmitry501
Сейчас попробую, е сли все OK, мыло дайте Ваше пожалуйсто
Для новейшей проги ( исходника )!
Dmitry501 (2002-11-27 10:02:00) [13]Или вот еще от Scott F. Barnes (sfb@iaw.on.ca)
Используй переменную SerailNumber из функции GetVolumeInformation
из TMEdiaplayer
var
NotUsed, VolFlags: Integer;
Buf: array [0..MAX_PATH] of Char;
VolName: string;
LoopCnt: Integer;
SerialNumber: dword;
SNString: string[8];
CDDrive: array [1..4] of Char;
...
begin
CDDrive:="defg";
...
LoopCnt:=0;
repeat
Inc(LoopCnt);
GetVolumeInformation(PChar(CDDrive[LoopCnt]+":\"),
Buf, sizeof(Buf),
@SerialNumber, NotUsed, VolFlags, nil, 0);
SetString(VolName, Buf, StrLen(Buf));
VolName := Format("%s",[VolName]);
if VolName="Audio CD" then
begin
SNString := IntToStr(SerialNumber);
StatusBar1.Panels.Items[1].Text := "CD "+SNString;
...
Dmitry501 (2002-11-27 09:58:00) [14]To Sura: Для Audio CD совет от Peter Jansen (peter.l.jansen@tip.nl):
interface
type
TMSFrec = record
Min : byte;
Sec : byte;
Frm : byte;
Nul : byte;
end;
implementation
function GetCdID : LongInt;
var
i : integer;
TrackLen : longint;
MSFRec : TMSFrec;
begin
with MediaPlayer do begin
Result := 100000*Tracks;
for i := 1 to Tracks do begin
TrackLen := TrackLength[i];
MSFRec := TMSFrec(TrackLen);
Result := Result + i*(60*MSFRec.Min + MSFRec.Sec);
end;
end;
end;
Sura (2002-11-27 09:54:00) [15]Пишу прогу для защиты CD-ROM, кто поможет - исходник гарантирую!
Как прочесть номер сидирома???
Dmitry501 (2002-11-27 09:48:00) [16]В принципе :) В смысле куда копать-
1. Прочти в raw начало диска - никогда не делал
2. Используй ASPI - как-то пробовал, работало нестабильно, например для CD-R не находил sn ;(
Sura (2002-11-27 09:47:00) [17]Dmitry501
Какой еще понедельник, среда, батенька !!!
Я знаю как прочесть номер винта но не знаю как прочесть номер
CD-ROMа.
Помогите пожалуйсто, Мастера, Я знаю, что Вы знаете!!!
ART_43 (2002-11-27 09:34:00) [18]To Dmitry501
как определить S/N для CD-диска можешь сказать
Dmitry501 (2002-11-27 09:25:00) [19]Очень тяжелый! Понедельник ведь. Какой серийный номер тебе нужен- привода CD или диска?
Sura (2002-11-27 09:15:00) [20]Наверное сегодня день тяжолый ? 8)))....^%$#
| |
Страницы: 