Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание виртуального диска в runtime? [D5, Win95/98, Win2k]

RamDrive © (2005-04-30 11:27:00)
Подскажите, пожалуйста, каким образом можно это реализовать, или где можно ознакомиться с публикациями по этому вопросу.

petya-kurochkin (2005-05-21 18:36:00) [1]
Кстати, ради прикола, а можно эмулировать zip - драйвы, цифровики, дисководы, если можно, то как???

Okey_ (2005-05-02 23:37:00) [2]
Ну что подойшло???

Okey_ (2005-04-30 22:26:00) [3]
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.

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

Deka (2005-04-30 18:02:00) [5]
Если диск нужен только на время работы программы то может быть найти ему замену? Какой объем диска нужен?

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

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

SammIk (2005-04-30 17:40:00) [8]
На wasm.ru Был пример создания диска в памяти

Defunct (2005-04-30 13:24:00) [9]
subst <имя диска> <временный каталог>

удаление:

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »