dracom 0 Denunciar post Postado Maio 4, 2008 Olá Pessoal. Agora tenho outro probleminha. Queria que um programa que criei se executase toda vez que o Windowns inicializace. Alem disso gostaria que esse programinha agise impercepitivel (invisivel). Dizem que é facil achar esse tipo de codigo na internet... mas eu nao achei. Obrigado pela atenção ;) Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Maio 4, 2008 No caso você precisa que ele rode sem ser encontrado nos processos ? Veja este link Para colocar no inicializar, pode adicionar ele dentro do menu Iniciar ou então mexer no registro do windows criando a chave em: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run, pode fazer algo como: procedure TfrmPrincipal.GravaRegWin(root: HKey; chave, valor, conteudo: string); var reg: TRegistry; ins: boolean; begin {Grava um valor no registro do windows} reg:=TRegistry.Create; reg.RootKey:=root; ins:=True; reg.OpenKey(chave, True); //verifica se o valor já existe e é o mesmo a inserir if reg.ValueExists(valor) then if Reg.ReadString(valor) = conteudo then ins:=False; if ins then reg.WriteString(valor, conteudo); reg.CloseKey; reg.Free; end; Função que grava um valor no registro do windows, para chamar pode fazer: GravaRegWin(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Run','NomeApp',ExtractFileDir(Application.ExeName) + '\' + ExtractFileName(Application.ExeName)); Compartilhar este post Link para o post Compartilhar em outros sites
dracom 0 Denunciar post Postado Maio 4, 2008 Eu estou usando isso Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto Registro.RootKey := HKEY_LOCAL_MACHINE; //Define a chave raiz Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); //Cria a chave Registro.WriteString('WE','C:\WE'); //Grava o endereço da sua aplicação no Registro Registro.CloseKey; // Fecha a chave e o objeto Registro.Free;Mas nenhuma chave é criada!O que esta errado Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Maio 5, 2008 Eu estou usando isso Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto Registro.RootKey := HKEY_LOCAL_MACHINE; //Define a chave raiz Registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); //Cria a chave Registro.WriteString('WE','C:\WE'); //Grava o endereço da sua aplicação no Registro Registro.CloseKey; // Fecha a chave e o objeto Registro.Free;Mas nenhuma chave é criada!O que esta errado Tente fazer usando a função acima... Compartilhar este post Link para o post Compartilhar em outros sites