Fórum Apagar registro de iniciar... #240238
28/06/2004
0
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......................
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
Curtir tópico
+ 0
Responder
Posts
29/06/2004
Tatuweb
Vai ter que modificar um pouco o código.
:wink:
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:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)