تغییر کپشن و ترتیب چیدمان ( راست ) منوی سیستمی

MIIM_STRING = 64

MIIM_FTYPE = 256

MFT_RIGHTORDER = 0x2000

MF_BYPOSITION = 0x00000400

For j = 0 To MenuCount - 1

With mii

(BuffLen = GetMenuStringA(hMenu, j, Buff, Len(Buff) + 1, &H400

(txt = Left$(Buff, BuffLen

       (cbSize = Len(mii

    fMask = 64 Or 256

     fTyp = &H2000

      dwtypedata = arr(j) 'txt

      cch = Len(.dwtypedata) + 1

      .fState = &H3 'mfs_disabled

End With

SetMenuItemInfoA hSysMenu, GetMenuItemID(hMenu, j), 0, mii

Next

"InsertMenuA hSysMenu, 6, MF_BYPOSITION Or MF_STRING Or &H2000, 10200, ByVal "Salam

For j = 0 To (hc + 1) - 1

خالی کردن حافظه مشخص شده

GlobalFree function globalfree globalalloc

In this article

1. Syntax
2. Parameters
3. Return Value
4. Remarks
5. Requirements
6. See Also

Frees the specified global memory object and invalidates its handle

(pSD=GlobalAlloc(GHND,Len(MyString)+1
(GlobalFree(pSD

Dim pSD As LongPtr
$MyString
"MyString="MyClose
(pSD=GlobalAlloc(GHND,Len(MyString)+1
Dim mii As MENUITEMINFOA
With mii
       (cbSize = Len(mii
      .fMask = &H40 Or &H100 '       miim_string Or miim_ftype
      .fTyp=MFT_STRING
       "dwtypedata =pSD    ' "MyClose
       cch = Len(MyString) + 1
      End With
  
SetMenuItemInfoA hSysMenu, SC_CLOSE, 0,mii
GlobalFree pSD

Private Sub Form_Load()
    Dim s As String
    '
    s = ChrW(&HCD38) & ChrW(&HC988) & ChrW(&HBD38) & ChrW(&H7EBA)
    ModifyMenuW GetMenu(Me.hwnd), 0, MF_BYPOSITION, 0, ByVal StrPtr(s)
End Sub