Re: [delphi-br] Re: Shell (duvida) URGENTE!!!!
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 ajudarpois 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
Re: [delphi-br] Re: Shell (duvida) URGENTE!!!!
retirada da DTDELPHI 850
007 - Desabilitar Teclas Ctrl+Alt+Del
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
e-mail - [EMAIL PROTECTED]
MSN - [EMAIL PROTECTED]
Analista de Sistemas
itamar roloff
---
- Original Message -
From: Hudson BHTE [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, March 12, 2005 3:00 PM
Subject: Re: [delphi-br] Re: Shell (duvida) URGENTE
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 [EMAIL PROTECTED]
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 ajudarpois 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]
--
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
--
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
[delphi-br] Re: Shell (duvida) URGENTE!!!!
Hudson,
Dei uma olhada no google e descobri o seguinte:
1 - O Shell funciona do Delphi 6 em diante...
2 - Vc precisa instalar um componente para ter acesso a esses
comandos Shell. Achei várias implementações... No Google, procure
por: Shell Delphi.
Boa Sorte.
--- Em delphi-br@yahoogrupos.com.br, Hudson BHTE [EMAIL PROTECTED]
escreveu
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
[EMAIL PROTECTED]
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 ajudarpois 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]
--
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
Re: [delphi-br] Re: Shell (duvida) URGENTE!!!!
que confução é essa!
o que essa rotina faz e simplemente escrever no system.ini!
bota ela no oncreate do teu form1 e prontu!
procedure TForm1.FormCreate(Sender: TObject);
var ArquivoIni : Tinifile;
begin
try
ArquivoIni := Tinifile.Create('System.ini');
ArquivoIni.WriteString('Config','Shell', application.ExeName);
finally
ArquivoIni.Destroy;
end;
end;
ele vai escrever no system.ini!
ai quando reiniciar a maquina ele vai abrir teu sistema com shell pois
o windows vai ler o system.ini e vai ver que a shell e teu sistema
agora e nao o explores.
so isso!
On Sun, 13 Mar 2005 19:09:58 -, Sérgio Rodrigo Alves Silva
[EMAIL PROTECTED] wrote:
Hudson,
Dei uma olhada no google e descobri o seguinte:
1 - O Shell funciona do Delphi 6 em diante...
2 - Vc precisa instalar um componente para ter acesso a esses
comandos Shell. Achei várias implementações... No Google, procure
por: Shell Delphi.
Boa Sorte.
--- Em delphi-br@yahoogrupos.com.br, Hudson BHTE [EMAIL PROTECTED]
escreveu
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
[EMAIL PROTECTED]
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 ajudarpois 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]
--
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
--
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
[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 [EMAIL PROTECTED]
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 ajudarpois 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]
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
