Iniciar programa junto com windows

Question

:D Ola! Galera estou desenvolvendo um programinha q esconde o desktop do pc com senha, ou seja quando a pessoa n�o estiver trabalhando com a maquina ela aciona este programa digita uma senha  e escond...

F�bio Borges · Answer

Ol� Jackell, primeiramente vc deve adicionar a unit [u:2bce62766f]registry [/u:2bce62766f]a clausula [b:2bce62766f]uses[/b:2bce62766f];

Depois coloque este c�digo no evento onCreate do seu form e pronto, a pr�xima vez que o windows iniciar o seu programa iniciar� junto. Dica: salve o projeto antes de rod�-lo.

procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
reg:TRegistry
begin
Reg:=TRegistry.Create;
S:=ExtractFileDir(Application.ExeName);
S2:=ExtractFileName(Application.ExeName);
S:=S+�\�+S2;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.Openkey(�Software\Microsoft\Windows\CurrentVersion\RunServices�,false); //Voc� pode mudar de RunServices para Run se achar melhor
reg.WriteString(Application.ExeName, s);
end;

Vitoreduardo · Answer

[quote:8f304b816d=�F�bio Borges�]Ol� Jackell, primeiramente vc deve adicionar a unit [u:8f304b816d]registry [/u:8f304b816d]a clausula [b:8f304b816d]uses[/b:8f304b816d];

Depois coloque este c�digo no evento onCreate do seu form e pronto, a pr�xima vez que o windows iniciar o seu programa iniciar� junto. Dica: salve o projeto antes de rod�-lo.

procedure TForm1.FormCreate(Sender: TObject);
var
s,s2:string;
reg:TRegistry
begin
Reg:=TRegistry.Create;
S:=ExtractFileDir(Application.ExeName);
S2:=ExtractFileName(Application.ExeName);
S:=S+�\�+S2;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.Openkey(�Software\Microsoft\Windows\CurrentVersion\RunServices�,false); //Voc� pode mudar de RunServices para Run se achar melhor
reg.WriteString(Application.ExeName, s);
end;

[/quote:8f304b816d]

Valeu pelo codigo.
funcionou perfeitamente.

Robotizar · Answer

n�o conhe�o seu prog mais j� to imaginando um bug dele... se o cara precionar aquela janelinha do windows no teclado mais E vai abrir o windows explorer e seu programa j� era...

Crash · Answer

Coloque o seguinte c�digo no OnCreate do Form:

Var
   numero: integer;
begin
   SystemParametersInfo(97,Word(true),@numero,0);
end;
{ Para habilitar � s� chamar a mesma fun��o com Word(false) }

Isso desabilitar� todos os comandos do windows no teclado, inclusive Ctrl+Alt+Del.

Cuidado com os teste, sempre fa�a os testes com a propriedade CanClose do OnCloseQuery igual a True. Caso contrario vc ter� que reiniciar seu pc.

t+

Vitoreduardo · Answer

[quote:a11e877ba7=�CrasH�]Coloque o seguinte c�digo no OnCreate do Form:[code:1:a11e877ba7]Var   numero: integer;begin   SystemParametersInfo(97,Word(true),@numero,0);end;{ Para habilitar � s� chamar a mesma fun��o com Word(false) }[/code:1:a11e877ba7]Isso desabilitar� todos os comandos do windows no teclado, inclusive Ctrl+Alt+Del.Cuidado com os teste, sempre fa�a os testes com a propriedade CanClose do OnCloseQuery igual a True. Caso contrario vc ter� que reiniciar seu pc.t+[/quote:a11e877ba7]Valeu pelo codigo.J� estava quebrando a cabe�a com isso....

F�rum Iniciar programa junto com windows #209208