You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
1.3 KiB
50 lines
1.3 KiB
// Copyright 2010-2012 The W32 Authors. All rights reserved. |
|
// Use of this source code is governed by a BSD-style |
|
// license that can be found in the LICENSE file. |
|
|
|
// +build windows |
|
|
|
package w32 |
|
|
|
import ( |
|
"syscall" |
|
"unsafe" |
|
) |
|
|
|
var ( |
|
modoleaut32 = syscall.NewLazyDLL("oleaut32") |
|
|
|
procVariantInit = modoleaut32.NewProc("VariantInit") |
|
procSysAllocString = modoleaut32.NewProc("SysAllocString") |
|
procSysFreeString = modoleaut32.NewProc("SysFreeString") |
|
procSysStringLen = modoleaut32.NewProc("SysStringLen") |
|
procCreateDispTypeInfo = modoleaut32.NewProc("CreateDispTypeInfo") |
|
procCreateStdDispatch = modoleaut32.NewProc("CreateStdDispatch") |
|
) |
|
|
|
func VariantInit(v *VARIANT) { |
|
hr, _, _ := procVariantInit.Call(uintptr(unsafe.Pointer(v))) |
|
if hr != 0 { |
|
panic("Invoke VariantInit error.") |
|
} |
|
return |
|
} |
|
|
|
func SysAllocString(v string) (ss *int16) { |
|
pss, _, _ := procSysAllocString.Call(uintptr(unsafe.Pointer(syscall.StringToUTF16Ptr(v)))) |
|
ss = (*int16)(unsafe.Pointer(pss)) |
|
return |
|
} |
|
|
|
func SysFreeString(v *int16) { |
|
hr, _, _ := procSysFreeString.Call(uintptr(unsafe.Pointer(v))) |
|
if hr != 0 { |
|
panic("Invoke SysFreeString error.") |
|
} |
|
return |
|
} |
|
|
|
func SysStringLen(v *int16) uint { |
|
l, _, _ := procSysStringLen.Call(uintptr(unsafe.Pointer(v))) |
|
return uint(l) |
|
}
|
|
|