APLICAÇÕES INICIANDO COM O SISTEMA [DELPHI7]

 Iniciando Aplicativo Junto Com Windows.

Delphi 2007 [DELPHI7]

Primeiramente Devemos Adicionar Nas Uses: Registry.

Adicione abaixo de "type" depois "TForm1 = class(TForm)"os seguintes procedimentos:

procedure GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);

procedure ApagaRegistro(Raiz: HKEY; Chave, Valor : string);

Adicione abaixo de "implementation" os seguintes códigos:

procedure TForm1.GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);

var

Registro: TRegistry; // criando variável do tipo Tregistry

begin

Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto

Registro.RootKey := Raiz; //Define a chave raiz

Registro.OpenKey(Chave, True); //Cria a chave

Registro.WriteString(Valor, '"' + Endereco + '"');//Grava o endereço da sua aplicação no Registro

Registro.CloseKey; // //Fecha a chave e o objeto

Registro.Free;

end;

procedure TForm1.ApagaRegistro(Raiz: HKEY; Chave, Valor: string);

var

Registro: TRegistry;

begin

Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto

Registro.RootKey := Raiz;

Registro.OpenKey(Chave, True); //Cria a chave

Registro.DeleteValue(Valor); //Grava o endereço da sua aplicação no Registro

Registro.CloseKey; // Fecha a chave e o objeto

Registro.Free;

end;

No Evento OnShow do Form Adicione

GravaRegistro(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run',

'TeamTeste', ExtractFilePath(Application.ExeName) + 'NomedoPrograma.exe');

//TeamTeste Sera o Nome Que Ficara no msconfig..

Depois Estarei Ensinando Outras Formas De Esconder Seu KL, Trojan..

By Stres