Создание виртуального диска в runtime?

← →
RamDrive (2005-04-30 11:27) [0]

Подскажите, пожалуйста, каким образом можно это реализовать, или где можно ознакомиться с публикациями по этому вопросу.

← →
Defunct © (2005-04-30 13:24) [1]

subst <имя диска> <временный каталог>

удаление:

subst <имя диска> /d

← →
SammIk © (2005-04-30 17:40) [2]

На wasm.ru Был пример создания диска в памяти

← →
Floppy © (2005-04-30 17:48) [3]

> Defunct © (30.04.05 13:24) [1] Спасибо
Все бы неплохо, но во временном каталоге остаются нежелательные "временные" файлы.
Но думается, что ответ помог. То есть перед subst-ом можно создать каталог, а после завершения приложения, его грохнуть.
Ну, а "по большому", хотелось бы установить реальный RamDrive.

← →
Floppy © (2005-04-30 17:52) [4]

> SammIk © (30.04.05 17:40) [2]
Слишком долго отвечал на [1], и не успел увидеть этот пост.
Пойду посмотрю

← →
Deka © (2005-04-30 18:02) [5]

Если диск нужен только на время работы программы то может быть найти ему замену? Какой объем диска нужен?

← →
Floppy © (2005-04-30 20:31) [6]

> Deka © (30.04.05 18:02) [5]
Нужен именно виртуальный (в оперативной памяти), а Какой объем диска нужен?, в данной постановке не играет особой роли :(

← →
Okey_ (2005-04-30 22:26) [7]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const
NOSOURCEPATH=2;
NOCREATE=4;

var
Form1: TForm1;

Function CreateVirtualDevice(MountPath,SourcePath:string):integer;

implementation

{$R *.DFM}

Function CreateVirtualDevice(MountPath,SourcePath:string):integer;
begin
Result:=0;
{ if not(DirectoryExists(SourcePath)) then
begin
Result:=NOSOURCEPATH;
Exit;
end;}
if not(DefineDosDevice(0, PChar(MountPath), PChar(SourcePath))) then

begin
Result:=NOCREATE;
Exit;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin // В SourceEdit.Text находится "z:"
if CreateVirtualDevice(Edit1.Text,Edit2.Text)=0 then
ShowMessage("Устройство было создано нрмально")
else
ShowMessage("Ошибка при создании");
end;

end.

← →
Okey_ (2005-05-02 23:37) [8]

Ну что подойшло???

Кстати, ради прикола, а можно эмулировать zip - драйвы, цифровики, дисководы, если можно, то как???

Создание виртуального диска в runtime? Найти похожие ветки