<font color=red>获得连接我的机子的计算机的IP</font>(30分)

98下我用winexec('command /c netstat &gt; tmp.txt', sw_hide)
结果总返回错误值‘2’说‘文件路径有误’
怎么写呢？

winexec('command /c netstat &gt; c:/tmp.txt', sw_hide)

yes .

歪歪猫：
&lt;a href="http://www.qzone.com/home/o/oo/oopsware/home/download/Netstat.zip"&gt;Netstat.zip&lt;/href&gt; 用Delphi实现 netstat.exe 的功能
不知是否是对你有所帮助。

winexec('command /c netstat &gt; c:/tmp.txt', sw_hide)
中的'/c'是什么意思？

&lt;hr&gt;
谢谢悲大峡

6~

var
WSData: TWSAData;
Buffer: array[0..63] of Char;
HostEnt: PHostEnt;
PPInAddr: ^PInAddr;

LocalIP: DWord;
IPString: string;


procedure GetIP;
begin
LocalIP := 0;
IPString := '';
try
WSAStartUp($101, WSData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(Buffer);
if Assigned(HostEnt) then
begin
PPInAddr := @(PInAddr(HostEnt.H_Addr_List^));
while Assigned(PPInAddr^) do
begin
IPString := StrPas(INet_NToA(PPInAddr^^));
LocalIP := PPInAddr^^.S_Addr;
Inc(PPInAddr);
end;
end;
finally
try
WSACleanUp;
except
end;
end;
end;

//取本机IP地址,返回4字节格式

function GetIPAddress: DWORD;
begin
GetIP;
Result := LocalIP;
end;


//取本机IP地址,返回点分隔字符串格式

function GetLocalIP: string;
begin
GetIP;
Result := IPString;
end;

结束这个问题吧，
关于“winexec('command /c netstat &gt; c:/tmp.txt', sw_hide)
中的'/c'是什么意思？”新开个帖子吧