Como executar rápidamente o Sistema na inicialização do Win.
Bom, meu problema é o seguinte, gostaria de saber como faço executar rápidamente o Sistema na inicialização do Win98.
eu fiz assim: :arrow:
alterei a linha Shell do System.ini la onde tem Explorer.exe, botei meu o meu programa, funfou na moral, mas deu alguns probleminhas...
dai queria saber uma outra forma.. alguem poderia me informa :?:
[color=brown:486c559a7b]coloca um atalho do sistema na Pasta [b:486c559a7b]Iniciar [/b:486c559a7b]de [b:486c559a7b]Programas [/b:486c559a7b]demora muito.[/color:486c559a7b][/b]
eu fiz assim: :arrow:
alterei a linha Shell do System.ini la onde tem Explorer.exe, botei meu o meu programa, funfou na moral, mas deu alguns probleminhas...
dai queria saber uma outra forma.. alguem poderia me informa :?:
[color=brown:486c559a7b]coloca um atalho do sistema na Pasta [b:486c559a7b]Iniciar [/b:486c559a7b]de [b:486c559a7b]Programas [/b:486c559a7b]demora muito.[/color:486c559a7b][/b]
Otto
Curtidas 0
Respostas
Marcelo.l
01/11/2003
Tentou no registro do Windows?
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Chave = nome de seu programa
Valor = caminho até o executável
É o que eu costumo usar, principalmente para programas no systray.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Chave = nome de seu programa
Valor = caminho até o executável
É o que eu costumo usar, principalmente para programas no systray.
GOSTEI 0
Otto
01/11/2003
Marcelo, é, assim, como faço isso via programação? é que nao saco muito de editor de registro pelo delphi.
GOSTEI 0
Christian_adriano
01/11/2003
function Inicializar(Ativar : Boolean = true) : Boolean;
var
Reg : TRegistry; // uses Registry
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Ativar then begin
try
Result := True;
Reg.OpenKey(´Software\Microsoft\Windows\CurrentVersion\Run´, True);
Reg.WriteString(´AdmBackup´, Application.ExeName);
except
Result := False;
end;
end else
begin
Reg.OpenKey(´Software\Microsoft\Windows\CurrentVersion\Run´, False);
Reg.DeleteValue(´AdmBackup´);
end;
Reg.CloseKey;
Reg.Free;
end;
t+
Christian.
var
Reg : TRegistry; // uses Registry
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Ativar then begin
try
Result := True;
Reg.OpenKey(´Software\Microsoft\Windows\CurrentVersion\Run´, True);
Reg.WriteString(´AdmBackup´, Application.ExeName);
except
Result := False;
end;
end else
begin
Reg.OpenKey(´Software\Microsoft\Windows\CurrentVersion\Run´, False);
Reg.DeleteValue(´AdmBackup´);
end;
Reg.CloseKey;
Reg.Free;
end;
t+
Christian.
GOSTEI 0
Otto
01/11/2003
eta levanta defunto :lol: :oops:
GOSTEI 0
Marco Salles
01/11/2003
Isto pode ser aplicado tb para windows Xp :?: :?: :?:
GOSTEI 0
Emir Neto
01/11/2003
Funciona perfeitamente no windows xp, mas aqui fica uma questão... e no vista... funciona?
GOSTEI 0
Luciano Paranhos
01/11/2003
Isso pode ser aplicado a qualquer versão do windows que possua o registro. Win95 até o Vista atualmente, porem, a partir do WinNT vc precisará de direitos Administrativos pra executar o programa.
GOSTEI 0