20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: api实现netstat 功能

作者: sainthero [sainthero]

论坛用户

在csdn.net里面有人问过我这样的问题
我在这里也提一下，希望对学习delphi的同行有些帮助
uses shellapi

temp:string;//全程变量
button1 onclick

begin
   memo1.lines.clear
   if fileexist(temp) then
     deletefile(temp)
     winexec(pchar('command.com /c netstat -an>'+temp),sw_hide);
     memo1.lines.loadfromfile(temp);
end;
form1 oncreate
begin
  temp:='c:/temp.txt';
  memo1.lines.clear;
end;

form1 onclose
begin
  if fileexist(temp)
    deletefile(temp)//释放
end;

同样的原理，可以实现nbtstat ping等功能

地主发表时间: 05/23 01:49

回复: cimsxiyang [cimsxiyang]

版主

对wdm开发熟悉吗？

B1层发表时间: 05/23 20:04

论坛: 编程破解