Ignore:
Timestamp:
May 21, 2007, 1:03:21 AM (18 years ago)
Author:
イグトランス (egtra)
Message:

Prompt.sbp内を名前空間に入れた。EnvironmentのMachineName, UserName, GetFolderPathを実装。

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Threading/WaitHandle.ab

    r237 r258  
    33#ifndef __SYSTEM_THREADING_WAITHANDLE_AB__
    44#define __SYSTEM_THREADING_WAITHANDLE_AB__
     5
     6'Namespace System
     7'Namespace Threading
     8
     9Namespace Detail
     10    TypeDef PFNSignalObjectAndWait = *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord
     11End Namespace
    512
    613Class WaitHandle
     
    6269    End Function
    6370
     71Public
    6472    Static Function SignalAndWait(ByRef toSignal As WaitHandle, ByRef toWaitOn As WaitHandle, millisecondsTimeout As Long, exitContext As BOOL) As BOOL
    65         TypeDef PFNSignalObjectAndWait = *Function(hObjectToSignal As HANDLE, hObjectToWaitOn As HANDLE, dwMilliseconds As DWord, bAlertable As DWord) As DWord
    66         Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As PFNSignalObjectAndWait
     73        Dim pSignalObjectAndWait = GetProcAddress(GetModuleHandle("Kernel32.dll"), "SignalObjectAndWait") As Detail.PFNSignalObjectAndWait
    6774        If pSignalObjectAndWait = 0 Then
    6875            ' PlatformNotSupportedException
     
    105112End Class
    106113
     114'End Namespace 'Threading
     115'End Namespace 'System
     116
    107117#endif '__SYSTEM_THREADING_WAITHANDLE_AB__
Note: See TracChangeset for help on using the changeset viewer.