Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.024 c
5-1089878644
Sandman25
2004-07-15 12:04
2005.07.18
TFont в качестве property


1-1119962220
MuxauJl
2005-06-28 16:37
2005.07.18
Загвоздка с I/O error 32


14-1119730079
Unleashed
2005-06-26 00:07
2005.07.18
Где бы найти работу.....


4-1117101550
Dufe
2005-05-26 13:59
2005.07.18
Масштаб шрифта


4-1116247125
KSN
2005-05-16 16:38
2005.07.18
запуск процесса