www.pudn.com > 2khotkey.rar > test.pas

unit test; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    Button2: TButton; 
    Label1: TLabel; 
    Button3: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure Button3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
function SetKeyBoardUnEnabled:boolean;stdcall external 'KeyBoardHook.dll'; 
function SetKeyBoardEnabled:boolean;stdcall external 'KeyBoardHook.dll'; 
var 
  Form1: TForm1; 
   hwnd:THandle; 
implementation 
 
uses func; 
 
{$R *.DFM} 
 
procedure TForm1.Button1Click(Sender: TObject); 
var sTemp:STRING; 
 
begin 
  hwnd:=Findwindow('shell_TrayWnd',nil); 
  if hwnd<>0 then showwindow(hwnd,SW_HIDE); 
  setKeyboardUnenabled; 
  sTemp:=ExtractFilePath(Application.ExeName)+'Testdll.dll'; 
  IF FuGinaLock(sTemp) THEN 
    BEGIN 
    ShowMessage('WIN2K Ctrl+alt+del屏蔽成功'); 
    Button2.Enabled:=TRUE; 
    Button1.Enabled:=False; 
    END 
  ELSE 
    BEGIN 
    ShowMessage('WIN2K Ctrl+alt+del屏蔽失败'); 
    Button2.Enabled:=False; 
    Button1.Enabled:=TRUE; 
    END; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
 showwindow(hwnd,SW_SHOW); 
 setKeyboardenabled; 
  IF FuGinaUnLock() THEN 
    BEGIN 
    ShowMessage('解除屏蔽成功'); 
    Button2.Enabled:=FALSE; 
    Button1.Enabled:=TRUE; 
    END 
  ELSE 
    BEGIN 
    ShowMessage('解除屏蔽失败'); 
    Button2.Enabled:=TRUE; 
    Button1.Enabled:=FALSE; 
    END; 
end; 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
IF Button1.Enabled THEN Exit; 
 setKeyboardenabled; 
  IF FuGinaUnLock() THEN 
    BEGIN 
    ShowMessage('解除屏蔽成功'); 
    Button2.Enabled:=FALSE; 
    Button1.Enabled:=TRUE; 
    END 
  ELSE 
    BEGIN 
    ShowMessage('解除屏蔽失败'); 
    Button2.Enabled:=TRUE; 
    Button1.Enabled:=FALSE; 
    END; 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
close; 
end; 
 
end.