callfunc で失敗してるようです。
どこを変えれば良いのでしょうか?
参考にしました http://hsp.tv/play/pforum.php?mode=all&num=26356
#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 }