QQ登录

只需一步,快速开始

登录 | 立即注册 | 找回密码
楼主: Angel丶L

[技术交流] Delphi技术手册

  [复制链接]
最佳答案
0 
累计签到:26 天
连续签到:1 天
alexpenf 发表于 2017-10-29 13:26:17 | 显示全部楼层

正需要,谢谢
最佳答案
0 

尚未签到

今月古月 发表于 2017-10-29 22:31:40 | 显示全部楼层
delphi学习中。。。。 正需要
最佳答案
0 

尚未签到

xhgd 发表于 2017-10-30 17:45:21 | 显示全部楼层
感谢楼主的分享,需要
最佳答案
0 

尚未签到

古五月 发表于 2017-10-31 14:56:25 | 显示全部楼层
下载下来看
最佳答案
0 
累计签到:1 天
连续签到:1 天
想晴的天 发表于 2017-11-2 15:50:38 | 显示全部楼层
在哪?
最佳答案
0 

尚未签到

丶浅微 发表于 2017-11-3 09:43:23 | 显示全部楼层
66666666666666
最佳答案
0 
累计签到:1 天
连续签到:1 天
hasf2005 发表于 2017-11-4 10:31:34 | 显示全部楼层
谢谢分享
最佳答案
0 
累计签到:20 天
连续签到:1 天
CHNA 发表于 2017-11-4 22:08:15 | 显示全部楼层
顶!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
最佳答案
0 

尚未签到

iceweek 发表于 2017-11-6 00:25:28 | 显示全部楼层
ganxieganxie
最佳答案
0 

尚未签到

mrliu9898 发表于 2017-11-9 12:52:32 | 显示全部楼层
谢谢楼主
最佳答案
0 

尚未签到

eastglave 发表于 2017-11-10 00:39:26 | 显示全部楼层
到底是什么呢
最佳答案
0 

尚未签到

马大老板 发表于 2017-11-15 13:09:02 | 显示全部楼层
hhhhhhhhhhhhhhhhhhhhhhhhhh
最佳答案
0 

尚未签到

wuwang 发表于 2017-11-23 23:46:05 | 显示全部楼层
xiexie
最佳答案
0 
累计签到:1 天
连续签到:1 天
NPF145 发表于 2017-12-11 09:49:19 | 显示全部楼层
学习学习
最佳答案
0 
累计签到:2 天
连续签到:1 天
adreamers 发表于 2017-12-19 15:31:02 | 显示全部楼层
学习学习 多谢分享。
最佳答案
0 

尚未签到

Violet918 发表于 2017-12-19 20:02:03 | 显示全部楼层
回复看看,谢谢分享
最佳答案
0 
累计签到:2 天
连续签到:1 天
黄卫宇 发表于 2017-12-23 21:13:58 | 显示全部楼层
123
最佳答案
0 

尚未签到

Dafeichong 发表于 2018-1-11 16:56:57 | 显示全部楼层
看看看
最佳答案
0 

尚未签到

1102145138 发表于 2018-1-19 14:29:57 | 显示全部楼层
谢谢分享
最佳答案
0 
累计签到:2 天
连续签到:2 天
国产金刚葫芦娃 发表于 2018-3-7 09:45:09 | 显示全部楼层
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function GetOperatingSystem(): string;
    procedure ShutDownComputer();
    procedure Get_Shutdown_Privilege();
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShutDownComputer();
end;

procedure ShutDownComputer();
begin
  if GetOperatingSystem() = 'Windows NT/2000/XP' then
  begin
    Get_Shutdown_Privilege();
    //调用此函数会出现系统关机提示窗口,并允许用户取消关机动作
    InitiateSystemShutDown(nil, '关机提示:讨厌你所以关了你!', 3, True, False);
    // InitiateSystemShutDown去掉的话就不显示提示窗口
    ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHUNG,0);
  end
  else
  begin
    ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE+EWX_POWEROFF+EWX_FORCEIFHUNG,0);
  end;
end;

function GetOperatingSystem(): string; //获取操作系统信息
var
  osVerInfo: TOSVersionInfo;

begin
  Result:= '';
  osVerInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);

  if GetVersionEx(osVerInfo) then
    case osVerInfo.dwPlatformId of
    VER_PLATFORM_WIN32_NT:
      begin
        Result:= 'Windows NT/2000/XP'
      end;
    VER_PLATFORM_WIN32_WINDOWS:
      begin
        Result := 'Windows 95/98/98SE/Me';
      end;
  end;
end;

procedure Get_Shutdown_Privilege(); //获得用户关机特权,仅对Windows NT/2000/XP
var   
  rl: Cardinal;  
  hToken: Cardinal;  
  tkp: TOKEN_PRIVILEGES;   
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);

  if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
  begin  
    tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
    tkp.PrivilegeCount:= 1;
    AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);  
  end;  
end;

end.

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

小甲鱼强烈推荐 上一条 /1 下一条

    移动客户端下载(未启用)
    微信公众号

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备11014136号

Copyright 2018 鱼C论坛 版权所有 All Rights Reserved.

Powered by Discuz! X3.3 Copyright
© 2001-2018 Comsenz Inc.    All Rights Reserved.

小黑屋|手机版|Archiver|鱼C工作室 ( 粤公网安备 44051102000370号 | 粤ICP备11014136号

GMT+8, 2018-6-20 07:55

快速回复 返回顶部 返回列表