[DELPHI] INICIAR PROGRAMA JUNTO COM O WINDOWS

//uses Registry

procedure TForm1.Button1Click(Sender: TObject); 

var

  key, titulo, path: string;

  reg: TRegIniFile;

begin

  if OpenDialog1.Execute then

  begin

    // caminho do arquivo escolhido

    path := OpenDialog1.FileName;

    // Titulo do programa, pode ser qualquer coisa, nesse exemplo é o nome do arquivo escolhido

    titulo := ExtractFileName(path);

    // Define se vai abrir só toda vez que iniciar o windows ou apenas uma;

    if Application.MessageBox(PChar('Deseja executar o programa apenas uma vez'), 'ATENÇÃO', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = ID_YES then

      key := 'Once' // apenas uma vez

    else

      key := ''; // todas as vezes

    // grava no registro, o programa deve ter permissão de administrador

    reg := TRegIniFile.Create('');

    try

      reg.RootKey := HKEY_LOCAL_MACHINE;

      reg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run' + key +  #0, titulo, path);

    finally

      reg.Free;

    end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】