DeleteEnhMetaFile 拡張メタファイルの破棄

Cの宣言：

BOOL DeleteEnhMetaFile(HENHMETAFILE hEmf);

VBの宣言：

Declare Function DeleteEnhMetaFile Lib "gdi32" (ByVal hEmf As Long) As Long

説明：

hEmfがメモリ上の拡張メタファイルを識別している場合、メモリは破棄される。hEmfがファイル上の拡張メタファイルを識別している場合、ハンドルはクローズされるがファイル自体は破棄されない。

引数の意味は以下の通り。

hEmf	破棄する拡張メタファイルのハンドル。

戻り値は、関数の実行結果を表す真偽値である。

VBのサンプル：

' 拡張メタファイルの描画
Private Sub Command1_Click()

    Dim hEmf As Long '拡張メタファイルのハンドル
    Dim r As RECT '描画する領域
    
    '拡張メタファイルのオープン
    hEmf = GetEnhMetaFile("c:\pic\test.emf")
    
    '描画領域の設定
    r.Left = 0
    r.Top = 0
    r.Right = 300
    r.Bottom = 300
    
    '拡張メタファイルの描画
    PlayEnhMetaFile Picture1.hDC, hEmf, r
    
    '拡張メタファイルのクローズ
    DeleteEnhMetaFile hEmf

End Sub