用 socket 编程方式在各个客户机器中安装服务器,而后在任意1台机器中检测同端口的活动连接。
解决方案 »
- 求HTTP代理源码,那个朋友能给我?
- 如何实现运行期时自定义属性
- 请问什么情况需要动态创建组件,动态创建的优缺点(新手第一次提问,各位大哥帮忙啊)
- 有熟悉音频文件格式的么
- 请高人指点;怎么解决这个问题Access Violation at address ×××× in module ****.DLL',Read of address 24010C016
- AdoQuery 中 sql语句中 含有中文为什么得不到结果???
- mdi问题.急.
- 请教有关文件列表的问题
- 关于function SendBuf(var Buf; Count: Integer): Integer的问题.
- 三层中客户端用视图如何更新多个表
- 请教退出程序的方法
- 各路大虾侠留步
procedure tform1.button1click(sender: tobject);
var
command:string;
comline: pchar;
begin
command:='command.com /c net view>c:\~~~.txt';
comline:=pchar(command);
winexec(comline, sw_hide);
timer1.enabled:=true;
end;//每秒试一次
procedure tform1.timer1timer(sender: tobject);
var f:tstringlist;
ll,ii:integer;
s1,s:string;
b:bool;
begin
f:=tstringlist.create;
try
f.loadfromfile('c:\~~~.txt');
except
end;
if f.count>10 then begin
memo1.clear;
memo1.lines.add(f.text);
timer1.enabled:=false;
f.free;
{去掉多余的行和'\\'}
for ll:=memo1.lines.count-1 downto 0 do begin
if strpos(pchar(memo1.lines.strings[ll]),'\\')=nil then
memo1.lines.delete(ll)
else
memo1.lines.strings[ll]:=delxxx(memo1.lines.strings[ll]);
{自编1个去'\\'的函数}
end;
timer1.enabled:=false;
end;
源程序详见:
http://delphi21cn.yeah.net
http://personal.hb.cninfo.net/~gbh