ExitWindows or ExitWindowsEx API function
解决方案 »
- ADODB数据库问题(delphi)
- 难道只有强迫才可以吗?以前用c++builder6,好往 delphi转化吗?
- 关于触发query的onCalcFields的问题,怎么也解决不了,大家帮我看看
- fei19790920(饭桶的马甲(抵制日货))请进,按下ctrl+alt+del后,hook失效!
- 关于使用adoconnection访问sql数据库而数据库关闭时产生异常的问题
- delphi 如何用vclzip控件创建自解压格式压缩文件
- 如何解决LIST INDEX OUT OF BOUNDS的问题(在线HELP)
- Win7 64位机器连SQL2008过一会连不上,提示用户sa失败
- 请问谁知道哪里有DELPHI5的中文版帮助??
- 各位大侠:怎样才能在桌面上建立一个快捷启动图标???
- Stringgrid的一个问题,分数马上给,绝不食言。
- TNMFTP编程下载时出现:socket send aborted,高分请教--在线等待
Declare Function SHShutDownDialog Lib "shell32" Alias "#60" _
(ByVal YourGuess As Long) As Longfunction SHShutDownDialog(dwGuess:DWORD):dword;stdcall;external 'shell32.dll' index 60
procedure TForm1.Button1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0:exitwindowsex(EWX_FORCE,0); //强行关机
1:exitwindowsex(EWX_LOGOFF,0); //注销
2:exitwindowsex(EWX_POWEROFF,0);//关机
3:exitwindowsex(EWX_REBOOT,0); //重起
4:exitwindowsex(EWX_SHUTDOWN,0) //关机
end
end;
该窗体能屏蔽系统键,其他部分都为半透明,除了中心的对话框,不能进行鼠标或键盘操作,中间显示个对话框,不能拖动
你用鼠标and键盘钩子试试,不一定行。
我说得是那个FORM,请各位,关闭WINDOWS看看那个关闭窗体,如何?