BrowseForGPO

関数

GPO参照ダイアログを表示しGPOを選択させる。

DLLGPEDIT.dll呼出規約winapi対応OSWindows Vista 以降

シグネチャ

// GPEDIT.dll
#include <windows.h>

HRESULT BrowseForGPO(
    GPOBROWSEINFO* lpBrowseInfo
);

パラメーター

名前	型	方向
lpBrowseInfo	GPOBROWSEINFO*	inout

戻り値の型: HRESULT

各言語での呼び出し定義

// GPEDIT.dll
#include <windows.h>

HRESULT BrowseForGPO(
    GPOBROWSEINFO* lpBrowseInfo
);

[DllImport("GPEDIT.dll", ExactSpelling = true)]
static extern int BrowseForGPO(
    IntPtr lpBrowseInfo   // GPOBROWSEINFO* in/out
);

<DllImport("GPEDIT.dll", ExactSpelling:=True)>
Public Shared Function BrowseForGPO(
    lpBrowseInfo As IntPtr   ' GPOBROWSEINFO* in/out
) As Integer
End Function

' lpBrowseInfo : GPOBROWSEINFO* in/out
Declare PtrSafe Function BrowseForGPO Lib "gpedit" ( _
    ByVal lpBrowseInfo As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

BrowseForGPO = ctypes.windll.gpedit.BrowseForGPO
BrowseForGPO.restype = ctypes.c_int
BrowseForGPO.argtypes = [
    ctypes.c_void_p,  # lpBrowseInfo : GPOBROWSEINFO* in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('GPEDIT.dll')
BrowseForGPO = Fiddle::Function.new(
  lib['BrowseForGPO'],
  [
    Fiddle::TYPE_VOIDP,  # lpBrowseInfo : GPOBROWSEINFO* in/out
  ],
  Fiddle::TYPE_INT)

#[link(name = "gpedit")]
extern "system" {
    fn BrowseForGPO(
        lpBrowseInfo: *mut GPOBROWSEINFO  // GPOBROWSEINFO* in/out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("GPEDIT.dll")]
public static extern int BrowseForGPO(IntPtr lpBrowseInfo);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GPEDIT_BrowseForGPO' -Namespace Win32 -PassThru
# $api::BrowseForGPO(lpBrowseInfo)

#uselib "GPEDIT.dll"
#func global BrowseForGPO "BrowseForGPO" sptr
; BrowseForGPO varptr(lpBrowseInfo)   ; 戻り値は stat
; lpBrowseInfo : GPOBROWSEINFO* in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

出力引数:

#uselib "GPEDIT.dll"
#cfunc global BrowseForGPO "BrowseForGPO" var
; res = BrowseForGPO(lpBrowseInfo)
; lpBrowseInfo : GPOBROWSEINFO* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "GPEDIT.dll"
#cfunc global BrowseForGPO "BrowseForGPO" sptr
; res = BrowseForGPO(varptr(lpBrowseInfo))
; lpBrowseInfo : GPOBROWSEINFO* in/out -> "sptr"
; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。

出力引数:

; HRESULT BrowseForGPO(GPOBROWSEINFO* lpBrowseInfo)
#uselib "GPEDIT.dll"
#cfunc global BrowseForGPO "BrowseForGPO" var
; res = BrowseForGPO(lpBrowseInfo)
; lpBrowseInfo : GPOBROWSEINFO* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; HRESULT BrowseForGPO(GPOBROWSEINFO* lpBrowseInfo)
#uselib "GPEDIT.dll"
#cfunc global BrowseForGPO "BrowseForGPO" intptr
; res = BrowseForGPO(varptr(lpBrowseInfo))
; lpBrowseInfo : GPOBROWSEINFO* in/out -> "intptr"
; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	gpedit = windows.NewLazySystemDLL("GPEDIT.dll")
	procBrowseForGPO = gpedit.NewProc("BrowseForGPO")
)

// lpBrowseInfo (GPOBROWSEINFO* in/out)
r1, _, err := procBrowseForGPO.Call(
	uintptr(lpBrowseInfo),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function BrowseForGPO(
  lpBrowseInfo: Pointer   // GPOBROWSEINFO* in/out
): Integer; stdcall;
  external 'GPEDIT.dll' name 'BrowseForGPO';

result := DllCall("GPEDIT\BrowseForGPO"
    , "Ptr", lpBrowseInfo   ; GPOBROWSEINFO* in/out
    , "Int")   ; return: HRESULT

●BrowseForGPO(lpBrowseInfo) = DLL("GPEDIT.dll", "int BrowseForGPO(void*)")
# 呼び出し: BrowseForGPO(lpBrowseInfo)
# lpBrowseInfo : GPOBROWSEINFO* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。