البته اگه سرچ می کردید زودتر به نتیجه می رسیدید؛ در ضمن فکر کنم این جور تاپیک ها رو نباید در این تالار نوشت.
این کد :
اول این رو به Uses اضافه کنید :
WinInet
بعد این فانکشن رو تعریف کنید :
Function GetTemp : string;
Var
tempdir : array [0..255] of char;
Begin
Gettemppath(255 , tempdir);
Result := strpas(tempdir);
End;
و در نهایت با این کد وضعیت اتصال به اینترنت رو تست کنید؛ روش استفاده :
procedure TForm1.Button1Click(Sender: TObject);
begin
if ConnectedToInternet = true then
ShowMessage('Connected')
else
ShowMessage('No Connect')
end;
اینم نمونه برنامه :