Ĺadny brzuch
uses registry;
procedure TUstawienia.FormCreate(Sender: TObject);
var
Reg : TRegistry;
begin
Reg:=TRegistry.Create;
if CheckBox5.Checked= false then
try
Reg.DeleteValue('HKEY_CLASSES_ROOT\.css\(domyślna)');
finally
Reg.Free;
end;
end;
Program się kompiluje ale wartość nie zostaje skasowana.
uses registry; procedure TUstawienia.FormCreate(Sender: TObject); var Reg : TRegistry; begin Reg:=TRegistry.Create; if CheckBox5.Checked= false then try Reg.RootKey := HKEY_CLASSES_ROOT; Reg.DeleteValue('\.css\(domyślna)'); finally Reg.Free; end; end;
uses registry; procedure TForm1.Button1Click(Sender: TObject); var Reg:TRegistry; begin Reg:=TRegistry.Create; if not CheckBox5.Checked then try Reg.RootKey:=HKEY_CLASSES_ROOT; if Reg.OpenKey('.dupa',false) then Reg.DeleteValue(''); finally Reg.Free; end; end;
uses registry; procedure TUstawienia.FormCreate(Sender: TObject); var Reg : TRegistry; begin Reg:=TRegistry.Create; if CheckBox5.Checked= false then   try    Reg.RootKey := HKEY_CLASSES_ROOT;    Reg.DeleteValue('\.css\(domyślna)');    finally    Reg.Free;    end; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Program się kompiluje ale wartość nie zostaje skasowana.
uses registry; procedure TUstawienia.FormCreate(Sender: TObject); var Reg : TRegistry; begin Reg:=TRegistry.Create; if CheckBox5.Checked= false then try Reg.RootKey := HKEY_CLASSES_ROOT; Reg.DeleteValue('\.css\(domyślna)'); finally Reg.Free; end; end;
uses registry; procedure TForm1.Button1Click(Sender: TObject); var Reg:TRegistry; begin Reg:=TRegistry.Create; if not CheckBox5.Checked then try Reg.RootKey:=HKEY_CLASSES_ROOT; if Reg.OpenKey('.dupa',false) then Reg.DeleteValue(''); finally Reg.Free; end; end;
uses registry; procedure TUstawienia.FormCreate(Sender: TObject); var Reg : TRegistry; begin Reg:=TRegistry.Create; if CheckBox5.Checked= false then   try    Reg.RootKey := HKEY_CLASSES_ROOT;    Reg.DeleteValue('\.css\(domyślna)');    finally    Reg.Free;    end; end;