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

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