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