Execultar automaticamente quando entrar no Windows. Como???

Delphi

28/10/2005

Como fazer pra um programa ser execultado automaticamente quando entrar no Windows???


Duolon

Duolon

Curtidas 0

Respostas

Gameiro

Gameiro

28/10/2005

Não sei se te ajuda mas se você colocar o seu executavel no menu iniciar , na aba inicializar(XP) ou iniciar(98) o windows inicia automaticamente


Ate mais


GOSTEI 0
Duolon

Duolon

28/10/2005

Sem ser dessa maneira alguem sabe de + algum outro jeito?


GOSTEI 0
Ramms

Ramms

28/10/2005

adicione na shell..


GOSTEI 0
Duolon

Duolon

28/10/2005

adicione na shell..


Como assim?


GOSTEI 0
Rômulo Barros

Rômulo Barros

28/10/2005

Adicione o path do seu executável na chave [b:0bfb1129f4]HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run[/b:0bfb1129f4] do [u:0bfb1129f4]registro do windows[/u:0bfb1129f4].
Use a Unit [b:0bfb1129f4]TRegistry[/b:0bfb1129f4] para isto.


GOSTEI 0
Duolon

Duolon

28/10/2005

[quote:2f4b821755=´Rômulo Barros´]Adicione o path do seu executável na chave [b:2f4b821755]HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run[/b:2f4b821755] do [u:2f4b821755]registro do windows[/u:2f4b821755].
Use a Unit [b:2f4b821755]TRegistry[/b:2f4b821755] para isto.[/quote:2f4b821755]

como eu faço isso?
eu gostaria de fazer isso sem editar nada no registro do windows, e sim q o programa o fizesse por si só, e toda vez q o usuário entrar no windows o programa se auto execultar automaticamente

como q isso é feito???


GOSTEI 0
Godzilla_xf

Godzilla_xf

28/10/2005

de uma olhada:

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := Tregistry.Create;
with Reg do
begin
if not Reg.ValueExists(Application.ExeName) then
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(´\Software\Microsoft\Windows\CurrentVersion\Run´, True);
WriteString(PChar(ExtractFileName(Application.ExeName)),
PChar(ExtractFilePath(Application.ExeName) + PChar(ExtractFileName(Application.ExeName))));
CloseKey;
Free;
end;
end;
end;

espero que ajude


GOSTEI 0
Duolon

Duolon

28/10/2005

de uma olhada: procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg := Tregistry.Create; with Reg do begin if not Reg.ValueExists(Application.ExeName) then begin RootKey := HKEY_LOCAL_MACHINE; OpenKey(´\Software\Microsoft\Windows\CurrentVersion\Run´, True); WriteString(PChar(ExtractFileName(Application.ExeName)), PChar(ExtractFilePath(Application.ExeName) + PChar(ExtractFileName(Application.ExeName)))); CloseKey; Free; end; end; end; espero que ajude


Apareceu uns erros falando q tem q declarar Tregistry, Rootkey, Open key etc.., mais como eu ñ manjo quase nada de delphi, eu ñ sei como e onde declaro isso...

como ficaria esse código com tudo declarado???


GOSTEI 0
Godzilla_xf

Godzilla_xf

28/10/2005

Declare na sessão [b:8817143f90]Uses a opção [i:8817143f90]Registry[/i:8817143f90][/b:8817143f90] que vai ficar tudo certo blz.

ex:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry;

espero que isso ajude.


GOSTEI 0
Duolon

Duolon

28/10/2005

Declare na sessão [b:41a20877cc]Uses a opção [i:41a20877cc]Registry[/i:41a20877cc][/b:41a20877cc] que vai ficar tudo certo blz. ex: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry; espero que isso ajude.


Agora sim :D
Valew


GOSTEI 0
Tpoeta

Tpoeta

28/10/2005

Sobre esse caminho do registro do windows... ele muda de uma versão do windows para outra? Se sim, como saber qual caminho é de qual versão?


GOSTEI 0
Felipeabm

Felipeabm

28/10/2005

Vc tem 2 opções :

Registro ou pasta .. eu uso a pasta para não ficar acessand muito o registro ...

Temos 2 sistemas diferentes .. Um baseado em Winnt e outro Windows .. então pesquisareamos esta pasta ..

if DirectoryExists(´C:\Windows´\) then ou if DirectoryExists(´C:\Winnt´\) ...

Vc pode usar tbm a string ´¬WinDir¬\System32´ .. ou ¬SystemDir¬ .. não sei se este ultimo recurso está certo .. :D .. achei isto no registro então deve funcionar :D

¬windir¬\system32\mmc.exe /s ¬windir¬\system32\compmgmt.msc

No caso independe se é WinNT ou Windows .. ele vai pro local certo


GOSTEI 0
Felipeabm

Felipeabm

28/10/2005

Esta chave RootKey := HKEY_LOCAL_MACHINE;
OpenKey(´\Software\Microsoft\Windows\CurrentVersion\Run´, True); até o ultimo XP lançado é a mesma.. não sei se serve pro Vista ...


GOSTEI 0
POSTAR