I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
var reg: TRegistry; ok: boolean; begin try reg := TRegistry.create; reg.RootKey := HKey_Local_machine; ok := Reg.DeleteKey('\Software\TestKey\'); if ok then showmessage('Registry key removed successfully'); finally reg.free; end;
arne_v > Har du set nederst på den side du linker til: Last revised January 8, 1996. Nok lidt for gammel til de delphi versioner de fleste benytter i dag.
hvis jeg skal slette den her: HKEY_LOCAL_MACHINE\SOFTWARE\testing
hvordan skal koden så se ud?
sådan her eller?
var reg: TRegistry; ok: boolean; begin try reg := TRegistry.create; reg.RootKey := HKey_Local_machine; ok := Reg.DeleteKey('HKEY_LOCAL_MACHINE\SOFTWARE\testing'); if ok then showmessage('Registry key removed successfully'); else showmessage('Registry key not removed!'); finally reg.free; end;
eller laver jeg noget forkert?
og behøver: reg.RootKey := HKey_Local_machine; at være med?
Dette her virker, og ja du skal sætte Rootkey medmindre du vil rette noget i HKEY_CURRENT_USER så behøver du ikke da Rootkey sættes til denne som default.
var reg: TRegistry; ok: boolean; begin try reg := TRegistry.create; reg.RootKey := HKey_Local_machine; ok := Reg.DeleteKey('\SOFTWARE\testing'); if ok then showmessage('Registry key removed successfully') else showmessage('Registry key not removed!'); finally reg.free; end; end;
var reg: TRegistry; ok: boolean; begin try reg := TRegistry.create; reg.RootKey := HKey_Local_machine; reg.OpenKey('\SOFTWARE\testing\',false); ok := Reg.DeleteValue('lala'); if ok then showmessage('Value removed successfully') else showmessage('Value not removed!'); finally reg.free; end; end;
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.