procedure Tserverfrm.WndProc(var Message: TMessage);
begin
if (Message.Msg = WM_QueryEndSession) then
begin
Message.Result := 1;
end
else if Message.Msg = WM_EndSession then
begin
serverfrm.Close;
end
else
inherited WndProc(Message);
end;
begin
if (Message.Msg = WM_QueryEndSession) then
begin
Message.Result := 1;
end
else if Message.Msg = WM_EndSession then
begin
serverfrm.Close;
end
else
inherited WndProc(Message);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货