打开spcomm.pas文件找到CommWndProc方法,补充红色部分代码
procedure TComm.CommWndProc( var msg: TMessage );
begin
case msg.msg of
PWM_GOTCOMMDATA:
begin
ReceiveData( PChar(msg.LParam), msg.WParam );
LocalFree( msg.LParam )
end;
PWM_RECEIVEERROR: ReceiveError( msg.LParam );
PWM_MODEMSTATECHANGE:ModemStateChange( msg.LParam );
PWM_REQUESTHANGUP: RequestHangup;
PWM_SENDDATAEMPTY: _SendDataEmpty
else
with msg do
Result := DefWindowProc(FHWnd, Msg, WParam, LParam); //响应WM_QUERYENDSESSION和WM_ENDSESSION消息
end
end;
SPCOMM 无法关机
最新推荐文章于 2022-02-03 17:23:38 发布