Artigos Delphi Dicas - Exclusividade para o programa

Exclusividade para o programa

Ao iniciar a aplicação Delphi, você pode "desabilitar " o shell do Windows (Explorer). Ou seja, é preciso fazer com que após a aplicação ser iniciada, o usuário não tenha como alternar entre programas, acessar outros ícones, etc.

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

 

Shell=Explorer.exe

 

Basta trocar por

 

Shell=Myprog.exe

 

Ou usando o 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;