Dyski wirtualne i rejestr

Czy da się jakoś stworzyć dysk wirtualny za pomocą delphi (lub coś w stylu: subst i litera dysku)

hehe i jeszcze jeden problem
mam taki kod:
procedure TForm7.Button3Click(Sender: TObject);
var
Rejestr : TRegistry;
begin
Rejestr.RootKey := HKEY_LOCAL_MACHINE;
Rejestr.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
//SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Rejestr.WriteString('VirtualDriveCrt','C:\nerve.bat');
Rejestr.CloseKey;
ShowMessage('Rejestr zmodyfikowany!');
end;

a na czym polega problem? a no na tym, że chociaż nie wiem co bym zrobił z rejestrem zawsze przy zamknięciu programu zaczynają się pokazywać jaieś błędy! ech co jest tam źle co?? dlaczego mam taki problem

hehe i jeszcze jeden problem
mam taki kod:
procedure TForm7.Button3Click(Sender: TObject);
var
Rejestr : TRegistry;
begin
Rejestr.RootKey := HKEY_LOCAL_MACHINE;
Rejestr.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
//SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Rejestr.WriteString('VirtualDriveCrt','C:\nerve.bat');
Rejestr.CloseKey;
ShowMessage('Rejestr zmodyfikowany!');
end;

a na czym polega problem? a no na tym, że chociaż nie wiem co bym zrobił z rejestrem zawsze przy zamknięciu programu zaczynają się pokazywać jaieś błędy! ech co jest tam źle co?? dlaczego mam taki problem

no kolego poprawic to trzeba tak

Rejestr := TRegistry.Create;
try
Rejestr.OpenK .... i tak dalej
finally
Rejestr.Free; (zamiast close);
end;

odwiedz stronę: http://GNhack.obywatel.pl , na niej znajdziesz odpowiedni artykół, i co najlepsze ustanowić wirtualny dysk możesz nawet z Pascala :-)--Zim0nSky

robię program ktory to robi, na razie doszedłem do tego że wyświetla okno windozy z wyborem dysków sieciowych, ale jestem blisko, napisz do mnie to Ci podeślę tego progza--DELPHI RULEZ