HSPTV!掲示板

質問ですが、
CreateWindowExでポップウィンドウを作成することはできますか？
RegisterClassExでウィンドウクラスを作成して、
CreateWindowExでウィンドウを作成する
という流れは調べてわかったのですが、いざプログラムを打ち込んでも
失敗してしまいました。わかる方教えてください。

#include "user32.as"
Class="PopupWindowClass"
WNDCLASSEX= strlen(WNDCLASSEX),$16CA0000,0,0,0,0,0,varptr(Class),0
RegisterClassEx varptr(WNDCLASSEX)//登録
winobj "PopupWindowClass","",$16CA0000 | $10000 | $40000,200,200//CreateWindowExのかわり
if stat = -1:dialog "Error"//失敗時

CreateWindowExを出してみる

#include "user32.as"

#include "gdi32.as"
#include "hscallbk.as"

#uselib ""
#func Prc "" int,int,int,int

setcallbk Proc, Prc, *WProc
GetWindowLong hwnd, -4
Old = stat
Class = "PopupWindowClass"

dim WNDCLASSEX, 12
WNDCLASSEX.0 = 48
WNDCLASSEX.1 = 0
WNDCLASSEX.2 = varptr(Proc)
WNDCLASSEX.3 = 0
WNDCLASSEX.4 = 0
WNDCLASSEX.5 = g_hInstance
WNDCLASSEX.6 = 0
WNDCLASSEX.7 = 0
WNDCLASSEX.8 = 0
WNDCLASSEX.9 = 0
WNDCLASSEX.10= varptr(Class)
WNDCLASSEX.11= 0

RegisterClassEx varptr(WNDCLASSEX)
if stat = -1:dialog "Error"//失敗時

CreateWindowEx 0, "PopupWindowClass", "", $16CA0000, 0x80000000, 0x80000000, 400, 400, 0, 0, g_Instance, 0
if stat = -1:dialog "Error"//失敗時


stop

*WProc

		CallWindowProc Old, callbkarg(0), callbkarg(1), callbkarg(2), callbkarg(3)
		
	return

ちょくとさんのhscallbk.asが必要

> CreateWindowExでポップウィンドウを作成することはできますか？
コールバック関数を使える環境を整えない限りHSPでは出来ません。

・コールバック用モジュールができました
http://hsp.tv/play/pforum.php?mode=all&num=62130
↑
これを使えばプロシージャ関数を使えると思いますが、
そんな使い方するぐらいならばC/C++言語を使った方がスマートですよ。

なぜ HSP で CreateWindowEx を使いたいのでしょうか？
winobj 命令でいろいろなコントロールは作成できますが…。
ポップアップ・ウインドウも screen 命令などでいいように思いますけど。

ありがとうございました。
なぜCreateWindowExでポップウィンドウを作成しようとしたかいうと、
screen命令で出したウィンドウクラスの"hspwnd0"よりも、独自のクラス名を作ったら、
外部コントロールしやすい思ったからです。