تغير اسم الزر ابدأ

[bsm12]

السلام عليكم

هذا مثال وجدته في احدى المواقع

يقوم بتغيير الاسم في الزر ابدأ

بالتوفيق

[bsm12]

الملف معدل الشكل

[AL-MOB4RM3G]

نعم, بارك الله لك اخي...
شئ مسلّي ومفيد
لكن اين السورس اكرمك الله؟

بارك الله لك

[musvc]

هذا مثال وجدته في احدى المواقع

مادام رأيته في احدى المواقع لماذا لم تضع السورس معه :mad:

على العموم ينقصه تطوير ( اجعلة يغير طول الــ Start لكي يتوافق مع طول الكلمة لأن الكلمات الطويلة جزء منها لا يضهر )


هذا هو السورس ليستفاد باقي الأعضاء ( ايضا ً رأيته في موقع اجنبي )

كود :

procedure TForm1.Button1Click(Sender: TObject); var Handle1,Handle2:hwnd; begin Handle1:=FindWindow('Shell_TrayWnd',nil); //get the handle of the taskbar Handle2:=FindWindowEx(Handle1,0,'Button',nil); //get the handle of the start button from the taskbar SetWindowText(Handle2,PAnsiChar(Edit1.Text)); //set the text SendMessage(Handle2,Messages.WM_MOUSEMOVE,0,0); //used to refresh the caption of the start button end;

و السلام عليكم