program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button6: TButton;
    Button7: TButton;
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type clas2= class
  private
  public
  protected
  end;

var
  Form1: TForm1;
  Hooked11: Boolean = False; // they are hook variants
  hKeyHook11: THandle = 0;   //---

implementation
           uses unit2,unit3;
{$R *.dfm}







procedure TForm1.Button6Click(Sender: TObject);
begin
kitlekeyboard;// we send a procedure for lock clipboard
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
ahdangelogner;// we call a procedure for unlock clipboard
end;          // but there is problems
              // I can't unlock the keyboard

end.

unit Unit2;


interface

 uses
 windows, registry;


function GetOS(): String;


implementation

//-------------------------------------
function GetOS(): String;
var
  osVerInfo: TOSVersionInfo;
begin
  Result:='Desconocido';
  osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  GetVersionEx(osVerInfo);
  case osVerInfo.dwPlatformId of
    VER_PLATFORM_WIN32_NT: begin
      case osVerInfo.dwMajorVersion of
        4: Result:='Windows NT 4.0';
        5: case osVerInfo.dwMinorVersion of
             0: Result:='Windows 2000';
             1: Result:='Windows XP';
             2: Result:='Windows Server 2003';
           end;
        6: Result:='Windows Vista';
      end;
    end;
    VER_PLATFORM_WIN32_WINDOWS: begin
      case osVerInfo.dwMinorVersion of
        0: Result:='Windows 95';
       10: Result:='Windows 98';
       90: Result:='Windows Me';
      end;
    end;
  end;
  if osVerInfo.szCSDVersion <> '' then
    Result := Result + ' ' + osVerInfo.szCSDVersion;
end;//---------------------------
//---------------------------------------


  


end.

object Form1: TForm1
  Left = 192
  Top = 110
  Width = 221
  Height = 134
  Caption = 'KLAVYE AYARLARI'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button6: TButton
    Left = 8
    Top = 8
    Width = 193
    Height = 33
    Caption = 'LOCK KEYBOARD'
    TabOrder = 0
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 8
    Top = 64
    Width = 193
    Height = 33
    Caption = 'UNLOCK KEYBOARD'
    TabOrder = 1
    OnClick = Button7Click
  end
end