请问有没有方法屏蔽键盘的输入？(50分)

I

Iveny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #1

就是说，想把键盘的所有键入都屏蔽掉，可以吗？

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #2

function BlockInput (fBlockInput : boolean) : DWord
stdcall
external 'user32.DLL'


{block input/ blockieren}

procedure TForm1.Button1Click(Sender: TObject)

begin
BlockInput(true)

end


{unblock input / Blockierung aufheben}

procedure TForm1.Button2Click(Sender: TObject)

begin
BlockInput(false)

end


Note: Requires Windows 98/2000 or later.

You can unblock input by pressing

CTRL+ALT+DEL
别人的东西,你看看有用吗?

 

南

南宫吹云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #3

onkeydown

key:=0

 

B

BigFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #4

同意南宫吹云的说法

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #5

首先,把你的窗体的KeyPreview设置成true,这点很重要.
然后在窗体的OnKeyPress
Key:=char(0);

 

I

Iveny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #6

可是，这样我用CTRL+ALT+SHIFT，一样可以关闭你的程序的啊？！

 

没

没理头号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #7

老兄啊！你要说清楚啊？
CTRL+ALT+SHIFT是系统级的了！
要用API！我以前程序里有，现在不知找不长得到1

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #8

TO Iveny：
onkeypress 事件:
key:=#0;

 

I

Iveny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #9

我指的是关闭系统热键的方法，
例如：CTRL+ALT+SHIFT、WIN+ESC、WIN+R、CTRL+ESC等，请问有什么方法？紧急！

 

S

snjat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #10

将Form的FormStyle属性设为fsStayOnTop
将Form的WindowState属性设为wsMaximized
在Form的OnCreate事件处理过程中为Windows发送一个屏幕保护程序正在运行的消息
当程序结束时清除屏幕保护程序运行标志。
示例代码：

procedure TForm1.FormCreate(Sender: TObject);
var
temp: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
end;

procedure Form1.OnClose(Sender: TObject
var Action: TCloseAction);

var
temp: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
end;

 

I

Iveny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #11

其他键都暂时解决了，剩下ALT+F4，请问怎样屏蔽ALT+F4？

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #12

需要捕捉WM_SYSCOMMAND消息，然后作出判断。
procedure WMSysCommand(var Msg: TMessage);
begin
if Msg.wParam <> SC_CLOSE then
inherited;
end;

 

I

Iveny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #13

TO：VINE,你的代码运行时出错：
[Error] Unit1.pas(26): This form of method call only allowed in methods of derived types


请问能否给个可用的例子？

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #14

该方法的窗体只允许在导出类型的方法中???

不会的呵
你是怎么调试的？

 

I

Iveny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #15

请给个完整屏蔽系统ALT+F4的例子好吗？

 

四

四库全书

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #16

这样屏蔽ALT+F4：
在Form 的KeyPress 中添加：
if (ssAlt in Shift) and (key = VK_F4) then key := 0;

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #17

win2k的系统健不行的

 

S

SoftBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #18

对四库全书提出的，稍做修改即可。
先把你的窗体的KeyPreview设置成true；然后在该窗体的onKeyDown事件写
if (ssAlt in Shift) and (key = VK_F4) then key := 0;