unit test_dll;interfaceuses Windows, Messages, SysUtils, Dialogs;const
BDT_DEVICEARRIVAL = $8000;type
procedure WMDeviceChange(var Msg:Tmessage); message WM_DEVICECHANGE;implementationprocedure WMDeviceChange(var Msg:Tmessage);
begin
// so sth.
end;
initializationfinalization
end.// 这样编译时,
[Error] test_dll.pas(11): Identifier expected but 'PROCEDURE' found
[Error] test_dll.pas(11): Unknown directive: 'message'// 而放到普通窗体的.pas文件中,则可以正常运行。请指点。
BDT_DEVICEARRIVAL = $8000;type
procedure WMDeviceChange(var Msg:Tmessage); message WM_DEVICECHANGE;implementationprocedure WMDeviceChange(var Msg:Tmessage);
begin
// so sth.
end;
initializationfinalization
end.// 这样编译时,
[Error] test_dll.pas(11): Identifier expected but 'PROCEDURE' found
[Error] test_dll.pas(11): Unknown directive: 'message'// 而放到普通窗体的.pas文件中,则可以正常运行。请指点。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货