１０４．グローバルヒープに確保されたメモリブロックをロックする

＜　使用用途　＞
グローバルヒープに確保されたメモリブロックをロックする

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　「フォント選定のコモンダイアログボックスを表示」するサンプルの中で使用しています。

　＜　説明　＞
ＡＰＩ関数のGlobalLockを使用します
GlobalLock ＝＞グローバルヒープに確保されたメモリブロックをロックする
　　＜引数＞
　　　　　hMem:GlobalAllocで戻ったハンドル　　　　　　　
　　＠戻り値＠
　　　　　 メモリブロックの先頭を示すアドレス

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GlobalLock Lib "KERNEL32" (ByVal hMem As Long)

'ここからはフォームの処理です

Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = GlobalLock(hMem)
End Sub