Enable/Disable Task Manager(CTRL+ALT+DELETE)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
CpS
Üye
Mesajlar: 15
Kayıt: 18 Tem 2005 09:15

Enable/Disable Task Manager(CTRL+ALT+DELETE)

Mesaj gönderen CpS »

Arkadaşalar aşağıdaki kod Görev Yöneticisi ve Bilgisayarı Kapat seçeneklerini Kullanıcının kullanmasını iptal eder...

Eğer ben Bunu yapamadım diyorsanız Başlat>Regedit Kullanarak aşağıdaki yolu takip edin Gerekli anahtarları ekleyin Ver komutunu kullanın.. Kolay Gelsin..



Kod: Tümünü seç

procedure EnableCTRLALTDEL(YesNo : boolean);
const
        sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';
begin
  with TRegistry.Create do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey(sRegPolicies+'\System\',True) then
    begin
      case YesNo of
        False:
          begin
            WriteInteger('DisableTaskMgr',1);
          end;
        True:
          begin
            WriteInteger('DisableTaskMgr',0);
          end;
      end;
    end;
    CloseKey;
    if OpenKey(sRegPolicies+\Explorer\',True) then
    begin
      case YesNo of
        False:
          begin
            WriteInteger('NoChangeStartMenu',1);
            WriteInteger('NoClose',1);
            WriteInteger('NoLogOff',1);
          end;
        True:
          begin
            WriteInteger('NoChangeStartMenu',0);
            WriteInteger('NoClose',0);
            WriteInteger('NoLogOff',0);
          end;
      end;
    end;
    CloseKey;
  finally
    Free;
  end;
end;
Cevapla