UC知道下面del代码 那里出错了？运行不了
来源：百度知道 编辑：UC知道 时间：2024/05/28 20:00:03
procedure TForm1.Button1Click(Sender: TObject);
begin
Set_WindowsXP_FireWall(true);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Set_WindowsXP_FireWall(false);
end;
end.
begin
Set_WindowsXP_FireWall(true);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Set_WindowsXP_FireWall(false);
end;
end.
Set_WindowsXP_FireWall这个函数的来历是什么？Delphi中并没有这样的函数，看起来应该是自定义的，那么就在USES里面添加定义该函数的pas文件名。
你也可以把运行时候的报错信息发上来给我看看。
Set_WindowsXP_FireWall是什么函数，来自什么地方，如果是调用别的单元中的函数，要在uses中申明单元。