Aplicação se iniciando junto com o Windows
Bom, simplesmente o aplicativo vai se iniciar junto com o sistema, por exemplo, antigamente quando existia o MSN ao ligar o sistema o mesmo se iniciava, assim como outros programas.
- Adicione logo após de "type" depois de "TForm1 = class(TForm)":
Código PHP:
procedure GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);
procedure ApagaRegistro(Raiz: HKEY; Chave, Valor : string);
- Adicione logo após de "implementation" os seguintes códigos:
Código PHP:
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:
Código PHP:
GravaRegistro(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run',
'TeamTeste', ExtractFilePath(Application.ExeName) + 'NomedoPrograma.exe');
//TeamTeste Sera o Nome Que Ficara no msconfig..
Créditos, ao meu amigo Stres
