Start Button Modifier - Change the text of the start button

posted 8 Mar 2010, 18:35 by Delphi Basics   [ updated 9 Mar 2010, 10:49 ]
    Coder: Jack
    Compiled: Delphi 2007

No source is included; I do however, provide a tutorial:

How to change your start button caption using Delphi!
Note: The start button will be renamed back to "start" after you restart your computer.
1. Create a new project in Delphi
2. Add a Button and an Edit box to your form, place them where you want.
3. Double click the button to enter the code editor so we can type code for our OnClick event.
4. The code for the OnClick event of our button should look like this:
procedure TForm1.Button1Click(Sender: TObject);
var Handle1,Handle2:hwnd;
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
5. Run the program (F9) and enjoy!
The finished program should look something like this:
Just type a new caption in the text box and click on the button.

Although source may be released in the future, the archive contains only a single executable file.
Delphi Basics,
8 Mar 2010, 18:40