如何分别封锁Ctrl+Alt+Del和其他的快捷键（如Alt+Tab）

[PoolD]

如标题。
用SystemParametersInfo(SPI_SETSCREENSAVERRUNNING,1,nil,0);会将所有的快捷键封锁，并且不能在NT下使用。
那么是否有其他的方法？
如果问题很复杂，可以再加分。

[Michaelyfj]

关注...

[govy]

关注

[govy]

关注

[saoren]

如果能把Windows的消息都给弄过出，就有戏了，那我就可以控制windows,不过还不知道怎样把
windows的注册的热键消息也搞过来，在我的程序中处理后，再交给windows.
不过这个你试试：

[saoren]

public
procedure WndProc(var Message: TMessage); override;
procedure TForm1.WndProc(var Message: TMessage);
var msg:DWord;
begin
msg:=Message.msg;
case msg of
WM_COMMAND:// youself process
WM_LBUTTONUP:// youself process
WM_HOTKEY:// youself process
...
end;
inherited WndProc(Message);
end;

[Kingron]

倒是可以拦截Alt+F4：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
tools;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
aatom:atom;
procedure hotkey(var msg:tmessage);message wm_hotkey;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
aatom:=globaladdatom('hot key');
if not RegisterHotKey(handle,aatom,mod_alt,vk_tab) then
showerrormessage;
end;

procedure TForm1.hotkey(var msg:tmessage);
begin
if (msg.LParamHi=VK_F4) and (msg.LParamLo=MOD_ALT) then
begin
SetForegroundWindow(handle);
showmessage('You Press Alt+F4');
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,aatom);
globalDeleteatom(aatom);
end;

end.

[saoren]

to Kingron
拦不了。copy 过来的，不行，根本不响应TForm1.hotkey(var msg:Tmessage);

[hunterzhang]

listening...

[whoo]

Try Hook SystemKey.

[zheng]

procedure TForm1.FormCreate(Sender: TObject); 　
begin 　
var 　
tmp : integer;
　 begin
　 tmp := 0;
　 //屏蔽 Alt-Tab
　 SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0);
　 //屏蔽 Ctrl-Alt-Del
　 SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0); 　
end;
end;

关注~~~~~~~~~~~~~~~~~~

[netsong]

同意zheng，恢复用SystemParametersInfo(spi_screensaverrunning,0,@temp,0);

[alwssoan]

用zheng的方法最干脆

[Kingron]

可以，当时我测试通过，后来改动了一下，有个地方写错了：
procedure TForm1.FormCreate(Sender: TObject);
begin
aatom:=globaladdatom('hot key');
if not RegisterHotKey(handle,aatom,mod_alt,vk_tab) then
showerrormessage;
end;

将Vk_tab改成Vk_F4就可以了。//呵呵，不好意思...........

[Kingron]

2 alwssoan：
人家已经把问题说得很清楚了，请看清楚题目！