آیا موس به رایانه متصل است؟ - کدهای آماده دلفی

[ و در پى جنازه‏اى مى‏رفت ، شنید مردى مى‏خندد فرمود : ] گویا مرگ را در دنیا بر جز ما نوشته‏اند ، و گویا حق را در آن بر عهده جز ما هشته‏اند ، و گویى آنچه از مردگان مى‏بینیم مسافرانند که به زودى نزد ما باز مى‏آیند ، و آنان را در گورهاشان جاى مى‏دهیم و میراثشان را مى‏خوریم ، پندارى ما از پس آنان جاودان به سر مى‏بریم . سپس پند هر پند و پند دهنده را فراموش مى‏کنیم و نشانه قهر بلا و آفت مى‏شویم . [نهج البلاغه]

کدهای آماده دلفی

پست الکترونیک

آیا موس به رایانه متصل است؟

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

procedure TForm1.Button1Click(Sender: T);
begin

if GetSystemMetrics(SM_MOUSEPRESENT)<>0 then
Label1.Caption:="Mouse is Connect"
else Label1.Caption:="Mouse is Not Connect";
end;

محمد مقصودلو ::: چهارشنبه 87/7/24::: ساعت 1:46 عصر

نظرات دیگران: نظر

لیست کل یادداشت های این وبلاگ

بهترین کامپوننت تاریخ شمسی در دلفی 7
یک ساعت فوق العاده
اضافه کردن زبان فارسی به ویندوز XP
یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها
بستن پنجره
پاک کردن برنامه به وسیله ی خودش
دانلود کردن سورس یک سایت
بدست آوردن آدرس جاری IE
پاک کردن آدرسهای IE
آموزش کار با IntraWeb در دلفی
مبدل ها
تصویر به bmp2icon) Icon)
تشخیص اینکه HARD DISK ما چند درایو دارد.
اینم یک برنامه ای که ICON درایوها را تغییر می دهد.
درست کردن فیلتر زرد رنگ روی ایمیج
[همه عناوین(126)][عناوین آرشیوشده]

>> بازدیدهای وبلاگ <<

بازدید امروز: 30

بازدید دیروز: 0

کل بازدید :88463

>> درباره خودم <<

محمد مقصودلو
در این وبلاگ سعی میکنم مطالب مربوط به برنامه نویسی دلفی ، پاسکال و گرافیک رایانه ای 2 بعدی و 3 بعدی را به روز کنم منتظر سوالات شما نیز هستم

>>تست سرعت تایپ<<

9 کلمه

Speed test

>> پیوندهای روزانه <<