HSPTV!掲示板

ホント質問ばかりですいません＾＾；
ググってもあまり分からなかったので質問させてもらいます。
今、HSPでインストーラーを作っています。

以下は、コードの一部です。

;;;;;前略
	shname="テスト"
	inspath="C:"
;;;;;中略
	pos 0,0
	mes "インストールしています"
	mes "・フォルダーを作成しています..."
;フォルダ作成
	folderchk=inspath+"\\test"
	dirlist x,folderchk,5
	if stat=1:dialog "\""+folderchk+"\"は、すでに存在するため、インストールできません。\n違うディレクトリーを選択してください。":goto *page3
	chdir inspath+"\\"
	mkdir "test"
;解凍（どっかのサンプルの改造）
	mes "・ファイルをコピーしています..."
	chdir dir_exe
	#uselib "UNZIP32"
	#func UnZip "UnZip" nullptr, str, int, int
	if varptr(UnZipGetVersion) = 0 {;;;;;dllがあるか調べる
		dialog "エラー"
		end
	}
	sdim filepath, 256
	sdim outpath, 256
	sdim szOutput,1024
	UnZip "\"test.zip\" \""+folderchk+"\""
	mes stat
;ショートカット作成
	mes "ショートカットを作成しています..."
	chdir dir_desktop
	fxlink shname,inspath+"\\test\\test.exe"
;レジストリ書き込み
	mes "レジストリにアンインストーラ情報を書き込んでいます..."
	DisplayName="Test"
	us="uninst"
	regkey 1,"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\InstTest",1
	setreg DisplayName,"DisplayName",1;この行でエラーが出る
	setreg us,"UninstallString",1
;完了
;;;;;後略

実行すると、「この行でエラーが出る」とコメントしてある行で、「外部dllの呼び出し失敗」エラーがなぜか出ます。
そして、正常に解凍されず、statに「32809」が代入されます。

質問してばかりの私ですが、分かる方教えてください.<m(_ _)m>

〜修正〜
　この文だと何を教えてといてるのか分かりませんねｗｗ

　言いたいことは、どこをどうすれば、エラーをなくせるかです。

>>「外部dllの呼び出し失敗」エラーがなぜか出ます。
>>正常に解凍されず、statに「32809」が代入されます。

　取りあえず、”正常に解凍されない”最小限のスクリプトを出して下さい。
　複数の質問と省略が混じった物では、相手も分かりません。

　正常に解凍できたスクリプトは在るのでしょうか？

すいません＾＾；あまり長いスクリプトを載せるのはよくないと思ったので省きました。（１５０行程度あるため）
>>取りあえず、”正常に解凍されない”最小限のスクリプトを出して下さい。
　１４行目から２７行目です

質問の仕方が悪かったです。以後気をつけます<m(_ _)m>

#func UnZipGetVersion "UnZipGetVersion"
がないとエラーチェックの記述が意味無い気がする。

#func UnZip "UnZip" nullptr, str, int, int
#func UnZipGetVersion "UnZipGetVersion"
	if varptr(UnZipGetVersion) = 0 {;;;;;dllがあるか調べる
		dialog "エラー"
		end
	}

もしかしたら、unzip32.dllがインストールされてないとか？

既に問題は解決してしまっているかもしれませんが、
二番目のレジストリの問題は、
レジストリが作成されてるのに新規作成モードで作成しようとしているから
エラーはかれてるんじゃないかな？

こちらの反応が無いので、ちょうど別の質問で同様なのがあったので
そちらに答えました。

http://hsptv.sakura.ne.jp/play/pforum.php?mode=all&num=27880

同様のやり方で通りませんか？

ありがとうございます。
皆さんの回答を参考にさせてもらいます。