Witam wszystkich
pisałem na ten temat ale odpowiedzi konkretnej niedostał postanowiłem żucic to wszystko na jakieś 3
miechy. Teraz się wkużyłem i postaowiłem sprubowa sam i cud juz wiem jak to sie robi z komponentem
CheckedBox, ale mam zrowy i to juz bardziej poważny problem bo juz raz namieszałem i program usuną
mi cały kucz z podkluczami w rejestrze chdzi mi o startowanie z windowsem
to jest mój kod
var
Reg : TRegistry; * deklaruj zmienna dla klasy
begin
Reg := TRegistry.Create; * stworz zmienna
try
Reg.OpenKey('Software\Lan Tlen', True); * utworz katalog
if CheckBox1.Checked = True then begin
Reg.WriteBool('AutoSave',True);
end; * Checkbox1 jest to jakaś tam funkca z tym nie mam
problemu
if CheckBox1.Checked = False then begin
Reg.WriteBool('AutoSave',False);
end;
- i tu jz mam schody czy to jest dobrze napisane, prosze o poprawienie mnie jeśli ś błedy w tym kodzie
if CheckBox2.Checked = True then begin
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True); *Tworzy klucz
Reg.WriteString('Lan','c:\Program Files\Lan Tlen\projekt.exe');
end;
if CheckBox2.Checked = False then begin
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True); * kasuje klucz
Reg.DeleteKey('Lan');
end;
finally
Reg.Free; * zwolnij klase
end;
Close;
end;
wielkie dzieki
--> > ( DELPHI 5 ) < <
> > > DELPHI 6 < < <