scktsrvr的问题！

yy2001 2003-01-21 02:09:01

scktsrvr.exe -install
这个命令在98下不好用么？请问在98下应怎么使应用服务器启动后看不见界面？

...全文

125 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

猛禽 2003-01-23

打赏
举报

scktsrvr是通过在TrayIcon上点右键打开菜单退出，没有了TrayIcon，就没地方点右键，当然就不能退出了。^_^

yy2001 2003-01-23

打赏
举报

Raptor(猛禽)
谢谢。
不过您说的‘不过就不能退出了’指的是什么？

l_clove 2003-01-22

打赏
举报

请Raptor(猛禽)指点

猛禽 2003-01-22

打赏
举报

在98下做不到,因为98不支持Service
要想不出界面倒比较简单,修改Scktsrvr的源程序即可.

cuptbluesky 2003-01-22

打赏
举报

学习

猛禽 2003-01-22

打赏
举报

用Delphi打开Borland\CBuilder6\Source\vcl下的scktsrvr.dpr工程(或用BCB新建一个project,再把那几个单元加入也行)
打开scktmain.pas,找到下面这段代码,并如下面那样注释掉那部分代码,那个TrayIcon就不出来了,界面自然也打不开了,不过就不能退出了:

procedure TSocketForm.FormDestroy(Sender: TObject);
var
i: Integer;
begin
UpdateTimer.Enabled := False;
// if not NT351 then
// Shell_NotifyIcon(NIM_DELETE, @FIconData);
for i := 0 to PortList.Items.Count - 1 do
PortList.Items.Objects[i].Free;
end;

procedure TSocketForm.AddIcon;
begin
/*
if not NT351 then
begin
with FIconData do
begin
cbSize := SizeOf(FIconData);
Wnd := Self.Handle;
uID := $DEDB;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon := Forms.Application.Icon.Handle;
uCallbackMessage := WM_MIDASICON;
StrCopy(szTip, PChar(Caption));
end;
Shell_NotifyIcon(NIM_Add, @FIconData);
end;
*/
end;

yangguo_god 2003-01-21