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

Вниз

CD-ROM   Найти похожие ветки 

 
Hel   (2001-12-27 09:44) [0]

Здравствуйте! НЕ подскажете как сделать привязку программы к cd-rom"у. т.е., чтобы она работала только с диска, ну и естественно при копировании на локальный диск выдавала ошибку о неудачном копировании и что программа может работать только с оригинала.


 
Dimaond Cat ©   (2001-12-27 22:31) [1]

эта функция GetDriveType определяет по букве (т.е. с:\ или d:\) что это за драйв, а эта функция GetLogicalDrives
возвращает "колличство" доступных дисков.
Подробней смотри по хелпу, если будут проблемы, пиши


 
Hel   (2001-12-28 07:22) [2]

>Dimaond Cat
Спасибо за ответ, я даже попробовала один код, приведенный ниже, но он выдает ошибку Tab index out of bounds. Я просто с этим компонентом TabSet не работала раньше

var
Drive: Char;
AddedIndex: Integer;
begin
DriveTabSet.TabIndex:=0;
for Drive := "A" to "Z" do
begin
case GetDriveType("Drive" + ":/") of
DRIVE_REMOVABLE:
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Floppy.Picture.Graphic);
DRIVE_FIXED:
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Fixed.Picture.Graphic);
DRIVE_REMOTE:
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Network.Picture.Graphic);
end;
if UpCase(Drive) = UpCase(DirectoryOutline.Drive) then
DriveTabSet.TabIndex := AddedIndex;
end;


 
Херувим   (2001-12-28 17:10) [3]

А как это у тя вообще работает... А?
GetDriveType при таком вводе error выдаёт.... PChar брать надо...
А TabSet накой.... просто проверяешь значение функции, оно должно быть = DRIVE_CDROM и всё... как получить текущий диск я думаю знаешь... Вся примудрость...
ЗЫ: конечно я мог неправильно понять вопрос... Будут проблемы Пиши...


 
Hel   (2001-12-29 09:27) [4]

> Херувим
Вообще мне уже кажется, что лучше использовать ключ, по-моему он обеспечит большую защиту, чем все эти функции... Хотя, если хороший программер посидит, у него все получится :)




 
Milz ©   (2001-12-29 09:38) [5]

Можно использовать нестандартную дорожку данных на компакте, например игрушка Wenom (вроде как до сих пор не взломали, по крайней мере ни один эмулятор CD из тех что я нашёл сделать образ диска не мог).
Для дискет когда-то применялась "лазерная метка / дырка". Вопрос к All, это можно реализовать на CD RW?
В этом деле главное не перестараться ...


 
Hel   (2001-12-29 11:31) [6]

> Milz
А ты не мог бы привести пример использования нестандартной дорожки данных на компакте. Что-то новое для меня... Заранее спасибо


 
Херувим   (2001-12-29 13:26) [7]

> Milz
Мне то же интересно как это!!! Вернее как её записать и чем уж не CD Protectorom ли. Тогда как её проверить....



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
1-96
серёга
2002-03-21 12:36
2002.04.01
Привет всем. Где взять Update pack для Delphi 5


1-202
interest
2002-03-20 08:55
2002.04.01
Переменные сохранить, а при запуске вернуть


1-185
JibSkeart
2002-03-17 16:28
2002.04.01
Как Узнать программно и можноли что у Файла досовская (Рус) кодировка ??


1-95
Nick_Torshin
2002-03-21 13:06
2002.04.01
Передача string из Delphi в VC++


14-295
UGH|B1ADE
2002-02-18 18:56
2002.04.01
Плиз поможите !