1
2 /*
3 The Start button does not autosize with the text length.
4 This means the button only makes room for a maximum of 5 letters.
5 It only works with Windows Xp
6 */
7 //---------------------------------------------------------------------------
8
9 #include <vcl.h>
10 #pragma hdrstop
11
12 #include "Unit1.h"
13 //---------------------------------------------------------------------------
14 #pragma package(smart_init)
15 #pragma resource "*.dfm"
16 TForm1 *Form1;
17 //---------------------------------------------------------------------------
18 __fastcall TForm1::TForm1(TComponent* Owner)
19 : TForm(Owner)
20 {
21 }
22 //---------------------------------------------------------------------------
23
24 void __fastcall TForm1::Button1Click(TObject *Sender)
25 {
26 //Hide The StartButton
27 ShowWindow(FindWindowEx(FindWindow("Shell_TrayWnd",
28 NULL), 0, "Button", NULL),SW_HIDE);
29 //Rename The Startbutton ...
30 SetWindowText(FindWindowEx(FindWindow("Shell_TrayWnd",
31 NULL), 0, "Button", NULL),Edit1->Text.c_str());
32 //Show The StartButton
33 ShowWindow(FindWindowEx(FindWindow("Shell_TrayWnd",
34 NULL), 0, "Button", NULL),SW_NORMAL);
35
36 }
37 //---------------------------------------------------------------------------
|
