如何调用windows关机对话框? 请问如何实现用程序调用关机对话框来进行关机呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ExitWindowsEx(EWX_LOGOFF, 0); //注销 ExitWindowsEx(EWX_REBOOT, 0);//重起 ExitWindowsEx(EWX_POWEROFF, 0);//关机 自己做,一个对话框三个选择框调用APIExitWindowsEx(EWX_LOGOFF, 0); //注销 ExitWindowsEx(EWX_REBOOT, 0);//重起 ExitWindowsEx(EWX_POWEROFF, 0);//关机2000 or xp need 权限 我上次调用'打开方式...'用的是winexec(PChar('rundll32 shell32,OpenAs_RunDLL '+FilePath),SW_SHOWDEFAULT); 不过我也是在别人VB的源码中找来的,具体怎么做也不是很清楚,你可以试试在这方面下手找资料 var shellapp: variant;begin shellapp := CreateOleObject('Shell.Application'); shellapp.shutdownwindows;end; image控件如何加载远程图片文件 弱弱的问下ShellExecute 怎样将一个二维数组当指针使用? ListView点某一列排序,急用...... 为什么出错:“行句柄引用了一个已被删除的行或被标识未被”和“删除的行”? 如何确定一客户机是台式机还是终端机? 过滤Filtered使用like怎么失败 ADO的学习方法和参考书籍!(刚刚学,请大伙指教!Up 有分!呵呵) 动态生成窗体时出错 求教对Combobox中Items内容的判断方式? 关于报表的小问题? 哪有EHLIB的使用说明
ExitWindowsEx(EWX_REBOOT, 0);//重起
ExitWindowsEx(EWX_POWEROFF, 0);//关机
一个对话框
三个选择框
调用API
ExitWindowsEx(EWX_LOGOFF, 0); //注销
ExitWindowsEx(EWX_REBOOT, 0);//重起
ExitWindowsEx(EWX_POWEROFF, 0);//关机
2000 or xp need 权限
winexec(PChar('rundll32 shell32,OpenAs_RunDLL '+FilePath),SW_SHOWDEFAULT); 不过我也是在别人VB的源码中找来的,具体怎么做也不是很清楚,你可以试试在这方面下手找资料
shellapp: variant;
begin
shellapp := CreateOleObject('Shell.Application');
shellapp.shutdownwindows;
end;