Delphi 2005 自带的Borland Socket Server BUG同时Source下的ScktSrvr.dpr工程缺少ScktMain.pas

Question

R.T.
谁那有Delphi2005版带的ScktMain.pas（低版本的不需要），麻烦共享一下，谢谢！分不是问题。

Answer 1

运行ScktSrvr.exe会在通知区创建一个小图标，但是显示主窗口后小图标人删除，同时这时候关掉主窗口，不会重建通知区的小图标，并且应用程序还在运行。另外选主窗口菜单上的Exit也退不出程序，只是关掉了主窗口。

Answer 2

to madyak(无天) 
Mail:[email protected]
先谢了。

Answer 3

非常感谢madyak(无天)发给我的Mail。我收到Mail之后马上对ScktMain.pas与D6/CB6的做了比较，修改的内容就只是下面这个D6/CB6带的过程当中增加了try ... except Abort;...
不过这就有点疑惑了，为什么D2005带的ScktSrvr.exe会有如此BUG呢？BUG从何而来？
==========================D6/CB6====================================procedure TSocketDispatcher.GetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  SocketThread := TSocketDispatcherThread.Create(False, ClientSocket,
    InterceptGUID, Timeout, SocketForm.RegisteredAction.Checked, SocketForm.AllowXML.Checked);
end;
--------------------------------------------------------------------
==========================D2005====================================
procedure TSocketDispatcher.GetThread(Sender: TObject; ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  try
    SocketThread := TSocketDispatcherThread.Create(False, ClientSocket,
      InterceptGUID, Timeout, SocketForm.RegisteredAction.Checked, SocketForm.AllowXML.Checked);
  except
    Abort;
  end;
end;
--------------------------------------------------------------------