boa tarde...
cara eu tenho a mesma duvida que vc, mas a minha é mais complicada. tipo.. eu
tb fico tentando descobrir como eles conseguem esses eventos, sou iniciante e
uma das minhas duvida é isso ai tambem. então se descobrir me da um toque ai,
abraços....
Hudson BHTE <[EMAIL PROTECTED]> wrote:
uma dica de codigo.........
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','Myprog.exe');
fynally
ArquivoIni.Destroy;
end;
end;
----- Original Message -----
From: Sérgio Rodrigo Alves Silva
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, March 12, 2005 1:00 AM
Subject: [delphi-br] Re: Shell (duvida) URGENTE!!!!
Cara, procurei, procurei e não achei nada no Delphi em relação a esse
tal de: "ChangeShell".
Como vc ficou sabendo dele?
--- Em delphi-br@yahoogrupos.com.br, "Hudson BHTE"
escreveu
> Gente estou com este codigo:
>
> procedure Tform1.ChangeShell(String programa);
> var
> ArquivoIni : Tinifile;
> begin
> try
> ArquivoIni := Tinifile.Create('System.ini');
> ArquivIni.WriteSection('Config','Shell','Myprog.exe');
> fynally
> ArquivoIni.Destroy;
> end;
> end;
>
> ele faz o programa ser exclusivel..........a duvida é a
seginte.....onde esta este evento ChangeShell e pq quando tento
criar este.....ele da codigo de erro.....de execução.....
>
> tentei colocar.....em outro evento como ONSHOW......mas deu erro de
execução no (Tinifile).......logo no começo.......
>
> alguem pode me ajudar........pois tenho q entregar isso na
segunda!!!!!!
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005
[As partes desta mensagem que não continham texto foram removidas]
---------------------------------
Yahoo! Mail - Com 250MB de espaço. Abra sua conta!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
