dzięki za odpowiedzi. Może podam przykłady z kodem, żebyśmy się dobrze zrozumieli.
procedure TForm1.Menadzer(wlacz: Boolean);
var reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
if wlacz = True then reg.WriteString('DisableTaskMgr', '1')
else if wlacz = False then reg.DeleteValue('DisableTaskMgr');
reg.CloseKey;
reg.Free;
end;
procedure TForm1.AutoRun(wlacz:Boolean);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
if wlacz=true then
if ValueExists('SERWISK')=false then
WriteString('SERWISK' ,Application.ExeName);
if wlacz=false then
if ValueExists('SERWISK') then DeleteValue('SERWISK');
CloseKey;
Free;
end;
end;
Te procedury wstawiają/usuwają program do AutoRuna i blokują/odblokowują Menadżera. Na komputerze jest założone konto z ograniczeniami.