如何用Delphi实现在win2000下关机及休眠??
要求范列!!謝謝!!!!!!!!!!!
要求范列!!謝謝!!!!!!!!!!!
解决方案 »
- 【清明】之二,记忆
- Delphi的对象模型是这样处理吗?那就有些恶心了
- 请教算法高手:检测不同文件中的相同内容,
- 求助不同语言类型转换
- 怎样在Delphi7.0中调试COM+组件,请有经验的朋友指教一下!!!!!!!
- 要制作控件要从那些方面着手
- 我靠,庆祝一下,上个月我得专家分Delphi版排名第二,大家来捧场呀,祝福我吧 !!!
- 在局域网代理上网的机子怎样知道的代理服务器的IP,就是互联网IP不是内部网的
- 我用ADOStoreProc结合MSSQL做了一个存储过程,我想在Execproc成功后返加一个字符串值,可以吗?
- 进来看一看好吗?谢谢,UP有分啊!在线等待
- 大家来说说:Delphi画图和MFC画图,哪个快?
- 怎样删除已注册的DCOM
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT or EWX_POWEROFF,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
ExitWindowsEx(EWX_LOGOFF,0);
end;end.