Como fazer uma "Shell": Dar prioridade à nossa aplicação no sistema

[Mikas]

Para dizer ao Windows que a partir de agora a shell é a nossa aplicação e não o explorer.exe, podemos fazer uma coisa deste género!!!

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"!!!