200分，请问屏蔽系统ALT+F4热键和不响应鼠标左右键的方法？(200分)

Iveny · 2002-01-11

请问怎样屏蔽系统ALT+F4热键 还有，怎样使系统不响应鼠标左右键的方法（就是使点击鼠标左右键都没反应，而鼠标却可以动）？ 请给出完整例子，使用程序完成，不修改注册表，谢谢！

vine · 2002-01-11

你可以在你的程序里面设一个全局热键呵 就是ALT+F4 这样在你的程序里面截获这个按键消息 再把它干掉不就行了吗 举个例子： HotKeyId: Integer;     procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; procedure TForm1.FormCreate(Sender: TObject); begin   HotKeyId := GlobalAddAtom('MyHotKey') - $C000;   RegisterHotKey(Handle, hotkeyid, 0, 49); end; procedure TForm1.HotKeyDown(var Msg: Tmessage); begin   if (Msg.LParamHi = 49) then   begin     keybd_event(57, MapVirtualKey( 57, 0 ), 0 , 0 );     keybd_event(57, MapVirtualKey( 57, 0 ), KEYEVENTF_KEYUP , 0 );   end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   UnRegisterHotKey(handle, HotKeyId); end;

不懂编程 · 2002-01-11

下面这个例子截获了所有键盘的按键消息并转发给edit1,你试试，也许对你有所帮助：） procedure TForm1.appmsg(var msg:TMsg;var handled:boolean); begin   if ((msg.message = WM_KEYDOWN) and (msg.hwnd<>Edit1.Handle)) then         begin     SendMessage(Edit1.Handle,257,msg.wParam,msg.lParam);     SendMessage(Edit1.Handle,258,msg.wParam,msg.lParam);     SendMessage(Edit1.Handle,280,msg.wParam,msg.lParam);   end; end; procedure TForm1.FormShow(Sender: TObject); begin   Application.OnMessage := appmsg; end;

Slong · 2002-01-11

看一下能否帮到你（要用Form2.ShowSystemModal的方法来显示Form2）： unit Unit2; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   extctrls, StdCtrls; type   TForm2 = class(TForm)     CheckBox1: TCheckBox;     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);   private     { Private declarations }   public     { Public declarations }     function ShowSystemModal: Integer;   end; var   Form2: TForm2; implementation {$R *.DFM} procedure SetKeyboardAndTaskbarSwitching(Enable: Boolean); var   OldVal: Bool; const   TaskBarWnd: HWnd = 0; { Task bar window handle }   ShowFlags: array[Boolean] of Integer = (sw_Hide, sw_ShowNoActivate); {$ifdef Windows}   spi_ScreenSaverRunning = 97; {$endif} begin   SystemParametersInfo(spi_ScreenSaverRunning, Word(not Enable), @OldVal, 0); {$ifdef Win32}   if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then {$else}   if GetWinFlags and $4000 = 0 then {$endif}   begin     if TaskBarWnd = 0 then       TaskBarWnd := FindWindow('Shell_TrayWnd', nil); { Find task bar }     ShowWindow(TaskBarWnd, ShowFlags[Enable]); { Hide/show task bar }   end end; function TForm2.ShowSystemModal: Integer; var   Desktop: TForm;   DesktopDC: HDC; begin   Desktop := TForm.CreateNew(nil);   try     { Clear form seems to make less flicker }     Desktop.Brush.Style := bsClear;     Desktop.WindowState := wsMaximized;     Desktop.BorderStyle := bsNone;     DesktopDC := GetWindowDC(GetDesktopWindow);     try       with TImage.Create(Desktop) do       begin         Align := alClient;         Picture.Bitmap.Height := Screen.Height;         Picture.Bitmap.Width := Screen.Width;         BitBlt(Canvas.Handle, 0, 0, Screen.Width,           Screen.Height, DesktopDC, 0, 0, srcCopy);         Parent := Desktop;       end     finally       ReleaseDC(GetDesktopWindow, DesktopDC)     end;     Desktop.Show;     { Ensure when anyone clicks on what looks like }     { another window, all they get is a beep }     Desktop.Enabled := False;     SetKeyboardAndTaskbarSwitching(False);     Result := ShowModal;     SetKeyboardAndTaskbarSwitching(True)   finally     Desktop.Free   end; end; procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   CanClose := CheckBox1.Checked; end; end.

coolbaby · 2002-01-11

你说的ALT+F4是指对你的程序，还是指对整个系统

Iveny · 2002-01-11

对整个系统，如果不能，对我的程序也可以！ 但屏蔽鼠标的点击，就是整个系统！

xyf2001721 · 2002-01-11

Iveny · 2002-01-12

请问有人知道怎样使系统不响应鼠标左右键的方法 （就是使点击鼠标左右键都没反应，而鼠标却可以动）？

vine · 2002-01-12

对整个系统，用我的方法应该是可以的呵！ 不过你的另一个问题我就不知道如何解决了

bubble · 2002-01-12

如果你只需要屏蔽你的程序,那么可以把窗体KeyPreview:=true; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin   if (key = VK_F4) and (Shift = [ssAlt]) then     Key := 0; end; 这样看起来最简单. 屏蔽鼠标左键可以在VCL的MouseDown添加releasecapture; 整个系统就不知道了,但是你可以把鼠标活动范围限制在某一范围内, 比如说你的窗体.

Iveny · 2002-01-13

有没有系统屏蔽鼠标点击的API？

SoftBoy · 2002-01-13

你要屏蔽鼠标点击ALT+F4这项吗？如果是，那么你使ALT+F4菜单变灰即可。 在formcreate里写 enablemenuitem(getsystemmenu(hanlde,false),Sc_close,MF_grayed)； 这句语句将使form右上角的叉灰掉，即ALT+F4灰掉了，鼠标也就点击无效。

Iveny · 2002-01-13

不是，我要屏蔽系统的所有鼠标点击操作！！

yyxhcf · 2002-01-13

做一个系统全局的鼠标钩子，可以实现对系统所有鼠标操作进行监控。 键盘钩子也同理。 例子如下，我没试过。  分数给不给由你啦，呵呵：) 在Windows系统中提供了一种系统消息挂钩的(Message hook)功能，使用消息挂钩，可以实时监视处理系统中的各种消息。很多鼠标增强软件就是利用消息挂钩来拦截所有的鼠标消息进行处理的。 要设置鼠标消息挂钩，一般

先建立一个使用鼠标消息挂钩的动态连接库(DLL)文件，然后就可以在其它程序中使用这个DLL文件处理鼠标消息。 下面的程序介绍通过鼠标消息挂钩监视鼠标消息，从而实现类似于一些鼠标增强软件一样的使窗口上下左右滚动的功能。 1．建立动态连接库 选择菜单 File|New ，选择DLL产生一个DLL模版，保存为 MHook.Dpr //MHook.Dpr源程序 library MHook; uses SysUtils, Classes, hkproc in 'hkproc.pas'; exports EnableMouseHook, DisableMouseHook; begin hNextHookProc:=0; procSaveExit:=ExitProc; ExitProc:=@HotKeyHookExit; end. 再选择菜单 File|New ，选择Unit建立一个Pas文件，保存为 HKProc.pas //HKProc.pas源程序 unit hkproc; interface uses Windows,Messages; const Move_Up = 0; Move_Down=1; Move_Left=2; Move_Right=3; var hNextHookProc:HHook; procSaveExit

ointer; M_Direct:Integer; LPoint:TPoint; NowWindow:Integer; function MouseProc(iCode:Integer;wParam:WPARAM; lParam

ointer):LRESULT; stdcall;export; function EnableMouseHook(WndHandle:integer):BOOL;export; function DisableMouseHook:BOOL;export; function GetDirect(FPoint : TPoint;LPoint : TPoint):integer; procedure HotKeyHookExit;far; 　 implementation //GetDirect函数根据光标的移动决定窗口滚动的方向。 function GetDirect(FPoint : TPoint;LPoint : TPoint):integer; var iWidth,iHeight:integer; begin iWidth:=LPoint.x-FPoint.x; iHeight:=lPoint.y-FPoint.y; Result:=-1; if ((iWidth=0)or(iHeight=0))then exit; if ((abs(iWidth) div abs(iHeight))>=2) then if iWidth<0 then //Move to left Result:=Move_Left else Result:=Move_Right else if ((abs(iHeight) div abs(iWidth))>=2) then if iHeight<0 then //Move to top Result:=Move_Up else Result:=Move_Down; end; function MouseProc(iCode:Integer;wParam:WPARAM; lParam

ointer):LRESULT; stdcall;export; var pMouse:^MOUSEHOOKSTRUCT; l:integer; begin //如果用户按下鼠标右键同时Scroll Lock键为按下状态则 //滚动窗口。 if ((wParam=WM_RBUTTONDOWN) and Boolean(GetKeyState(145))) then begin pMouse:=lParam; l:=GetDirect(lPoint,pMouse.pt); if l>=0 then M_Direct:=l; lPoint:=pMouse.pt; NowWindow:=WindowFromPoint(lPoint); if M_Direct=Move_Up then SendMessage(NowWindow,WM_VSCROLL,SB_PAGEUP,0) else if M_Direct=Move_Down then SendMessage(NowWindow,WM_VSCROLL,SB_PAGEDOWN,0) else if M_Direct=Move_Left then SendMessage(NowWindow,WM_HSCROLL,SB_PAGELEFT,0) else if M_Direct=Move_Right then SendMessage(NowWindow,WM_HSCROLL,SB_PAGERIGHT,0); Result:=1; exit; end else if ((wParam=WM_RBUTTONUP) and Boolean(GetKeyState(145))) then Result:=1 else begin Result:=0; if iCode<0 then begin Result:=CallNextHookEx(hNextHookProc,iCode,wParam, integer(lParam)); Exit; end; end; end; function EnableMouseHook(WndHandle:integer):BOOL;export; begin GetCursorPos(lPoint); Result:=False; if hNextHookProc<>0 then exit; //设置Mouse hook hNextHookProc:=SetWindowsHookEx(WH_MOUSE,@MouseProc, Hinstance,0); Result:=hNextHookProc<>0; end; function DisableMouseHook:BOOL;export; begin if hNextHookProc<>0 then begin UnHookWindowsHookEx(hNextHookProc); hNextHookProc:=0; end; Result:=hNextHookProc=0; end; procedure HotKeyHookExit; begin if hNextHookProc<>0 then DisableMouseHook; ExitProc:=procSaveExit; end; end. 在菜单中选择 Project|Build MHook建立DLL文件。 2．建立程序调用动态连接库 在这里我们还是使用Delphi建立程序，当然也可以使用诸如VB等调用动态连接库。 在菜单中选 File|New Application建立一个新程序，将工程文件保存为Project1.dpr //project1的源程序 program Project1; uses Forms, Sample1 in 'Sample1.pas' {Form1}; {$R *.RES} begin Application.Initialize; //隐藏窗口 Application.ShowMainForm := False; Application.CreateForm(TForm1, Form1); Application.Run; end. 将Form1的源程序文件保存成Sample1.pas //Form1的源程序 unit Sample1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ImgList,ShellApi, ExtCtrls; const WM_ICONMESSAGE=WM_USER+$100; type TForm1 = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); private procedure WMBarIcon(var Message:TMessage);message WM_ICONMESSAGE; public end; function EnableMouseHook(WndHandle:integer):BOOL;external 'MHook.DLL'; function DisableMouseHook:BOOL;external'MHook.DLL'; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMBarIcon (var Message:TMessage); begin //用户双击任务栏图标则关闭程序 if Message.LParam = WM_LBUTTONDBLCLK then close; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var lpData

NotifyIconData; begin //删除任务栏图标 lpData := new(PNotifyIconDataA); lpData.cbSize := 88;//SizeOf(PNotifyIconDataA); lpData.Wnd := Form1.Handle; lpData.hIcon := Form1.Icon.Handle; lpData.uCallbackMessage := WM_ICONMESSAGE; lpData.uID :=0; lpData.szTip := '鼠标演示'; lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; Shell_NotifyIcon(NIM_DELETE,lpData); dispose(lpData); //解除Mouse hook DisableMouseHook; end; procedure TForm1.FormCreate(Sender: TObject); var lpData

NotifyIconData; begin EnableMouseHook(Form1.Handle); Form1.Visible := False; lpData := new(PNotifyIconDataA); lpData.cbSize := 88;//SizeOf(PNotifyIconDataA); lpData.Wnd := Form1.Handle; lpData.hIcon := Form1.Icon.Handle; lpData.uCallbackMessage := WM_ICONMESSAGE; lpData.uID :=0; lpData.szTip := '鼠标演示'; lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; Shell_NotifyIcon(NIM_ADD,lpData); dispose(lpData); end; end. 运行程序，按下Scroll Lock键使其有效，将光标移动到文本窗口中（如IE、Word），移动鼠标，点击鼠标右键，窗口就可以依上一次移动的方向滚动。 利用上面的原理，将程序做一些改动，就可以象专业的鼠标增强程序一样做出例如缩放窗口，运行程序等很多鼠标增强效果来。 上面的程序在Windows95,Delphi4.0下运行通过。

warket · 2002-01-26

太麻烦了，如果只是要让程序不能关闭可以在onclose中加入cation：=canone; 右键也很简单，放一个空的popmenu然后....

tseug · 2002-01-26

参考下面的代码吧 var   hwndHandle : THANDLE;   hMenuHandle : HMENU; begin   hwndHandle := FindWindow(nil, 'Untitled - Notepad');   if (hwndHandle <> 0) then     begin     hMenuHandle := GetSystemMenu(hwndHandle, FALSE);     if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);     end; end;

淡淡的笑 · 2002-01-26

学习..

pengyi007 · 2003-03-26

look it

freeskying_sy · 2003-03-26

该说的别人都说了

200分，请问屏蔽系统ALT+F4热键和不响应鼠标左右键的方法？(200分)

Iveny

Unregistered / Unconfirmed

vine

Unregistered / Unconfirmed

不懂编程

Unregistered / Unconfirmed

Slong

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

xyf2001721

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

vine

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

SoftBoy

Unregistered / Unconfirmed

Iveny

Unregistered / Unconfirmed

yyxhcf

Unregistered / Unconfirmed

warket

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

pengyi007

Unregistered / Unconfirmed

freeskying_sy

Unregistered / Unconfirmed

Similar threads