[es] - Delete RegKey u Delphiu, sta ne valja?

dulef90
Dušan Stefanović
Medicinski fakultet
Novi Sad

Član broj: 173515
Poruke: 5
91.148.74.*

Profil

Delete RegKey u Delphiu, sta ne valja?

^{25.01.2009. u 22:23 - pre 185 meseci}

Zdravo!
Nasao sam ovu proceduru na netu, ali kada je probram na mojim test registrima, ne radi. Ima li neko ideju sta ne valja?
U HKEY_CURRENT_CONIG sam napravio novi regkey, pod imenom dulef90, pa u njemu nikola, u ovome dulef900.
Znaci ide:

HKEY_CURRENT_CONFIG\dulef90\nikola\dulef900

Code:
procedure RemoveFromRunKey(ApTitle: string);
var
  Reg: TRegistry;
  TheKey: string;
  ListOfEntries: TStringList;
  i: integer;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_CONFIG;
  TheKey := 'dulef90\nikola';
  // Check if key exist...
  // ...if yes, try to delete the entry for ApTitle
  if not Reg.OpenKey(TheKey, False) then
  ShowMessage('Key not found')
   else
     begin
      if Reg.DeleteValue(ApTitle) then
      ShowMessage('Removed: ' + ApTitle)
       else
        ShowMessage('Not found: ' + ApTitle);
     end;
  Reg.CloseKey;
  Reg.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
  begin
    RemoveFromRunKey('dulef900');
  end;

end.

Odgovor na temu

dulef90
Dušan Stefanović
Medicinski fakultet
Novi Sad

Član broj: 173515
Poruke: 5
91.148.74.*

Profil

Re: Delete RegKey u Delphiu, sta ne valja?

^{26.01.2009. u 09:38 - pre 185 meseci}

Ispravio sam kod, sada radi:

Code:

var reg: TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_CURRENT_CONFIG;
reg.LazyWrite:= False;
reg.OpenKey('dulef90\nikola', False);
reg.DeleteKey('dulef900');

reg.CloseKey;
reg.free;
end;

Odgovor na temu