bsm12
28-04-2008, 03:33 PM
السلام عليكم
هذا مثال وجدته في احدى المواقع
يقوم بتغيير الاسم في الزر ابدأ
بالتوفيق
AL-MOB4RM3G
08-01-2009, 07:26 PM
نعم, بارك الله لك اخي...
شئ مسلّي ومفيد :rolleyes:
لكن اين السورس اكرمك الله؟
بارك الله لك
musvc
23-01-2009, 09:09 AM
هذا مثال وجدته في احدى المواقع
مادام رأيته في احدى المواقع لماذا لم تضع السورس معه :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;
http://www.geocities.com/mescemail/startb.jpg
و السلام عليكم