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

#define CLSID_MODI "{40942A6C-1520-4132-BDF8-BDC1F71F547B}"
#define IID_IDocument "{D4073843-A58A-469A-A8E2-CFF3FF77EE4E}"
#define IID_ILayout "{C300C846-A3FD-4A5B-AD65-4A6AB46B7821}"
#define IID_IImage "{AC0D48A6-886D-4EB5-A8A1-093D60B9A84A}"

/***************************************************************
   [ Mem_Picload ]                             Version  1.01
   
    - BMP, GIF, JPEG, PNG, TIFF など GDI+ がサポートするファイル
    をメモリ上から開くことが出来るようになります。

#uselib "qrcodelib.dll"
#func QRcode_encodeString "QRcode_encodeString" str,int,int,int,int
#func QRcode_free "QRcode_free" int

	// 使用ライブラリ

#uselib "qrcodelib.dll"
#func QRcode_encodeString "QRcode_encodeString" str,int,int,int,int
#func QRcode_free "QRcode_free" int

	// 使用ライブラリ

#include "kernel32.as"
#define FILE_SHARE_READ 0x00000001
#define FILE_SHARE_WRITE 0x00000002
#define GENERIC_READ 0x80000000
#define GENERIC_WRITE 0x40000000

#include "kernel32.as"
#define FILE_SHARE_READ 0x00000001
#define FILE_SHARE_WRITE 0x00000002
#define GENERIC_READ 0x80000000
#define GENERIC_WRITE 0x40000000

// http://web.archive.org/web/20060511161900/http://www.apple.ac/~namasoft/codebank/delphi2.php
#include "kernel32.as"
#include "user32.as"

#module _st_

#include "kernel32.as"
#include "user32.as"

#define global STANDARD_RIGHTS_REQUIRED 0x000f0000
#define global SYNCHRONIZE 0x00100000

	tt = "GOM PlayerをHSPで操作してみるサンプル"
	// GomXの設置
	axobj GomX, "{632CC9D6-5602-4854-AFD2-6EFC59177DE5}", 640, 480
	// イベントの登録
	comevent GomXEvent, GomX, "{46899D92-473E-413E-9F47-8D0765860AE9}", *event

	; 背景描画
	redraw 0
	repeat 1000
		color rnd(128)+128, rnd(128)+128, rnd(128)+128