نمایش دادن پیغام اتصال یا عدم اتصال

[hentjanson]

سلام دوستان اینطور نمایش دادن اتصال بودن به شبکه اشتباهه به نظرتون ؟


procedure TForm1.FormCreate(Sender: TObject);
begin


if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
StaticText2.caption:='برقرار است';
else
StaticText2.caption:='برقرار نیست';

end;
موندم واسه اینکه اتصال بر قرار نیست چی بنویسم

[hentjanson]

دوستان راهی نیست نمایش بدم که به شبکه متصل هستم یا نه .
یک راه خودم پیدا کردم گذاشتن این کد روی یک دکمه

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
MessageDlg('Machine is attached to network',MtInformation,[mbok],0)
else
MessageDlg('Machine is not attached to network',mtInformation,[mbok],0);
end;

ولی من میخوام وقتی من برنامه بازه نمایش بده متصل هست به شبکه یا نه نیاز به زدن دکمه نباشه ؟

[Felony]

کدتون رو تو رویداد OnCreate فرم برنامتون بنویسید یا از Timer استفاده کنید .

قبلا هم بهتون گفته بودم ، به جای پرسیدن این سوالات اول برید چند تا کتاب و مقاله برای شروع برنامه نویسی با Delphi مطالعه کنید .