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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
// 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 "オープンされていません"
    }
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX