Fórum exclusividade para o meu programa #225812
13/04/2004
0
tentei o codigo abaixo, mas nao funcionou em delphi7:
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;
Mahdak
Curtir tópico
+ 0Posts
13/04/2004
Orlando Frade
Gostei + 0
13/04/2004
Orlando Frade
vc deve declarar uma [b:0151cef896]procedure[/b:0151cef896] na sessão privada q é: [i:0151cef896][b:0151cef896]procedure[/b:0151cef896] AppMsg(var Msg: TMsg; var Handled: Boolean);[/i:0151cef896]
no evento OnCreate do formulário principal que eu chamo de FormSenha você deve digitar o seguinte código:
ainda tá faltando desabilitar o Ctrl + Alt + Del q está em uma outra documentação. Mais tarde eu coloco aqui pra vc
Gostei + 0
13/04/2004
Orlando Frade
declare a variavel [b:50e047071e]OldValue : LongBool;[/b:50e047071e] no evento onCreate do formulário principal e dentro do procedimento coloque a seguinte linha:
[b:50e047071e]SystemParametersInfo(97, Word(True), @OldValue, 0);[/b:50e047071e]
Com isso vc desabilita o ctrl+alt+del, alt+tab + ctrl+esc.
Essa dica foi retirada do site da borland
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)