Changeset 281 for Include/basic


Ignore:
Timestamp:
Jun 26, 2007, 8:49:53 PM (17 years ago)
Author:
イグトランス (egtra)
Message:

api_reg.sbp レジストリの関数の宣言をSDKより追加

Location:
Include/basic
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Include/basic/command.sbp

    r272 r281  
    4545
    4646Macro EXEC(filePath As String)(cmdLine As String)
    47     ShellExecute(0, "open", ToTCStr(filePath), ToTCStr(cmdLine), 0, SW_SHOWNORMAL)
     47    ShellExecute(0, ToTCStr("open"), ToTCStr(filePath), ToTCStr(cmdLine), 0, SW_SHOWNORMAL)
    4848End Macro
    4949

  • Include/basic/function.sbp

    r272 r281  
    511511        buffer[i] = Asc(".")
    512512        i++
    513         ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14)
     513        ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14 As SIZE_T)
    514514        i += 14
    515515        buffer[i] = Asc("e")
    … …  
    526526        buffer[i] = Asc(".")
    527527        i++
    528         ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14)
     528        ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14 As SIZE_T)
    529529        i+=14
    530530        buffer[i] = Asc("e")
Note: See TracChangeset for help on using the changeset viewer.