تشخیص اتصال به اینترنت (بدون تایمر)

[AliReza Vafakhah]

سلام

خواستم که تو تاپیک قبلی سوال کنم گفت شاید کار درستی نباشه ، اما خواب به همون موضوع ربط داره

من با این تابع بررسی می کنم که آیا یوزر به اینترنت وصل است یا نه
حالا می خوام بدونم آیا میشه بدون تایمر هم از این استفاده کرد
میدونید که تایمر روش ایده آلی نیست



type
TConnectState=(ctModem,ctModemBuys,ctNone);
..
..
function TMainCode.GetConnectState: TConnectState;
var
flags:DWORD;
isConnect:Boolean;
begin
Result:=ctNone;
isConnect := InternetGetConnectedState(@flags, 0);

if isConnect then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
Result:=ctModem
else if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTIO N_MODEM_BUSY then
Result:=ctModemBuys;
end else
Result:=ctNone;
end;