Excluir chave do registro...não funciona...

20/05/2003

0

Tenho este procedimento para deletar uma chave do registro do windows, mas não funciona...alguém sabe me dizer o que ocorre?

procedure TfPrincipal.acDelExecute(Sender: TObject);
var
Reg : TRegistry;
Dt,Ch: String;
Nr : Integer;
begin
if MessageDlg(´Confirma exclusão do item: ´ + Lv.Items.Item[lv.Selected.Index].Caption
,mtConfirmation,[mbYes,mbNo],0) = mrYes then begin
Dt := cbVrDelphi.Items[cbVrDelphi.ItemIndex];
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey(´Software\Borland\Delphi\´ + Dt + ´\Transfer\´,False);
Case cbVrDelphi.ItemIndex of
0,1 : begin
Nr := Reg.ReadInteger(´Count´);
Dec(Nr);
Reg.WriteInteger(´Count´,Nr);
end;
2..10: begin
Nr := StrToInt(Reg.ReadString(´Count´));
Inc(Nr);
Reg.WriteString(´Count´,IntToStr(Nr));
end;
end;
Ch := ´Software\Borland\Delphi\´ + Dt + ´\Transfer\´;
if Reg.DeleteValue(Ch + ´Title´ + IntToStr(Lv.Selected.Index)) then ShowMessage(´Chave Deletada´);
if Reg.DeleteValue(Ch + ´WorkingDir´ + IntToStr(Lv.Selected.Index)) then ShowMessage(´Chave Deletada´);
if Reg.DeleteValue(Ch + ´Path´ + IntToStr(Lv.Selected.Index)) then ShowMessage(´Chave Deletada´);
if Reg.DeleteValue(Ch + ´Params´ + IntToStr(Lv.Selected.Index)) then ShowMessage(´Chave Deletada´);
Reg.Free;
Lista;
end;
end;


Adriano Santos

Adriano Santos

Responder

Posts

20/05/2003

Vmotta

insira essa linha no seu código :

Ch := ´Software\Borland\Delphi\´ + Dt + ´\Transfer\´;

// linha a ser inserida:

Reg.OpenKey(Ch, false);

// continua seu código removendo o Ch dele:

if Reg.DeleteValue(´Title´ + IntToStr(Lv.Selected.Index)) then ShowMessage(´Chave Deletada´);

isso deve resolver, blz ?
t+
Vitor


Responder

22/05/2003

Adriano Santos

..


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar