Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Виртуальный диск

Автор: Delist 21.5.2005, 19:24

Может кто знает, как можно создать свой виртуальный диск, наподобии того что создаёт Alcohol или VirtualCD.

Заранее спасибо.

Автор: Albinos_x 21.5.2005, 19:31

воспользуйся поиском. Здесь где-то уже был подобный вопрос.

Автор: Jetus 22.5.2005, 18:36

Как создать виртуальный диск на основе папки

Код


// Создать
procedure TForm1.Button1Click(Sender: TObject);
begin
  DefineDosDevice(0, PChar('Z:'), PChar('D:\Games\'));
end;

// Удалить
procedure TForm1.Button2Click(Sender: TObject);
begin
  DefineDosDevice(DDD_REMOVE_DEFINITION, PChar('Z:'), Nil);
end;