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

;【HSP3.x 移植版】
;『HSPの裏技』シンプルモードステータスバー
; (ハイライト表示されているメニュー項目の説明を表示する例)
; http://chokuto.ifdef.jp/urawaza/statusbar2.html
;

; 【HSP3.x 移植版】
; 『HSPの裏技』シンプルモードステータスバー
;  http://chokuto.ifdef.jp/urawaza/statusbar2.html

#uselib "comctl32.dll"

;【HSP3.x 移植版】
;『HSPの裏技』ステータスバーを作成してみる
; http://chokuto.ifdef.jp/urawaza/statusbar.html

#uselib "comctl32.dll"

#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

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

	dialog "jpg", 16, "画像選べや"
	if stat=1 : picload refstr : else : dialog "選べや" : end

	onexit *exit

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

// Wikipediaに記載の擬似コードから変換しています
// http://ja.wikipedia.org/wiki/%E3%83%AC%E3%83%BC%E3%83%99%E3%83%B3%E3%82%B7%E3%83%A5%E3%82%BF%E3%82%A4%E3%83%B3%E8%B7%9D%E9%9B%A2
#module
#defcfunc min3 int p1, int p2, int p3
	if p1 > p2{