آیا به اینترنت وصل هستید یا نه ؟
سلام.
توسط این تیکه کد , تو دلفی می تونید بفهمید آیا به اینترنت وصل هستید یا نه ؟
اول باید یه Button روی فرمتون قرار بدید بعد کد زیر رو در رویداد Click اون کپی کنید.
procedure TForm1.Button1Click(Sender: TObject) ;
function FuncAvail(_dllname, _funcname: string;
var _p: pointer): boolean;
{return True if _funcname exists in _dllname}
var _lib: tHandle;
begin
Result := false;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> NIL then Result := true;
end;
end;
{
Call SHELL32.DLL for Win < Win98
otherwise call URL.dll
}
{button code:}
var
InetIsOffline : function(dwFlags: DWORD):
BOOL; stdcall;
begin
if FuncAvail('URL.DLL', 'InetIsOffline',
@InetIsOffline) then
if InetIsOffLine(0) = true then
ShowMessage('Not connected')
else
ShowMessage('Connected!') ;
end; |
این کد در برنامه های تحت شبکه می تونی کاربرد های مختلفی رو داشته باشه 
موفق باشید .
نوشته شده در دوشنبه نهم خرداد 138417:34 توسط نوید مردوخ روحانی | لینک کامل مطلب
