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