procedure TFormPrincipal.FormCreate(Sender: TObject);
var
Registro : TRegistry;
Caminho : String;
begin
Caminho := ExtractFileDir(Application.ExeName)+'\'+ExtractFileName(Application.ExeName);
Registro := TRegistry.Create;
Registro.rootkey := HKEY_LOCAL_MACHINE;
Registro.Openkey('SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',false);
if Registro.ReadString('NOME_DA_APLICACAO') = '' then
begin
Registro.WriteString('NOME_DA_APLICACAO',Caminho);
Registro.CloseKey;
end;
end;
segunda-feira, 24 de fevereiro de 2014
Colocando sua aplicação para iniciar com o Windows
Muitas vezes se torna necessário que nossa aplicação seja executada na
inicialização do Windows, então segue abaixo um código simples, que
verifica se sua aplicação já está no registro e se não estiver, coloca
sua aplicação no registro do Windows, o que fará com que sua aplicação
seja iniciada com o sistema.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário