如何向系统发出 ctrl-alt-del 按键?(50分)

rosoncamping · 2001-05-07

看来很多人有这个要求，5.5至今已有3人提出。但问题好象很难解决。 可以肯定，用API的方式在Windows98是行不通的。 在WIndows  NT 下应该是可以实现的。但是，我试过N次，都fail. 其一： var HDesk_WL: HDESK; begin HDesk_WL := OpenDesktop ('Winlogon', 0, False, DESKTOP_JOURNALPLAYBACK); if (HDesk_WL <> 0) then begin {we have open the Winlogon Desktop so assign it to our thread} if (SetThreadDesktop (HDesk_WL) = True) then begin // Winlogon uses hotkeys to trap Ctrl-Alt-Del... PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, MAKELONG (MOD_ALT or MOD_CONTROL, VK_DELETE)); end end end; 其二：   SK_DEL = #249;   SK_SHIFT_DN = #250;   SK_SHIFT_UP = #251;   SK_CTRL_DN = #252;   SK_CTRL_UP = #253;   SK_ALT_DN = #254;   SK_ALT_UP = #255; procedure SendKeyString(Text: String); var    i: Integer;    Shift: Boolean;    vk, ScanCode: Word;    ch: Char;    c, s: Byte; const    vk_keys: Array[0..9] of Byte =       (VK_HOME, VK_END, VK_UP, VK_DOWN, VK_LEFT,        VK_RIGHT, VK_PRIOR, VK_NEXT, VK_INSERT, VK_DELETE);    vk_shft: Array[0..2] of Byte = (VK_SHIFT, VK_CONTROL, VK_MENU);    flags: Array[False..True] of Integer = (KEYEVENTF_KEYUP, 0); begin    Shift := False;    for i := 1 to Length(Text) do     begin      ch := Text;      if ch >= #250 then       begin        s := Ord(ch) - 250;        Shift := not Odd(s);        c := vk_shft[s shr 1];        ScanCode := MapVirtualKey(c,0);        Keybd_Event(c, Scancode, Flags[shift], 0);       end      else       begin        vk := 0;        if ch >= #240 then         c := vk_keys[Ord(ch) - 240]        else         if ch >= #228 then {228 (F1) => $70 (vk_F1)}          c := Ord(ch) - 116         else          if ch < #110 then           c := Ord(ch)          else           begin            vk := VkKeyScan(ch);            c := LoByte(vk);           end;        ScanCode := MapVirtualKey(c,0);        if not Shift and (Hi(vk) > 0) then { $2A = scancode of VK_SHIFT }         Keybd_Event(VK_SHIFT, $2A, 0, 0);        Keybd_Event(c,scancode, 0, 0);        Keybd_Event(c,scancode, KEYEVENTF_KEYUP, 0);        if not Shift and (Hi(vk) > 0) then         Keybd_Event(VK_SHIFT, $2A, KEYEVENTF_KEYUP, 0);       end;     end; end; procedure SendKeysToHandle(WindowHandle: hWnd; Text: String); begin   MakeWindowActive(WindowHandle);   SendKeyString(Text); end; 执行：SendKeysToHandle(HWAND_BROACAST,SK_CTRL_DN + SK_Alt_DN + SK_DEL ) fail ?!!!! why ???

JohnsonGuo · 2001-05-07

listen

baby_god · 2001-06-24

>>

smilboy · 2001-09-10

creation-zy · 2001-09-10

好像以前的讨论结果是——这三个组合键不是消息，已经被系统接管了，不可能简单的模拟。 在WinNT下也是不可能的（Win2K Advanced Server在登录之前必须让用户按下这个组合键， 如果可能被模拟...）。 VMware可以在一个操作系统中运行另一个操作系统，并且可以截获主系统中的ctrl-alt-del， 或者在模拟运行的子操作系统中模拟ctrl-alt-del。看来实现肯定是可以的，只不过要编底层 驱动了。

zv2000 · 2001-09-10

listen

byflyer · 2001-09-10

仔细看看MSDN吧！某些系统按键已经被系统自身完全接管了！简单模拟是无效的！ 你既然要向系统发出 ctrl-alt-del 按键信息，我想结果无非是要重启系统！ 如果是这样，又何必绕那么大的圈子呢？？？

gcq · 2001-09-10

creation-zy: WIN2K下，每次启动可以默认一个管理员帐号，跳过登录口令输入，那么这个是怎么通过的？ 注册表、文件？？ 谁知道！：）

xWolf · 2001-09-10

模拟按键Ctrl+Alt+Del是完全可行的，我看到过有程序模拟了Ctrl+Alt+Delete，主要是在系统里广 播消息WM_HOTKEY：PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, MAKELONG(MOD_ALT | MOD_CONTROL, VK_DELETE)) 问题的关键在于发消息的这个线程应该是属于WinLogon这个Desktop，所以，需要创建一 个线程来发这个消息。在线程发消息之前，需要用OpenDesktop("Winlongon",...)创建一个Desktop， 然后切换到这个创建好的Desktop。发完消息，再切换回原先的Desktop。 不过那个程序是C++写的，叫VNC，很有名的远程控制软件，http://www.uk.research.att.com/vnc/上 有源码下载的。

xianjun · 2001-09-10

我觉得肯定是可以的，因为微软的NETMEETING就有发送CTRL+ALT+DELETE三键的功能。

淡淡的笑 · 2001-09-10

用softice拦截各种消息看看...

沧海 · 2001-09-10

>>

maming · 2001-12-13

不用按这三个键，如何让那个按这三个键显示的“关闭程序”窗口出来?

meijang · 2002-01-22

好像在Win2000或NT下可以通过替换系统的GINA.DLL来实现。

Allen · 2002-01-22

xWolf的意见我非常赞成，模拟CTRL+ALT+DEL的完全可以的，PCANYWHERE，VNC就是现成的例 子，但用API来截获这三个键，虽不能说完全不可能，但至少是属于MS的未公开的API，因为 这三个键本来就是用来防止别人伪造登录窗口骗取密码的

xWolf · 2002-01-22

是的，如果要截获这个三个键，就要用Gina了，我没有试过

如何向系统发出 ctrl-alt-del 按键?(50分)

mycoolis2

Unregistered / Unconfirmed

rosoncamping

Unregistered / Unconfirmed

JohnsonGuo

Unregistered / Unconfirmed

baby_god

Unregistered / Unconfirmed

smilboy

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

zv2000

Unregistered / Unconfirmed

byflyer

Unregistered / Unconfirmed

gcq

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

沧海

Unregistered / Unconfirmed

maming

Unregistered / Unconfirmed

meijang

Unregistered / Unconfirmed

Allen

Unregistered / Unconfirmed

xWolf

Unregistered / Unconfirmed

Similar threads