uses shlobj;

...

function CreateFolder(Foldername: string; aLocation: integer) : boolean;

var pIdl: PItemIDList;

 hPath: PChar;

begin

  Result := False;

  if SUCCEEDED(SHGetSpecialFolderLocation(0, aLocation, pidl)) then

  begin

   hPath := StrAlloc(max_path) ;

   SHGetPathFromIDList(pIdl, hPath) ;

   SetLastError(0) ;

   CreateDirectory(PChar(hPath + '\' + Foldername), nil) ;

   if (GetLastError() = 0) or(GetLastError() = ERROR_ALREADY_EXISTS) then

     Result := true;

   StrDispose(hPath) ;

  end;

end;

{ Usage: }

procedure TForm1.Button1Click(Sender: TObject) ;

begin

   {constants like 'CSIDL_PROGRAMS'

   are defined in the ShlObj unit}

   CreateFolder('MyProgramgroup', CSIDL_PROGRAMS) ;

end; 

{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:WindowsCircles.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;