.:::Iniciar junto com o windows, atraves do delphi:::.

Delphi

12/07/2003

Salve pessoas.

Minha duvida é o seguinte, quando na maquina cliente o programa é executado, como faço para q ele automaticamente, fique registrado no iniciar do windows, ou seja, quando o computador é ligado ele abre junto com o windows.

Desde ja obrigado.

Henry


Henry

Henry

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

12/07/2003

// Antes, acrescente em USES a biblioteca ´[color=red:57e8081145]TRegistry[/color:57e8081145]´.

Procedure InfectaBoot;
Var
Teste : TRegistry;
Begin
Teste := Teste.Create;
Teste.RootKey := HKEY_LOCAL_MACHINE ;
Teste.OpenKey(´SOFTWARE\Microsoft\Windows\CurrentVersion\Run´,False);
If(Not(Teste.ValueExists(ExtractFileName(Application.ExeName))))then
Begin
teste.WriteString(ExtractFileName(Application.ExeName),ExtractFilePath(Application.ExeName)+ExtractFileName(Application.ExeName));
End;
teste.CloseKey;
FreeAndNil(teste);
End;

[color=red:57e8081145]PRONTO.. AGORA CHAME A PROCEDURE NO EVENTO QUE LHE FOR MELHOR[/color:57e8081145]


GOSTEI 0
Henry

Henry

12/07/2003

Ce tem a Tregistry.dcu ai???


GOSTEI 0
Maicongabriel

Maicongabriel

12/07/2003

É apenas ´Registry´
[]´s


GOSTEI 0
Henry

Henry

12/07/2003

Eu reparei, brigadão.


GOSTEI 0
POSTAR