блокировка безопасного режима

[DeDoK]

Доброй ночи. С Рождеством вас!)
Подскажите плиз как сделать так чтобы моя программа работала и в безопасном режиме? так как любителей получить доступ к компу за время поего отсутствия много( обычную работу Windows блокирую, но программа снимается через настройку системы в безопастном режиме
подскажите как сделать?

[raxp]

сервисом делайте...
еще, вы забываете про загрузочные флеш и диски.

[DeDoK]

а проще решений нет? сервис никогда не писал( флеш никак и диски тоже. их вытащить труда не представляет. на каком то форуме наталкивался на иньекцию в експлорер но там настолько туманно описано было(

[Terran]

Если нужно заблокировать безопасный режим, то можете скачать модуль WinBlockTerr. Там есть функция для блокировки и не только. Скачать можно здесь: http://programmersforum.ru/showthread.php?t=54664

[raxp]

проще решений? опломбировать комп и не включать, то бишь ограничить физический доступ... серъезно. Как собираетесь отключить загрузку с флешек (ну разве-что мать старая и не поддерживает или раъемчики поубираете, тогда да)? тут никакая блокировка и иньекции рядом не стояли.

[DeDoK]

Terran, не спорю, модуль классный. а как насчет лечения?заблокировал а как тогда разблокировать?

[DeDoK]

а) сорри не доглядел) оно ж boolean) тему можно закрывать) всем спасибо

[Zloy2T]

DeDoK, поделись плиз кодом! Я попробовал вот такой:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, Types, StdCtrls;

type
DWORD = Types.DWORD;
{$EXTERNALSYM DWORD}

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Reg: TRegistry;
  Block: boolean;
implementation

{$R *.dfm}


Const
{$EXTERNALSYM HKEY_CURRENT_USER}
HKEY_CURRENT_USER = DWORD($80000001);
{$EXTERNALSYM HKEY_LOCAL_MACHINE}
HKEY_LOCAL_MACHINE = DWORD($80000002);

procedure TForm1.Button1Click(Sender: TObject);
begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Control',True);
If Block Then
Begin
Reg.MoveKey('SafeBoot','SystemNls',True);
Reg.Free;
End
Else
Begin
Reg.MoveKey('SystemNls','SafeBoot', True);
Reg.Free;
End;
Except
Reg.Free;
End;
End;
procedure TForm1.Button2Click(Sender: TObject);
begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Control',True);
If Block Then
Begin
Reg.MoveKey('SafeBoot','SystemNls',True);
Reg.Free;
End
Else
Begin
Reg.MoveKey('SystemNls','SafeBoot', False);
Reg.Free;
End;
Except
Reg.Free;
End;
End;

end.

Скомпилироваться он смог, но вот в безопасный режим я все равно заходил. Ребя понимаю, что возможно туплю, но прошу помощи.

[bitSoft]

Сообщение от Terran

Если нужно заблокировать безопасный режим, то можете скачать модуль WinBlockTerr. Там есть функция для блокировки и не только. Скачать можно здесь: http://programmersforum.ru/showthread.php?t=54664

ya ne po teme no...
izvini a ne proshe bilo pisati 2 stroki chem 10

v mesto :

If Block Then
Begin
Reg.WriteInteger('NoDesktop',1);
Reg.Free;
End
Else
Begin
Reg.WriteInteger('NoDesktop',0);
Reg.Free;
End;

tak :

Reg.WriteInteger('NoDesktop',Integer(Block));
Reg.Free;

i vsio, ispolzuvai blok With Reg do
Pomogaet...
ishio raz izvini, eto prosta ya tebe tak skazal

[Zloy2T]

bitSoft можешь код полностью дать, если не сложно?