Rotina para tornar um programa shell do windows.

Question

Caros Colegas,

Tenho um sistema que funciona em quiosque multimidia, e gostaria de saber se algum de voc�s tem alguma rotina ou informa��o de como

Carnette · Answer

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;

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;