Fórum Execultar automaticamente quando entrar no Windows. Como??? #301088
28/10/2005
0
Duolon
Curtir tópico
+ 0Posts
28/10/2005
Gameiro
Ate mais
Gostei + 0
28/10/2005
Duolon
Gostei + 0
28/10/2005
Ramms
Gostei + 0
28/10/2005
Duolon
Como assim?
Gostei + 0
28/10/2005
Rômulo Barros
Use a Unit [b:0bfb1129f4]TRegistry[/b:0bfb1129f4] para isto.
Gostei + 0
28/10/2005
Duolon
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
29/10/2005
Godzilla_xf
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
30/10/2005
Duolon
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
30/10/2005
Godzilla_xf
ex:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry;
espero que isso ajude.
Gostei + 0
31/10/2005
Duolon
Agora sim :D
Valew
Gostei + 0
31/03/2006
Tpoeta
Gostei + 0
11/06/2006
Felipeabm
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
11/06/2006
Felipeabm
OpenKey(´\Software\Microsoft\Windows\CurrentVersion\Run´, True); até o ultimo XP lançado é a mesma.. não sei se serve pro Vista ...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)