- 489 名前：デフォルトの名無しさん mailto:sage [2007/03/05(月) 20:07:19 ]
- ０でなく１で正しい。第三引数を０にしてるのが悪いんでないか
Dim lngCount As Long
Dim lngIconHandle(1) As Long
Dim lngRet As Long
Do While True
lngRet = ExtractIconEx(App.Path & "\test.ico", 0, lngIconHandle(1), lngIconHandle(0), 1)
If lngRet <> 1 Then
Stop
End If
lngRet = DestroyIcon(lngIconHandle(0))
If lngRet = 0 Then
Stop
End If
lngRet = DestroyIcon(lngIconHandle(1))
If lngRet = 0 Then
Stop
End If
lngCount = lngCount + 1
Loop
