[Zorkov Igor]

Virtual Disk SDK - это компонент для создания виртуальных дисков, альтернатива CallbackDisk от этих господ https://www.eldos.com/cbdisk/

Диск может быть смонтирован как CD или как HDD, флоппи пока не поддерживаеться

Обработка событий происходит в юзермоде, поэтому довольно легко можно прикрутить любое шифрование

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

function TForm1.OnDiskRead(Sender: TObject; Buffer: Pointer; Length: DWORD; var BytesRead: DWORD; Offset: Int64): BOOL; begin     if (Offset + Length <= (Sender as TFileDisk).FileStream.Size) then   begin     (Sender as TFileDisk).FileStream.Seek(Offset, TSeekOrigin.soBeginning);     BytesRead := (Sender as TFileDisk).FileStream.ReadData(Buffer, Length);   end   else     BytesRead := 0;     Result := True; end;     function TForm1.OnDiskWrite(Sender: TObject; Buffer: Pointer; Length: DWORD; var BytesWritten: DWORD; Offset: Int64): BOOL; begin     if (Offset + Length <= (Sender as TFileDisk).FileStream.Size) then   begin     (Sender as TFileDisk).FileStream.Seek(Offset, TSeekOrigin.soBeginning);     BytesWritten := (Sender as TFileDisk).FileStream.WriteData(Buffer, Length);   end   else     BytesWritten := 0;     Result := True;   end;

http://www.delphisources.ru/forum/at...d=149744018 5

Delphi XE2, XE3, XE4, XE5 - 32/64 бит, ОС Windows XP, Vista, 7, 8, 8.1 - 32/64 бит

Бесплатен для некомерческого использования, для себя любимого и т.д., то есть без извлечения прибыли

Скачать ССЫЛКА ОБНОВЛЕНА