delphi实现关闭Windows

2016-02-19 17:50 0 1 收藏

今天图老师小编要向大家分享个delphi实现关闭Windows教程，过程简单易学，相信聪明的你一定能轻松get！

【 tulaoshi.com - 编程语言】

　　控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数

　　首先定义常数

　　const

　　EWX_FORCE=4; //关闭所有程序并以其他用户身份登录

　　EWX_LogoFF=0; //重新启动计算机并切换到MS-DOS方式

　　EWX_REBOOT=2; //重新启动计算机

　　EWX_SHUTDOWN=1;//关闭计算机

　　运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句

　　ExitWindowsEx(How,0);

来源:http://www.tulaoshi.com/n/20160219/1616158.html

看过《delphi实现关闭Windows》的人还看了以下文章更多>>

delphi编程实现检测声卡存在

标签：编程语言网络编程

如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡： procedure TForm1.FormCreate(Sender: TObject);var i:Integer;begini := auxGetNumDevs();if i= thenlabel1.Capti...

用Delphi轻松实现背景播放

标签： Delphi

如果我们把Handle指向桌面，哪TMediaPlay将会在桌面播放。与TCanvas不同的是，TWinControl的Handle的属性是只读的，并且GetHandle方法是静态方法，这说明，我们要Handle指向桌面只有两种方法修改TWinControl，让Handle可写。建立TWinControl子类，并隐藏TWinControl.GetHandle方法,在新方法中返回桌面句柄。其中第二...

Delphi实现窗体控件自由摆布

标签： Delphi

Delphi关键字导航网络界面多媒体数据库图像控件文件硬件在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事： 1、设置进入控件边缘的光标形状； 2、改变控件的大小及位置； 3、保存窗体控件的位置及状态，窗体下次启动时...

Delphi中如何实现透明按钮

标签： Delphi

各位亲爱的读者，在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时，我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果？笔者在互联网搜索了不少时间也没有找到这方面的控件，于是决定自己DIY一番，下面笔者就将自己的经验与广大读者共享一番。要实现透明按钮，共需...

用DELPHI实现文件加密压缩