【HSP3】絶対パスを相対パスに変換 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#uselib "Shlwapi.dll"
#func PathRelativePathToA "PathRelativePathToA" var,str,int,str,int
#func PathRelativePathToW "PathRelativePathToW" var,wptr,int,wptr,int
#define FILE_ATTRIBUTE_DIRECTORY 0x10
#define FILE_ATTRIBUTE_NORMAL 0x80
    frompath = "C:\\test\\hsp\\test\\test.txt"
    topath = "C:\\test\\hsp3\\hogehoge\\hsp.txt"
    
    sdim outpath, 260
    PathRelativePathToA outpath, frompath, FILE_ATTRIBUTE_DIRECTORY, topath, FILE_ATTRIBUTE_NORMAL
    
    mes "From    : "+frompath
    mes "To      : "+topath
    mes "相対パス: "+outpath
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX