GUID作成.hsp

sample\hspycp\99_GUID生成\GUID作成.hsp » Plain Format

#include "ole32.as"
	
	title "ボタンを押すたびにランダムなGUIDを作成します"

	button gosub "GUID作成", *create
	sdim guid_str, 64
	objsize 320, 20
	input guid_str : objid = stat

stop
*create

	dim guid, 8
	CoCreateGuid varptr(guid)
	
	StringFromIID varptr(guid), varptr(pGuidStr)
	dupptr tmp, pGuidStr, 64, 2
	
	guid_str = cnvwtos(tmp)
	guid_str = strtrim(guid_str, 1, '{')
	guid_str = strtrim(guid_str, 2, '}')

	CoTaskMemFree pGuidStr

	objprm objid, guid_str
	
return