S
StepGuo
Unregistered / Unconfirmed
GUEST, unregistred user!
>用Dephil6.0 写了一个网络程序:包括有两个程序PcServer和PcClient
PcClient 安装在服务器上:PcServer 安装在客户端(有多台)
PcClient 的作用是指定一个程序。PcServer的作用是把PcClient 指定的程序安装在客户端.
PcServer中是这样设置的:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var lsCommand : string;
begin
lsCommand := Socket.ReceiveText;
LblCommand.Caption := lsCommand;
ShellExecute(handle, nil, PChar(lsCommand), nil, nil, SW_SHOWNORMAL);
Socket.SendText('Receive:'+lsCommand);
end;
2>测试时:如果两个程序都安装在同一台机上,没有问题,所有的类型的东西都可以打开。
如果两个程序安装在两台机上,只能打开象,notepad, cmd这样的程序,象打开一个文本,图片都不行(已经共享,只在PcClient所在机上有)
这是为什么?
3>ShellExecute(handle, nil, PChar(lsCommand), nil, nil, SW_SHOWNORMAL);如何设置,只能打开我特定的程序。
PcClient 安装在服务器上:PcServer 安装在客户端(有多台)
PcClient 的作用是指定一个程序。PcServer的作用是把PcClient 指定的程序安装在客户端.
PcServer中是这样设置的:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var lsCommand : string;
begin
lsCommand := Socket.ReceiveText;
LblCommand.Caption := lsCommand;
ShellExecute(handle, nil, PChar(lsCommand), nil, nil, SW_SHOWNORMAL);
Socket.SendText('Receive:'+lsCommand);
end;
2>测试时:如果两个程序都安装在同一台机上,没有问题,所有的类型的东西都可以打开。
如果两个程序安装在两台机上,只能打开象,notepad, cmd这样的程序,象打开一个文本,图片都不行(已经共享,只在PcClient所在机上有)
这是为什么?
3>ShellExecute(handle, nil, PChar(lsCommand), nil, nil, SW_SHOWNORMAL);如何设置,只能打开我特定的程序。