procedure WMQUERYENDSESSION(var msg:Tmessage);Message WM_QUERYENDSESSION;
implementation{$R *.dfm}
procedure WMQUERYENDSESSION(var msg:Tmessage);Message WM_QUERYENDSESSION;
begin
//
inherited;//
end;
错误
[Error] U_1.pas(22): Unknown directive: 'Message'
请问我还需要做些什么啊?
需要定义什么吗?
implementation{$R *.dfm}
procedure WMQUERYENDSESSION(var msg:Tmessage);Message WM_QUERYENDSESSION;
begin
//
inherited;//
end;
错误
[Error] U_1.pas(22): Unknown directive: 'Message'
请问我还需要做些什么啊?
需要定义什么吗?
解决方案 »
- 用CPORT控件,用ComPort.ReadStr接收到的内容是十六进制乱码?
- adotable里面可以使用sql语句吗?
- 一个传参数问题
- 特殊要求:运行环境为没有安装Excel的Windows系统,Delphi中表数据与Excel文件(*.xls)之间导入导出。
- 我想用progressbar显示增加和删除数据的速度,请问如何得知增加和删除的运行时间以便用progressbar显示
- 实现拷贝
- 元宵节快乐。继续给分。刚才已经给出100分了
- 在多线程里执行一个查询,再根据查询的结果执行一个更新的操作,这样多线程能不能发挥它的优势呢
- Delphi7程序无法跟踪调试,怎么处理???
- IP地址查询的问题???
- 如何在NT无盘网中得到客户端的网卡地址?急
- delphi的COM组件无法注册的问题?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMQUERYENDSESSION(var msg:Tmessage);Message WM_QUERYENDSESSION;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure WMQUERYENDSESSION(var msg:Tmessage);
begin
//
inherited;//
end;
begin
//
inherited;//
end;