;==================================================
;=============ファイルの属性を変更する=============
;==================================================
;llmod.asが必要です

;SetFileAtt s1,n2
;
;	HspExtのfxaset命令と、多分同じ動作をします。
;	(ソース見たから大丈夫だと思う…)
;	容量削減にどぞ。



#module "SetFileAtt"
#deffunc SetFileAtt str,int
	mref stt,64
	mref _filename,32
	mref mode,1

	sdim filename,256
	filename=_filename

	getptr pm.0,filename
	pm.1=mode

	dllproc "SetFileAttributesA", pm, 2, D_KERNEL@
	if dllret@=0:stt=1:else:stt=0
return
#global