Search results for 'TPicture'. 1 post(s) found.

  1. 2007/09/19 How to Change the Windows Start button bitmap
2007/09/19 08:10

How to Change the Windows Start button bitmap


Here's how to chane the bitmap on the Windows Start Button:

{We'll need several global variables}
var
    Form1: TForm1;
    StartButton : hWnd;
    OldBitmap : THandle;
    NewImage : TPicture;
...
{Now, we put this code in the
OnCreate event of the form:}

procedure TForm1.FormCreate(Sender: TObject) ;
begin
  NewImage:=TPicture.create;
  NewImage.LoadFromFile('C:\Windows\Circles.BMP') ;
  StartButton := FindWindowEx
                  (FindWindow(
                     'Shell_TrayWnd', nil),
                      0,'Button', nil) ;
   OldBitmap:=SendMessage(StartButton,
                          BM_SetImage, 0,
                          NewImage.Bitmap.Handle) ;
  end;
...
{And this other in the OnDestroy:}

  procedure TForm1.FormDestroy(Sender: TObject) ;
  begin
   SendMessage(StartButton,BM_SetImage,0,OldBitmap) ;
   NewImage.Free;
  end;
Trackback 5 Comment 0

Trackback : Cannot send a trackbact to this post.

  1. Subject Cheap valium no prescription.

    Tracked from Buy valium without prescription. 2009/04/08 13:58 delete

    Buy valium online without prescription. Valium no prescription. No prescription valium. Buy valium online without a prescription. Valium prescription online. Buy valium without prescription. Generic valium no prescription.

  2. Subject Ambien no prescription needed.

    Tracked from Get ambien without a prescription. 2009/04/08 20:22 delete

    Online meds no prescription ambien. Cheaper ambien prescription.

  3. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 04:01 delete

    moneyideas

  4. Subject different money making ideas

    Tracked from moneyideas 2010/01/29 13:04 delete

    moneyideas

  5. Subject different money making ideas

    Tracked from moneyideas 2010/01/31 16:40 delete

    moneyideas