Untuk Mengecek apakah PC kita terhubung dengan internet atau tidak, coba gunakan coding Berikut.
if (GetSystemMetrics(SM_NETWORK) AND $01 = $01) then
Label1.Caption:='Connected'
else
Label1.Caption:='Not Connected'
Terika Kasih !!
Nama saya Lengkapnya adalah Yudi Permana, Saya memang Bukan Seorang Blogger, Desainer atau Apapun Tapi Saya Hanya Seseorang Yang Ingin Selalu Belajar dan Ingin Tahu Sesuatu Yang Baru. Saya hanya Bisa Mengutak Atik yang ada Tanpa Tau Apa Maksud dan Tujuannya. Mohon Untuk Tidak Tersinggung Bila Ada Sesuatu yang sama Dari Blog Ini...
if (GetSystemMetrics(SM_NETWORK) AND $01 = $01) then
ReplyDeleteLabel1.Caption:='Connected'
else
Label1.Caption:='Not Connected'