{TFileServerThread } TFileServerThread=class(TServerClientThread) public procedureClientExecute;override; end; {TFileServerThread}procedureTFileServerThread.ClientExecute;var Data ...……
在批处理最后增加了启动Delphi的命令。将批处理和Delphi放在同一目录即可。?12345678910111213141516171819202122@ECHO OFF REM Enter temp directory.%TEMP:~0,2%CD %TEMP% REM Try delete previously c ...……