网络检测(100分)

我想在程序启动前先检测网络连接是否正常，用API的GETSYSTEMMETRICS试成功，但不知怎
么在工程文件里改动

直接加在 Application.Initialize;前面就行了，记住要加上windows单元

可以在应用程序的工程源文件(program ...)中写一个函数
将你的测试函数写在函数中,连接成功返回true,反之.

然后在application.run 之前执行这个函数

如
program MyProject
...

function TestLink:boolean;
begin
...
end;

begin
application.Initialize;
if TestLink then application.run
else Messagebox(0,'网络连接错误','错误',MB_OK);
end;

多人接受答案了。