Changeset 603 for trunk


Ignore:
Timestamp:
Aug 21, 2008, 11:04:42 AM (16 years ago)
Author:
イグトランス (egtra)
Message:

[601][602]でのコミットし忘れ分と細かい修正

Location:
trunk/ab5.0/ablib/src
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab

    r599 r603  
    4747End Namespace
    4848
     49Function HResultToString(hr As HRESULT) As String
     50    Dim pszMsg As PCSTR
     51    FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER Or FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS,
     52        0, hr, LANG_USER_DEFAULT, VarPtr(pszMsg) As PTSTR, 0, 0)
     53    If pszMsg <> 0 Then
     54        HResultToString = New String(pszMsg)
     55        LocalFree(pszMsg)
     56    End If
     57End Function
    4958
    5059/*!
     
    6877    */
    6978    Sub WindowsException(hr As HRESULT)
    70         Exception(hresultToString(hr))
     79        Exception(HResultToString(hr))
    7180        HResult = hr
    7281    End Sub
     
    98107    End Sub
    99108Private
    100     Static Function hresultToString(hr As HRESULT) As String
    101         Dim pszMsg As PCSTR
    102         FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER Or FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS,
    103             0, hr, LANG_USER_DEFAULT, VarPtr(pszMsg) As PTSTR, 0, 0)
    104         If pszMsg <> 0 Then
    105             hresultToString = New String(pszMsg)
    106             LocalFree(pszMsg)
    107         End If
    108     End Function
    109109End Class
    110110
  • trunk/ab5.0/ablib/src/Classes/System/Environment.ab

    r586 r603  
    6969    Static Function OSVersion() As OperatingSystem
    7070        Dim vi As OSVERSIONINFO
     71        vi.dwOSVersionInfoSize = Len(vi)
    7172        GetVersionEx(vi)
    7273        OSVersion = New OperatingSystem(vi)
  • trunk/ab5.0/ablib/src/Classes/System/Math.ab

    r589 r603  
    315315        End If
    316316    End Function
    317 
     317/*
    318318    Static Function Sign(value As Double) As Long
    319319        If value = 0 Then
     
    325325        End If
    326326    End Function
    327 /*
     327
    328328    Static Function Sign(value As SByte) As Long
    329329        If value = 0 Then
  • trunk/ab5.0/ablib/src/WinNT.ab

    r599 r603  
    11771177'ACCESS TYPES
    11781178
    1179 'Const DELETE = (&h00010000)
     1179Const DELETE = (&h00010000)
    11801180Const READ_CONTROL = (&h00020000)
    11811181Const WRITE_DAC = (&h00040000)
  • trunk/ab5.0/ablib/src/basic.sbp

    r497 r603  
    132132        InitializeCriticalSection(_System_CriticalSection)
    133133
    134         _System_hProcessHeap=HeapCreate(HEAP_GENERATE_EXCEPTIONS,0,0)
     134        _System_hProcessHeap=HeapCreate(0,0,0)
    135135
    136136        ' GC管理オブジェクトを初期化
Note: See TracChangeset for help on using the changeset viewer.