【HSP3】ファイルがロックされているかチェック | Codetter（こーどったー）

// http://support.microsoft.com/kb/172240/ja
#include "kernel32.as"

#module
#define OF_READ 0
#define OF_SHARE_EXCLUSIVE 16
#define HFILE_ERROR (-1)
#define ERROR_SHARING_VIOLATION 32
#defcfunc IsFileAlreadyOpen str p1
	_lopen p1, OF_READ | OF_SHARE_EXCLUSIVE
	theFile = stat
	if theFile == -1{
		GetLastError
		lastErr = stat
	}else{
		_lclose theFile
	}
return ((theFile == HFILE_ERROR) && (lastErr == ERROR_SHARING_VIOLATION))
#global

	dialog "*",16
	if stat == 0 : end
	if IsFileAlreadyOpen(refstr){
		mes "オープン済みです"
	}else{
		mes "オープンされていません"
	}