代码简单，但是我找不到问题出在哪里？(5分)

以下代码是获得本机名，ip,MAC地址，子网掩码，缺省网关及网卡品牌的
可是在运行环境：DELPHI6/WIN 9X/WIN XP执行该程序总是没有响应，
请大家修正，非常感谢！

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Memo1: TMemo;
StaticText1: TStaticText;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
temp:string;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Clear;
if fileexists(temp) then
deletefile(temp);
winexec(pchar('command.com/c ipconfig/all>'+temp),sw_hide);
while not fileexists(temp) do
sleep(1000);
try
memo1.Lines.LoadFromFile(temp);
except
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.Clear;
tem:='c:/temp.txt'
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fileexists(temp) then
deletefile(temp);
end;

end.

改為
winexec(pchar('command.com /c ipconfig/all>'+temp),sw_hide);
注意:command.com與/c中間空一格,你只所以有問題就是沒空一格。

接受答案了.