HSPTV!掲示板

DLLを発見したら selfolder を実行したいのですが、
callfunc で失敗してるようです。
どこを変えれば良いのでしょうか？

#uselib "kernel32.dll"
#cfunc LoadLibrary "LoadLibraryA" sptr
#cfunc GetProcAddress "GetProcAddress" int, sptr
#module
#deffunc selfolder var p1,str p2
	sdim _p1,1024
	_p2 = ""+p2
	prm = varptr(_p1), varptr(_p2)
	res = callfunc(prm, _selectfolder@, 2)
	p1  = _p1
	return res
#global
//---------------------------------
dll_path = dir_exe+"\\hspext.dll"
dirlist dummy,dll_path,0
if stat=1 : {	//DLLを発見したら実行
	hhspext = LoadLibrary(dll_path)
	_selectfolder = GetProcAddress(hhspext, "_selfolder@16")
	selfolder directory,"ディレクトリを選択してね byHSP3.x"
	mes "stat="+stat
	mes directory
}

参考にしました http://hsp.tv/play/pforum.php?mode=all&num=26356

　hspext.asを見ると以下のように記述してあります。
>#func selfolder selfolder $15
数値を指定した場合はhsp2.5以降と同じ仕様ということなので
調べてみると第４引数にrefstrへのポインタが渡されることに
なっています。

　呼び出す場合はrefstrにこだわる必要はないので、
4096バイトの文字列バッファへのポインタを渡せばいいでしょう。

>ANTARESさん
ありがとうございます。
以下のようにしたら成功しました。

#deffunc selfolder var p1,str p2
	sdim _p1,1024*4
	sdim _p3,1024*4
	_p2 = ""+p2
	prm = varptr(_p1), varptr(_p2),0,varptr(_p3)
	res = callfunc(prm, _selectfolder@, 4)
	mes "_p1="+_p1
	mes "_p3="+_p3
	p1  = _p1
	return res