Como fazer sua aplicação iniciar junto com o Windows?

Olá,

essa dica é interessante e fácil. Aqui vou ensinar como fazer sua aplicação iniciar junto do Windows, ou seja, quando você entra no Windows vários programas, geralmente, se iniciam junto. Um bom exemplo desses programas são os antivírus. Enfim, iniciar seu programa junto com o Windows é fácil:

1º passo: Declarar a unit Registry na cláusula Uses.

Assim:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Registry;

2º passo: Digitar o código abaixo no Evento OnCreate (ou em algum outro lugar que você queira).

Assim:

procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
CriaIcone;
try

// Inicializa a variavel do tipo TRegistry
Reg:= TRegistry.Create;

// Define a hirearquia das pasta, a qual irá trabalhar.
Reg.RootKey:= HKEY_LOCAL_MACHINE;

// Cria/entra, dentro da pasta do registro no qual irá aguardar informação
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', False);

// Escreve a informção na chave
// NomeDaChave, pode ser qualquer nome que você queira
Reg.WriteString('NomeDaChave', Application.ExeName);

// Fecha a chave do registro
Reg.CloseKey;
Finally
Reg.Free;
end;
end;

Obs: Este código acima faz com que ele cria uma chave de registro que faz com que inicie o seu programa junto com o Windows. Então se você quiser que ele faça isso apenas quando o usuário selecionar uma opção coloque este código, não no evento OnCreate, mas sim aonde desejar.

Abraços,

Imdm