• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Mikas

Como fazer uma "Shell" -- Dar prioridade à nossa aplicacao no sistema

1 mensagem neste tópico

Para dizer ao Windows k a partir de agora a shell e a nossa aplicacao e nao o explorer.exe, podemos fazer uma coisa deste genero!!!

uses IniFiles;

function WinDir: string;        // funcao para devolver o dir onde esta instalado o windows
var
  MBuffer: array [1..128] of char;
  Resultado: Integer;
begin
  Resultado := GetWindowsDirectory(@MBuffer, 128);
  if ((Resultado > 128) or (Resultado = 0)) then
    WinDir := ''
  else
    WinDir := StrPas(@MBuffer);
end;

procedure ChangeShell;
var
  Ficheiro: TIniFile;
begin
  try
    Ficheiro.Create(WinDir+'\system.ini');
    Ficheiro.WriteString('Config', 'Shell', Application.ExeName);
  finally
    Ficheiro.Free;
end;

Para inverterem isto sera so apagar a seccao config ou mudar o nome do exe que esta associado a shell.

Para isto funcionar e obvio que teem de ter a vossa a aplicacao a correr, senao sera como se terminassem o explorer, o pc fica "parado no espaco"!!!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora