delphi4arab منتديات دلفي للعرب

كيف يتم تغيير الزر إبداء ؟

السلام عليكم و رحمة الله

اعادة تسمية زر النظام Start

PHP كود :
var Handle1, Handle2: hwnd;
begin
  Handle1 := FindWindow('Shell_TrayWnd', nil);
  Handle2 := FindWindowEx(Handle1, 0, 'Button', nil);
  SetWindowText(Handle2, PAnsiChar(Edit1.Text));
  SendMessage(Handle2, Messages.WM_MOUSEMOVE, 0, 0); 

تعطيله و تفعيله

PHP كود :
EnableWindow(FindWindowEx(FindWindow
    ('Shell_TrayWnd', nil), 0, 'Button', nil), FALSE); 

التغيير يكون فقط في : TRUE او FALSE

بالتوفيق ان شاء الله

nabilkeb كتب :كيف يتم تغيير الزر إبدأ ؟

هذا هو مكان السؤال و الجواب ، تشكر جدا يا بطل.
تحياتي .:d

السلام عليكم
اعتقد ان هذا الكود لايعمل في وندوز فيستا لقد قمت بتجريبه ولم يحدث اي تغير

PHP كود :
EnableWindow(FindWindowEx(FindWindow 
   ;:('Shell_TrayWnd', nil), 0, 'Button', nil), FALSE) 

مع xp يعمل عادي .
و لكن هناك ملاحظة : لماذا يعود بعد مدة يسير (بضع دقائق) إلى تسميته الأصلية تلقائيا؟

هي مسالة هندل : Handle
يعني اذا استطعت الحصول على هندل - مقبض- يمكنك ارسال اوامر وعمل تغييرات على الهدف...

في المثالين فوق:
- يتم البحث على نوافذ مخفية للنظام.
- في حالة وجودها يتم الحصول على مقبض.
- و بعدها عمل تغييرات على الهدف.

---
الدوال : FindWindow او FindWindowEx و SendMessage
---

التغييرات تدوم مع دوام نشاط برنامجك في الذاكرة، و عند غلقه و عمل Refresh او Restart يرجع كل شئ على حالته السابقة.

المرفق يحتوي على برنامجين لقنص معلومات نوافذ النظام او اي برنامج آخر و عمل تغييرات عليه، جربوهم لتفهموا المبدأ... - احدهم مبرمج بدلفي 5.

سؤال : ما معنى مقبض ؟ ابحثوا و اشرحوا ما فهمتم و ليس القيام بعملية نسخ و لصق لتعريفات من هنا و هناك... Big Grin

نعم مقابل كل سؤال تطرحونه نطرح تحن سؤال ايضا Big Grin

بالتوفيق ان شاء الله

معنى المقبض ? : لا حول ولا قوة إلا بالله ، رحم الله امرءا عرف قدر نفسه ! ! !

ليحترف الواحد الدلفي ، لا من احتراف كل ما يتعلق بالإعلام الآلي. أنظمة التشغيل و ما حوت . . .
سبحان الله الواحد راهو في بحر لا شاطئ له ! ! !

آسف . سأحول السؤال إلى أهله.

nabilkeb

STRELiTZIA

nabilkeb

galag8

nabilkeb

STRELiTZIA

nabilkeb