GARANTIR DESCONTO

Fórum Como bloqueio meu sistema. #156714

29/04/2003

0

Estou tentar fazer com que quando meu micro inicialize, o sistema seja bloqueado e libere apenas um programa que eu determinar.
Por exemplo a calculadora, ou seja quando ligar meu micro quero ter acesso apenas a calculadora e mais nada.
Sei que no delphi é possivel fazer isso.
Se alguém puder me ajudar desde já agradeço.


Latrodectrus

Latrodectrus

Responder

Posts

29/04/2003

Marcelo.c

Exclusividade para o programa
Gostaria de saber como fazer para que, ao iniciar minha aplicacao Delphi, eu ´ desabilite ´ o shell do Windows (Explorer). Ou seja, o que eu preciso e´ de uma forma de fazer com que apos a minha aplicacao seja iniciada, o usuario nao tenha como alternar entre programas, acessar outros icones, etc

No System.ini você tem uma configuração como esta :

Shell=Explorer.exe

Basta trocar por

Shell=Myprog.exe

Ou usando delphi

procedure Tform1.ChangeShell(String programa);
var
ArquivoIni : Tinifile;
begin
try
ArquivoIni := Tinifile.Create(´System.ini´);
ArquivIni.WriteSection(´Config´,´Shell´,´[b:c4eac3fbe3]Myprog.exe[/b:c4eac3fbe3]´);
fynally
ArquivoIni.Destroy;
end;
end;

Substitua [b:c4eac3fbe3]Myprog.exe[/b:c4eac3fbe3] pelo programa desejado.


Responder

Gostei + 0

29/04/2003

Latrodectrus

Valeu pela ajuda era isso mesmo, mas como faço pra um micro executar essa rotina em um outro micro da rede?


Exclusividade para o programa Gostaria de saber como fazer para que, ao iniciar minha aplicacao Delphi, eu ´ desabilite ´ o shell do Windows (Explorer). Ou seja, o que eu preciso e´ de uma forma de fazer com que apos a minha aplicacao seja iniciada, o usuario nao tenha como alternar entre programas, acessar outros icones, etc No System.ini você tem uma configuração como esta : Shell=Explorer.exe Basta trocar por Shell=Myprog.exe Ou usando delphi procedure Tform1.ChangeShell(String programa); var ArquivoIni : Tinifile; begin try ArquivoIni := Tinifile.Create(´System.ini´); ArquivIni.WriteSection(´Config´,´Shell´,´[b:419b1d2a88]Myprog.exe[/b:419b1d2a88]´); fynally ArquivoIni.Destroy; end; end; Substitua [b:419b1d2a88]Myprog.exe[/b:419b1d2a88] pelo programa desejado.



Responder

Gostei + 0

29/04/2003

Marcelo.c

Agora de cabeça não me lembro, vou pesquisar e retorno caso algum colega ainda não tenha respondido, ok ?


Responder

Gostei + 0

29/04/2003

Latrodectrus

Eu me lembro que a sua solução funciona, pois eu já havia usado, apenas não lembrava, mas estou mexendo no XP, e no system.ini não tem o comando shell, sabe como faço isso no xp?
Agora de cabeça não me lembro, vou pesquisar e retorno caso algum colega ainda não tenha respondido, ok ?



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar