HanDs
NO.2

[Delphi文章] 截获windows关机消息 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMQueryEndSession (var Message: TMessage); message WM_QUERYENDSESSION ;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMQueryEndSession (var Message: TMessage);
var
Handled : Boolean;
begin
  { 接收到消息时的通知}
  if messagedlg('shutdown?',mtconfirmation,mbyesnocancel,0)= mryes then
    Handled:=true
  else
    Handled:=false;
end;
end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
截获
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组