Zablokowanie cmd ( delphi)

[bosz123]

Witam all

Nie wiecie moze jaki jest kod na zablokowanie dostepu do cmd ??
:?

 

[Kornik52]

Jest.
1.Uruchamiasz edytor rejestru.
2.HCU/Software/Policies/
3. Nastepnie klikasz ppm na klucz Microsoft i z menu wyvierasz nowy polecenie Klucz. Nowemu obiektowi dajesz nazwe Windows. Nastepnie w taki sam soosob tworzysz nowy klucz wewnatrz Windows i nadajesz mu nazwe System
4.PPM klikasz na ostatni stworzony klucz i wybierasz Nowy> WartoscDWORD Obiektowi nadajesz nazwe DisableCMD.
5.Otwierasz stworzaona wartosc klikajac na nia podwojnie, pokazuje ci sie okno w pole "Dane Wartosci" wpisujesz 2 zamykasz rejestr uruchamiasz ponownie winde i wpisujec w cmd cos pojawia sie "Znak zachety wiersza polecenia zostal wylaczony przez administratora"
6. Za miast tej 2 mozesz wpisac:
0 // Zasada zabezpieczen nie jest skonfigurowana i uzytkownicy moza kozystac zarowno z wiersza polecen jaki plikow bat.
1 // Wiersz polecen jest calkowiie zablokowany. Uzytkownicy nie moga uruchamiac plikow Bat
2 // Wiersz polecen jest zablokowany, ale pliki Bat mozna wlanczac.

 

[moax]

Blokada CMD

Tutaj masz jak to zrobić w Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var

 Rejestr : TRegistry;

 Bufsize : Integer;

begin

 Bufsize := 2;

 Rejestr := TRegistry.Create;

 Rejestr.RootKey := HKEY_CURRENT_USER;

 Rejestr.CreateKey('SoftwarePoliciesMicrosoftWindowsSystem');

 Rejestr.WriteInteger('DisableCMD',bufsize);

 Rejestr.CloseKey;

 Rejestr.Free;

end;

Jak ktoś znalazł w tym jakiś błąd to niech poprawi 8)

 

[BolekTrojan]

Mi to nigdy nie chodzilo i teraz nawet tesh nie dziala