@hinekure_inoviaさんが投稿したコード一覧 | ページ 2 | Codetter（こーどったー）

#include "hspcv.as"

orgdir = dir_cur
repeat
	cvloadxml orgdir+"\\haarcascade_frontalface_alt2.xml"

// Windows XP 以上で動作するらしいです
//#include "modReplace.hsp"
#include "mod_regexp.as"
#include "kernel32.as"

#include "user32.as"
#include "kernel32.as"
#module __VOICEROID_ZUNKO__
#deffunc zunko_init
	// ウィンドウ名とかクラス名とか

// 2 MB 以上のWAVE 形式のファイルをメモリ上で再生
// http://dev.onionsoft.net/trac/browser/trunk/hsp3/win32gui/mmman.cpp

#pack "ChimeMP3.wav"
;#pack "ChimePCM.wav"

#module
#deffunc ConvertStringToVariant var out, str in 
	dimtype out, vartype("variant")
	out("vt") = 8/*VT_BSTR*/
	out("val") = in

#uselib "kernel32"
#func Wow64DisableWow64FsRedirection "Wow64DisableWow64FsRedirection" var
#func Wow64RevertWow64FsRedirection "Wow64RevertWow64FsRedirection" var

	// わざと決め打ちしてしてます

#include "user32.as"
#include "gdi32.as"
#define DT_WORDBREAK		0x00000010
#define DT_EDITCONTROL		0x00002000
// http://hsp.tv/play/pforum.php?mode=pastwch&num=41339

#include "user32.as"
#define DT_WORDBREAK		0x00000010
#define DT_EDITCONTROL		0x00002000

	font "メイリオ",32,16

/*======================================================================
    ツイートサンプル
------------------------------------------------------------------------
    ツイートするサンプルです。

#include "user32.as"
#module
#uselib "msvcrt"
#cfunc strstr "strstr" int, sptr
#uselib "kernel32"