DeleteMetaFile Windowsメタファイルの破棄

Cの宣言：

BOOL DeleteMetaFile(HMETAFILE hWmf);

VBの宣言：

Declare Function DeleteMetaFile Lib "gdi32" (ByVal hWmf As Long) As Long

説明：

Windowsメタファイルを破棄する。

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

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

hWmf	クローズするWindowsメタファイルのハンドル。

戻り値は、関数の実行に成功したか否かを表す真偽値である。

VBのサンプル：

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

    Dim hWmf As Long 'Windowsメタファイルのハンドル
    
    'Windowsメタファイルのオープン
    hWmf = GetMetaFile("c:\pic\test.wmf")

    'Windowsメタファイルの描画
    PlayMetaFile Picture1.hDC, hWmf
    
    'Windowsメタファイルのクローズ
    DeleteMetaFile hWmf

End Sub