Thread: I can't unlock the keyboard(I can lock all buttons but I can't unfreeze all)

I can't unlock the keyboard(I can lock all buttons but I can't unfreeze all)

I'm making a specialty for my rat

for lock remote computers keyboard. I'm success in locking the keyboard.
but I can't unfreeze the keyboard(until close my software).


I checked the sources times and times
with break points...

I couldn't see any fault.

if anyone can help me for fix it it can be good for me.


.dpr is there:=

Code:

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.

unit1.pas is there:=

Code:

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.

unit2.pas is there:=

Code:

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.

unit1.dfm is there

Code:

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

By the sounds of it, you just ripped the code without even having the slightest clue as to how it works...
=\

And the code you gave us doesn't help at all.

Originally Posted by mjrod5

By the sounds of it, you just ripped the code without even having the slightest clue as to how it works...
=\

And the code you gave us doesn't help at all.

if you can't find any solution
don't write a message for only raise up your message count.

that's not mather for make your message count 2000-3000 there is inportant to make a good knowladge....

if you can't find any solution
don't write a message for only raise up your message count.

that's not mather for make your message count 2000-3000 there is inportant to make a good knowladge....

I don't post to increase my post count.. >.<

And the code you gave us doesn't help at all.

In case you didnt read right i AM trying to help, i just showed my opinion.