Anwendung als exclusive Shell eintragen

[Light]

Mit dieser Funktion kann man seine eigene Anwendung als Exclusive Shell eintragen.

Normalerweise hat der Explorer diesen Eintrag belegt.
Wenn man jetzt seine Eigenen Anwendung einträgt dann wird nur diese (auf dem Konto) Gestartet.
Kein Explorer und Co im Hintergrund...

Achtung : Diese Procedure trägt beim wiederherstellen des Normalstatus nur "explorer.exe" ein.
Es wird also nicht ein anderes Programm was eventuell vorher drin stand wieder eingetragen...

ACHTUNG2:
Ich empfehle euch diesen Code auf einem Test-Konto zu Testen um nicht Euer Standard Konto zu "zerschießen" falls euer Programm sich anders Verhält als erwartet!

Delphi-Quellcode:

...

uses  Registry;

...

procedure TFHaupt.EXShell(Ja:Boolean);
var
  Reg: TRegistry;
  Anw: String; // Einzutragende Anwendung
begin

// Eigene Anwendung oder Explorer?
  if Ja
  then
    begin
      Anw := Application.ExeName;
    end
  else
    begin
      Anw := 'explorer.exe';
    end;


  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\Winlogon', True) then
    begin
      Reg.WriteString('Shell',Anw);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;

end;

Dies Ist der Thread zum Thema

Leuchtende Grüße

Stefan

alias Light