هل ترغب في عدم تمكين زر ابدأ (Enable/Disable Start Button) وأيضا تغيير عنوانه من Start أو ابدأ الى مثلا بسم الله أو وضع اسمك؟
يمكنك باستخدام هذا البرنامج الصغير:
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil), 0, 'Button', nil), False);
ShowMessage('Click OK to Enable it.');
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil), 0, 'Button', nil), True);
ShowMessage('Now you well change the caption');
SetWindowText(FindWindowEx(FindWindow('Shell_TrayWnd',nil), 0, 'Button', nil), 'بسم الله');
UpdateWindow(FindWindowEx(FindWindow('Shell_TrayWnd',nil), 0, 'Button', nil));
end;
لقدقمت بتجربته على Windows XP Pro عندا تكون سمة سطح المكتب Windows XP Style فإن تعطيل الزر لن يؤثر على المظهر ولكن عندما تنقر عليه الفارة فلن يستجيب.
بالنسبة لتغيير عنوان الزر هذه الطريقة بسيطه ولكن هناك طريقة أكثر احترافية سوف أضعها قريبا هنا إن شاء الله.