Скачать: CL | DM;

Создание виртуального диска в 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]

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

---

← →
petya-kurochkin ©   (2005-05-21 18:36) [9]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.034 c