Changeset 258 for Include/Classes/System/Environment.ab

Timestamp:

May 21, 2007, 1:03:21 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

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

File:

• Include/Classes/System/Environment.ab (modified) (5 diffs)

Include/Classes/System/Environment.ab

@@ -3 +3 @@
 #require <api_psapi.sbp>
 #require <Classes/System/OperatingSystem.ab>
+
+Namespace System
+
+Namespace Detail
+    TypeDef PFNGetProcessMemoryInfo = *Function(Process As HANDLE, ByRef mc As PROCESS_MEMORY_COUNTERS, cb As DWord) As BOOL
+End Namespace
 
 Class Environment
@@ -45 +51 @@
     End Function
 
-    ' MachineName
+    Static Function MachineName() As String
+        If Object.ReferenceEquals(machineName, Nothing) Then
+            Dim buf[MAX_COMPUTERNAME_LENGTH] As TCHAR
+            Dim len = (MAX_COMPUTERNAME_LENGTH + 1) As DWord
+            GetComputerName(buf, len)
+            machineName = New String(buf, len As Long)
+        End If
+        Return machineName
+    End Function            
 
     Static Function NewLine() As String
@@ -90 +104 @@
     ' UserInteractive
 
-    ' UserName
+    Static Function UserName() As String
+        If Object.ReferenceEquals(userName, Nothing) Then
+            Dim buf[UNLEN] As TCHAR
+            Dim len = (UNLEN + 1) As DWord
+            GetUserName(buf, len)
+            userName = New String(buf, len As Long)
+        End If
+        Return userName
+    End Function            
 
     ' Version
 
+Public
+    'NTでしか使用できない仕様
     Static Function WorkingSet() As Int64
-        TypeDef PFNGetProcessMemoryInfo = *Function(Process As HANDLE, ByRef mc As PROCESS_MEMORY_COUNTERS, cb As DWord) As BOOL
-        Dim pGetProcessMemoryInfo As PFNGetProcessMemoryInfo
         Dim hmodPSAPI = LoadLibrary("PSAPI.DLL")
         If hmodPSAPI = 0 Then Return 0
-        pGetProcessMemoryInfo = GetProcAddress(hmodPSAPI, ToMBStr("GetProcessMemoryInfo")) As PFNGetProcessMemoryInfo
+        Dim pGetProcessMemoryInfo = GetProcAddress(hmodPSAPI, ToMBStr("GetProcessMemoryInfo")) As Detail.PFNGetProcessMemoryInfo
         If pGetProcessMemoryInfo <> 0 Then
             Dim mc As PROCESS_MEMORY_COUNTERS
@@ -136 +158 @@
     ' GetEnvironmentVariables
 
+    Static Function GetFolderPath(f As Environment_SpecialFolder) As String
+'       If ... Then
+'           Throw New ArgumentException
+'       End If
+        Dim x As Long
+        x = f
+        Return ActiveBasic.Windows.GetFolderPath(x)
+    End Function
+
     ' GetLogicalDrives
 
@@ -143 +174 @@
     Static cmdLine = Nothing As String
     Static exitCode = 0 As Long
+    Static machineName = Nothing As String
     Static osVer = Nothing As OperatingSystem
     Static processorCount = 0 As Long
     Static sysDir = Nothing As String
+    Static userName = Nothing As String
 End Class
+
+Enum Environment_SpecialFolder
+    Desktop = CSIDL_DESKTOP
+    Programs = CSIDL_PROGRAMS
+    Personal = CSIDL_PERSONAL
+    MyDocuments = CSIDL_PERSONAL
+    Favorites = CSIDL_FAVORITES
+    Startup = CSIDL_STARTUP
+    Recent = CSIDL_RECENT
+    SendTo = CSIDL_SENDTO
+    StartMenu = CSIDL_STARTMENU
+    MyMusic = CSIDL_MYMUSIC
+    DesktopDirectory = CSIDL_DESKTOPDIRECTORY
+    MyComputer = CSIDL_DRIVES
+    Templates = CSIDL_TEMPLATES
+    ApplicationData = CSIDL_APPDATA '4.71
+    LocalApplicationData = CSIDL_LOCAL_APPDATA
+    InternetCache = CSIDL_INTERNET_CACHE
+    Cookies = CSIDL_COOKIES
+    History = CSIDL_HISTORY
+    CommonApplicationData = CSIDL_COMMON_APPDATA '5.0
+    System = CSIDL_SYSTEM
+    CommonProgramFiles = CSIDL_PROGRAM_FILES
+    ProgramFiles = CSIDL_PROGRAM_FILES
+    MyPictures = CSIDL_MYPICTURES
+End Enum
+
+
+End Namespace 'System