24-03-2011, 10:14 AM
لتغيير نص الزر ابدأ
كود :
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