Buscar

Fazendo sua aplicação iniciar junto com o windows

nome

Expedito Cordeiro

Colunista ainda sem descrição. Caro colunista, por favor envie-nos sua descrição.

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.

Publicidade

Vote no artigo




Quantidade de votos: 3 votos
Aceitação: 93%


Detalhes do artigo

Categoria: Windows
Adicionado dia: 15/09/09
Por: Expedito Cordeiro
Visualizado: 18110 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009