Dyski wirtualne i rejestr

2002-03-22 12:08
-ql-GORTH
0

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

Pozostało 580 znaków

2002-03-22 13:30
onimowy
0

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;

Pozostało 580 znaków

2002-03-22 14:42
ZiV
0

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

Pozostało 580 znaków

2002-03-25 17:43
Lofix
0

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

Pozostało 580 znaków

Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0