procedure TForm1.GemButtonClick(Sender: TObject); var Registry: TRegistry; begin Registry:=TRegistry.Create; Registry.RootKey:=HKEY_LOCAL_MACHINE; If Registry.OpenKey(\'Muh\',True) then begin Registry.WriteString(\'Tekstedit\', Edit1.Text); Registry.WriteBool(\'CheckBox\', CheckBox1.Checked); Registry.Free; end; end;
Hent fra regbasen...
procedure TForm1.HentButtonClick(Sender: TObject); var Registry: TRegistry; begin Registry:=TRegistry.Create; Registry.RootKey:=HKEY_LOCAL_MACHINE; If Registry.OpenKey(\'Muh\',True) then Edit1.Text := Registry.ReadString(\'Tekstedit\'); CheckBox1.Checked := Registry.ReadBool(\'CheckBox\'); Registry.Free; end;
Det er nok fordi du har lavet en anden fejl, for den virker fint, har selv brugt det under w2k-pro men det kræver bla. at du har rettigheder til at skrive i reg.basen
okay umelbart synes jeg selv at reginifile er lidt bedre...
det er bare iorden....
/ZIRON
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.