Apagar registro de iniciar...

Delphi

28/06/2004

Pessoal blz, fiquei um bom tempose mexer em Delphi, devido a ser roubado.
bom eu esto usando esse codigo pra Iniciar junto ao windows, gostaria deleta ele é possivel nesse mesmo codigo??


var reg:TRegIniFile;
procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
begin
Reg:=TRegIniFile.Create(´LloydSoft´);
{HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run}
S:=ExtractFileDir(Application.ExeName);
S2:=ExtractFileName(Application.ExeName);
S:=S+´\´+S2;
reg.RootKey:=HKEY_USERS;
reg.Openkey (´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, ´Logo´, s);
button1.click;
end;


se alguem souber e possa me ajudar ficaria muito grato.

abraços......................


Duvanel

Duvanel

Curtidas 0

Respostas

Tatuweb

Tatuweb

28/06/2004

Vai ter que modificar um pouco o código.

var
  Reg: TRegistry;
begin
  Reg := TRegIniFile.Create;
  Reg.RootKey := HKEY_USERS;
  Reg.OpenKey (´\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\RunOnce´, FALSE);
  Reg.DeleteValue (´Logo´);
  Reg.CloseKey;
  Reg.Free;
end;


:wink:


GOSTEI 0
POSTAR