Fórum Iniciar programa através do registro do windows #205324
09/01/2004
0
Olá pessoal. Eu tenho um programa que precisa ser iniciado toda vez que o computador é ligado. Para isso eu uso o registro do windows. Eu estou fazendo da seguinte forma:
s := ´C:\Sistemas\Controle de Clientes\PESQUISA_ALUNO.EXE´;
reg.RootKey:=HKEY_USERS;
reg.Openkey (´.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, ´Logo´, s);
Fazendo desta forma funciona, só que se ele não é o primeiro a ser carregado, e eu precisa que ele fosse carregado logo após o usuário digitar o login e a senha.
Eu sei que é possível pois onde eu trabalho existe um programa que faz isso (Timer Café) mas eu não consegui descobrir qual registro do windows ele usou. Alguém pode me indicar qual registro eu deveria usar para que meu programa fosse carregado assim que o usuário entrasse no windows?
Agradeço desde já.
s := ´C:\Sistemas\Controle de Clientes\PESQUISA_ALUNO.EXE´;
reg.RootKey:=HKEY_USERS;
reg.Openkey (´.DEFAULT\Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, ´Logo´, s);
Fazendo desta forma funciona, só que se ele não é o primeiro a ser carregado, e eu precisa que ele fosse carregado logo após o usuário digitar o login e a senha.
Eu sei que é possível pois onde eu trabalho existe um programa que faz isso (Timer Café) mas eu não consegui descobrir qual registro do windows ele usou. Alguém pode me indicar qual registro eu deveria usar para que meu programa fosse carregado assim que o usuário entrasse no windows?
Agradeço desde já.
Cristiano D.
Curtir tópico
+ 0
Responder
Posts
09/01/2004
Nigro
Também já ouvi dizer que tem uma chave que é executada antes dessa... porque você não busca nessa máquina onde tem o timer café a chave, através do nome do executável?
Responder
Gostei + 0
09/01/2004
Marcelo
Tente o seguinte codigo:
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
S, S2 : String;
begin
//inicia automaticamente ao fazer logon ou ligar a maquina!
Reg := TRegIniFile.Create( ´Programa´ ); // criando a pasta ´Progrma´ em:
{HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run}
// criando o comando a ser executado...
S := ExtractFileDir( Application.ExeName );
S2 := ExtractFileName( Application.ExeName );
S := S + ´\´ + S2;
Reg.RootKey := HKEY_Local_Machine;
Reg.Openkey ( ´\Software\Microsoft\Windows\CurrentVersion´, False );
Reg.WriteString( ´Run´, ´Programa´, S ) // abilita a inicialização automatica
end;
Valeu?
At+...
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
S, S2 : String;
begin
//inicia automaticamente ao fazer logon ou ligar a maquina!
Reg := TRegIniFile.Create( ´Programa´ ); // criando a pasta ´Progrma´ em:
{HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run}
// criando o comando a ser executado...
S := ExtractFileDir( Application.ExeName );
S2 := ExtractFileName( Application.ExeName );
S := S + ´\´ + S2;
Reg.RootKey := HKEY_Local_Machine;
Reg.Openkey ( ´\Software\Microsoft\Windows\CurrentVersion´, False );
Reg.WriteString( ´Run´, ´Programa´, S ) // abilita a inicialização automatica
end;
Valeu?
At+...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)