Changeset 173
- Timestamp:
- Mar 17, 2007, 5:56:56 PM (18 years ago)
- Location:
- Include
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Environment.ab
r152 r173 38 38 End Sub 39 39 40 Static SubHasShutdownStarted() As Boolean40 Static Function HasShutdownStarted() As Boolean 41 41 Return False 42 End Sub42 End Function 43 43 44 44 ' MachineName -
Include/Classes/System/OperatingSystem.ab
r142 r173 13 13 End Sub 14 14 15 Sub OperatingSystem(vi As OSVERSIONINFOA) As OperatingSystem15 Sub OperatingSystem(vi As OSVERSIONINFOA) 16 16 pf = vi.dwPlatformId As PlatformID, 17 17 ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber) … … 19 19 End Sub 20 20 21 Sub OperatingSystem(vi As OSVERSIONINFOW) As OperatingSystem21 Sub OperatingSystem(vi As OSVERSIONINFOW) 22 22 pf = vi.dwPlatformId As PlatformID, 23 23 ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber) -
Include/api_system.sbp
r170 r173 253 253 ByRef hWritePipe As HANDLE, 254 254 ByVal pPipeAttributes As *SECURITY_ATTRIBUTES, 255 ByVal nSize As DW ORD) As Long255 ByVal nSize As DWord) As Long 256 256 Declare Function CreateSemaphore Lib "kernel32" Alias _FuncName_CreateSemaphore (pSemaphoreAttributes As *SECURITY_ATTRIBUTES, lInitialCount As Long, lMaximumCount As Long, pName As PCTSTR) As HANDLE 257 257 … … 762 762 763 763 Declare Function SetFileTime Lib "kernel32" (hFile As HANDLE, ByRef lpCreationTime As FILETIME, ByRef lpLastAccessTime As FILETIME, ByRef lpLastWriteTime As FILETIME) As BOOL 764 Declare FunctionSetLastError Lib "kernel32" (dwErrCode As DWord)765 Declare FunctionSetLastErrorEx Lib "kernel32" (dwErrCode As DWord, dwType As DWord)764 Declare Sub SetLastError Lib "kernel32" (dwErrCode As DWord) 765 Declare Sub SetLastErrorEx Lib "kernel32" (dwErrCode As DWord, dwType As DWord) 766 766 Declare Function SetLocalTime Lib "kernel32" (ByRef lpSystemTime As SYSTEMTIME) As BOOL 767 767 Declare Function SetPriorityClass Lib "kernel32" (hProcess As HANDLE, dwPriorityClass As DWord) As BOOL -
Include/basic/command.sbp
r165 r173 93 93 .fMask = MIIM_TYPE 94 94 95 If lpString.Length = 0 Then95 If str.Length = 0 Then 96 96 mii.fType = MFT_SEPARATOR 97 97 Else -
Include/objidl.sbp
r160 r173 283 283 Function DAdvise( 284 284 /* [in] */ ByRef pformatetc As FORMATETC, 285 /* [in] */ ByVal advf As DW ORD,285 /* [in] */ ByVal advf As DWord, 286 286 /* [unique][in] */ ByVal pAdvSink As *IAdviseSink, 287 287 /* [out] */ ByVal pdwConnection As *DWord) As HRESULT -
Include/system/enum.sbp
r131 r173 13 13 Sub Copy(ByRef obj As EnumBase) 14 14 m_Value=obj.m_Value 15 End Sub16 17 Sub Operator = (ByRef value As EnumBase) As EnumBase18 m_Value = value.m_Value19 15 End Sub 20 16
Note:
See TracChangeset
for help on using the changeset viewer.