HSPのコード一覧 | ページ 26 | Codetter（こーどったー）

	title "GUIDを配列変数に変換するコンバーター"
	objsize 320, 20
	sdim guid, 64 : guid = "5CDF2C82-841E-4546-9722-0CF74078229A"
	input guid
	button gosub "↓変換↓", *cnv

;----------------------
;typedef struct _MMCKINFO
;{
;        FOURCC          ckid;           /* chunk ID */
;        DWORD           cksize;         /* chunk size */

;typedef  struct  tagHELPINFO { 
;    UINT     cbSize; 
;    int      iContextType 
;    int      iCtrlId; 
;    HANDLE   hItemHandle; 

;typedef  struct  tagHELPINFO { 
;    UINT     cbSize; 
;    int      iContextType 
;    int      iCtrlId; 
;    HANDLE   hItemHandle; 

#include "user32.as"
#define WM_HELP 0x0053
#define WS_MINIMIZEBOX 0x00020000
#define WS_MAXIMIZEBOX 0x00010000;最初からついてないからいらない
#define WS_EX_CONTEXTHELP $00000400

#ifndef __HasyuTag__
#define __HasyuTag__
#include "kernel32.as"
#module

#include "user32.as"
#define WS_MINIMIZEBOX 0x00020000
#define WS_MAXIMIZEBOX 0x00010000;最初からついてないからいらない
#define WS_EX_CONTEXTHELP $00000400
GetWindowLong hwnd, -16

	#include "user32.as"
	#define WS_EX_CONTEXTHELP $00000400L
	GetWindowLong hwnd, -16
	SetWindowLong hwnd, -16, WS_EX_CONTEXTHELP

// コア
#define global ctype _pairOpPush2(%1, %2) %t_pairOp %s2 %s1	// 逆順 (%pN の N を(左:0→右:max)にするため)
#define global ctype _pairOpPush1(%1)     %t_pairOp %s1
#define global       _pairOpPop2          %t_pairOp %o0 %o0
#define global       _pairOpPop1          %t_pairOp %o0

#runtime "hsp3cl"

#packopt name "USA"