Iniciar programa junto com windows

Delphi

25/01/2004

: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 esconde o desktop da maquina.
Dai quando a pessoa for trabalhar no computador ela digita a senha novamente e pronto fecha o programa.
Bom o problema é o ceguinte este programinha tem q iniciar junto com o windows ou seja quando a pessoa ligar a maquina assim q o windows for iniciado este programa automaticamente escondera o desktop dele.
Sendo assim ninguem podera fazer nada no computador a não ser q tenha a senha.
Se alguem tiver um codigo fonte ou puder me esplicar como escrever este codigo, agradeceria muito.
Desde já agradeço.

Meu E_Mail: jackell_alves@hotmail.com


Vitoreduardo

Vitoreduardo

Curtidas 0

Respostas

Fábio Borges

Fábio Borges

25/01/2004

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;



GOSTEI 0
Vitoreduardo

Vitoreduardo

25/01/2004

[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.


GOSTEI 0
Robotizar

Robotizar

25/01/2004

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


GOSTEI 0
Crash

Crash

25/01/2004

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+


GOSTEI 0
Vitoreduardo

Vitoreduardo

25/01/2004

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+


Valeu pelo codigo.
Já estava quebrando a cabeça com isso.


GOSTEI 0
POSTAR