请教各位高手，怎样才能在程序启动时，执行“scktsrvr.exe”命令，启动SOCKET服务？

[ocean_far]

请教各位高手，怎样才能在程序启动时，执行“scktsrvr.exe”命令，启动SOCKET服务？

[耙子]

你是不是想把在启动中间层的时候同时启动这个程序？
我在bcb里面曾经贴过一个帖子，是把scktsrvr.exe 和中间层合并在一起的文章，你可以去FAQ看看。

[ocean_far]

楼上的兄弟，大概是什么标题呀？

[ocean_far]

-------------------------------------------------------------------------------------
省去了 启动ScktSrvr.exe 的麻烦，但是它不能自动启动，需要自己运行，反正ScktSrvr.exe 也要启动(做成Service 不舒服)。

方法很简单，利用了bcb能编译连接delphi的文件功能。
1.建一个 BCB Application, 去掉他的默认Form，
把BCB/Source/VCL/ScktMain.pas 加到项目里面，
包含 ScktCnst.pas 文件；

2.在ScktMain.pas 的FormCreate最后一行添上，
Initialize(False);

3.按照正常的步骤建立Remote Data Module....

这样中间层就一个文件就行了，同时利用DCOMConnection方式仍然可以，只不过界面上不会有任何显示罢了。

同时可以汉化了他,并且增加数据库的日志代码.嘿嘿!
---------------------------------------------------------------------------------]
看不明白呀，能否具体解释一下。ScktCnst.pas的作用

[爱编程的老五]

点击菜单的project下的view source,进入工程文件，在initialize下即application.init..语句下面加上一句：
winexec('ScktSrvr.exe',sw_hide);
....
end;
如果编译通不过，你加上winexec的声明的pas文件，不是windows就是shellapi吧。
如果不能正常启动，则将scktsrvr.exe拷贝至当前目录下即可。

[ocean_far]

把ScktMain.pas 加到项目里面后，当客户端连接是总是出错。
不知为何？错误提示如下：
Project Server.exe raise exception class ESocketConnectionError with message 'Error reading
from socket'.Process stoped.Uses Step or Run to Continue.

[耙子]

我在delphi 里面也这么做过，但没遇到过这个错误，你可以利用但不跟踪看一下。

[gx]

同意menliwxj(有缘) 的说法。我也是这么做的。

[minizhuxianchun]

WinExec()这个API函数即可。参数是scktsrvr.exe所在的目录.