Pesquisar na Comunidade
Mostrando resultados para as tags ''aplicações iniciando com o sistema''.
Encontrado 1 registro
-
I niciando Aplicativo Junto Com Windows. Delphi 2007 [DELPHI7] Primeiramente Devemos Adicionar Nas Uses: [/font][/color][/center] Registry. [center][color=#333333][font=Open Sans] Adicione abaixo de "type" depois "TForm1 = class(TForm)"os seguintes procedimentos: [/font][/color][/center] procedure GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string); [center][color=#333333][font=Open Sans] [/font][/color][/center] procedure ApagaRegistro(Raiz: HKEY; Chave, Valor : string); [center][color=#333333][font=Open Sans] Adicione abaixo de "implementation" os seguintes códigos: [/font][/color][/center] procedure TForm1.GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string); var Registro: TRegistry; // criando variável do tipo Tregistry begin Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto Registro.RootKey := Raiz; //Define a chave raiz Registro.OpenKey(Chave, True); //Cria a chave Registro.WriteString(Valor, '"' + Endereco + '"');//Grava o endereço da sua aplicação no Registro Registro.CloseKey; // //Fecha a chave e o objeto Registro.Free; end; procedure TForm1.ApagaRegistro(Raiz: HKEY; Chave, Valor: string); var Registro: TRegistry; begin Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto Registro.RootKey := Raiz; Registro.OpenKey(Chave, True); //Cria a chave Registro.DeleteValue(Valor); //Grava o endereço da sua aplicação no Registro Registro.CloseKey; // Fecha a chave e o objeto Registro.Free; end; [center][color=#333333][font=Open Sans] No Evento OnShow do Form Adicione [/font][/color][/center] GravaRegistro(HKEY_LOCAL_*******, 'Software\Microsoft\Windows\CurrentVersion\Run', 'TeamTeste', ExtractFilePath(Application.ExeName) + 'NomedoPrograma.exe'); //TeamTeste Sera o Nome Que Ficara no msconfig.. [center][color=#333333][font=Open Sans]
