Dalej j tego rejestr

0

procedure TForm7.Button3Click(Sender: TObject);
var
Rejestr : TRegistry;
begin
Rejestr.Create;
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;
Rejestr.free;
ShowMessage('Rejestr zmodyfikowany!');
end;

I poźniej jak zamknę program to jakieś błędy pokazuje i to mnie wkurza !!!! :)
co trza zrobić aby pozbyć się tego błędu ???????

0

daj "" przed SOFTWARE - jak to nie to to nie mam wiecej pomyslow :)

0

-ql-GORTH w dniu 1.4.2002 16:6 napisal:
procedure TForm7.Button3Click(Sender: TObject);
&gtvar
&gtRejestr : TRegistry;
&gtbegin
&gtRejestr.Create;
&gtRejestr.RootKey := HKEY_LOCAL_MACHINE;
&gtRejestr.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
&gtSOFTWARE\Microsoft\Windows\CurrentVersion\Run
&gtRejestr.WriteString('VirtualDriveCrt','C:\nerve.bat');
&gt
Rejestr.CloseKey;
&gtRejestr.free;
&gtShowMessage('Rejestr zmodyfikowany!');
>end;
&gt
&gt
&gtI poźniej jak zamknę program to jakieś błędy pokazuje i to mnie wkurza !!!! :)
&gtco trza zrobić aby pozbyć się tego błędu ???????

Rejestr := TRegistry.Create;
try
Rejestr.RootKey := HKEY_LOCAL_MACHINE;
Rejestr.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
Rejestr.WriteString('VirtualDriveCrt','C:\nerve.bat');
finally
Rejestr.Free;
end;

nie chce mi sie sprawdzac u sie

0

sproboj cos takiego:

procedure TForm7.Button3Click(Sender: TObject);
var
Rejestr : TRegistry;
begin
try
Rejestr := TRegistry.Create;
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;
finally
Rejestr.free;
end;
ShowMessage('Rejestr zmodyfikowany!');
end;

---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

LKS w dniu 1.4.2002 16:42 napisal:
sproboj cos takiego:
&gt
&gtprocedure TForm7.Button3Click(Sender: TObject);
&gtvar
&gtRejestr : TRegistry;
&gtbegin
&gt try
&gt Rejestr := TRegistry.Create;
&gt Rejestr.RootKey := HKEY_LOCAL_MACHINE;
&gt Rejestr.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
&gt //SOFTWARE\Microsoft\Windows\CurrentVersion\Run
&gt Rejestr.WriteString('VirtualDriveCrt','C:\nerve.bat');
&gt Rejestr.CloseKey;
&gt finally
&gt Rejestr.free;
&gt end;
&gtShowMessage('Rejestr zmodyfikowany!');
>end;
&gt
&gt
&gt
&gt
&gt
&gt--
&gt-=[ Delphi 3, 6 ]=-
&gt-=-==[ LKS ]==-=-

źle:)
Create powinno byc przed "try"
a showmessage bezposrednio przed finally :)

0

i nie jest potrzebne CloseKey bo tylko jeden klucz otwiera, wystarczy Free w sekcji finally

0

nom sorki maly blad z tym Create i ShowMessage :)
ale tak na wszelki wypadek warto dac CloseKey :)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

--Pozdrawiam!
Adam Boduch
www.4programmers.net

0

--Pozdrawiam!
Adam Boduch
www.4programmers.net

0

--Pozdrawiam!
Adam Boduch
www.4programmers.net

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