Fazendo sua aplicação iniciar junto com o windows
É muito comum quando instalamos em nosso computador um software utilitário de impressora ou mesmo programas que fazem comunicação do computador com o celular ou outro dispositivo qualquer que esses programas iniciam juntos com o Windows, ou seja, quando o Windows é inicializado eles também se executam automaticamente.
Há um tempo atrás tive a necessidade de criar um software pra gerenciamento de Lan House, o que me fez sair em busca de formas de manipular o Windows de várias maneiras.
Descobri então que por meio do registro do Windows podemos fazer com que nosso aplicativo inicie junto com o mesmo.
Então vamos à prática:
Mas antes,
Atenção! Devemos tomar muito cuidado com o uso do registro do Windows, pois, a alteração de chaves ou valores do mesmo pode causar um perca irreparável, por isso muito cuidado.
Primeiro vamos criar uma aplicação bem simples.
Abra o Delphi:
File > New > Application . Antes de qualquer coisa, vamos declarar na clausula Uses do form a unit
Registry :
Dessa forma o Delphi poderá trabalhar com o registro do Windows. Em seguida coloque dois TButtons no form:
Agora salve sua aplicação da seguinte forma:
Unit:
Projeto:
Coloque o nome “Inicia” para ela.
Pronto agora que já salvamos nossa aplicação vamos ao que interessa:
No Evento
OnClick do primeiro TButton coloque:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
S: string;
begin
Reg := TRegistry.Create;
S:=ExtractFileDir(Application.ExeName)+'\'+ExtractFileName(Application.ExeName);
Reg.rootkey:=HKEY_LOCAL_MACHINE;
Reg.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);
Reg.WriteString('ProgramaInicia',S);
Reg.closekey;
Reg.Free;
Showmessage('Valor Gravado!');
end;
A chave do registro do Windows:
HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN
É a chave que guarda o “Path” ou caminho dos programas que são inicializados juntos com o Windows, o código acima grava o valor do caminho do nosso aplicativo nessa chave fazendo com que o mesmo inicie junto com o Windows.
Depois disso rode o programa e clique no botão.
Pronto! O valor contendo o caminho da nossa aplicação já foi gravado no registro. Para conferir você pode acessar o registro do Windows da seguinte forma:
Vá em
Iniciar > Executar
Digite
regedit e navegue até a chave:
HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN
E você verá que o seu valor foi gravado no Registro:
O Nome e o caminho.
Para testar e ver o seu aplicativo iniciando junto com o Windows reinicie seu computador.
Agora vamos fazer o processo para remoção desse valor do registro:
Coloque no Evento
OnClick do segundo TButton o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
S: string;
begin
Reg := TRegistry.Create;
S:=ExtractFileDir(Application.ExeName)+'\'+ExtractFileName(Application.ExeName);
Reg.rootkey:=HKEY_LOCAL_MACHINE;
Reg.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);
Reg.DeleteValue('ProgramaInicia');
Reg.closekey;
Reg.Free;
Showmessage('Valor Excluido!');
end;
Rode o Programa novamente e clique no segundo botão. Prontinho! O valor que foi criado foi retirado da chave. Agora nosso programa não iniciará mais junto com o Windows.
Obs: Nunca é demais lembrar. A manipulação do Registro do Windows é algo que deve ser feito com muito cuidado.
Um abraço a todos! Até a próxima.
Expedito Cordeiro.