Changeset 258 for Include/basic/function.sbp

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• Include/basic/function.sbp (modified) (1 diff)

Include/basic/function.sbp

@@ -1231 +1231 @@
 End Function
 
+Namespace ActiveBasic
+    Namespace Windows
+        Function GetPathFromIDList(pidl As LPITEMIDLIST) As String
+            Dim buf[ELM(MAX_PATH)] As TCHAR
+            If SHGetPathFromIDList(pidl, buf) Then
+                Return New String(buf)
+            Else
+                Return ""
+            End If
+        End Function
+
+        Function GetFolderPath(hwnd As HWND, folder As Long) As String
+            Dim pidl As LPITEMIDLIST
+            Dim hr = SHGetSpecialFolderLocation(hwnd, folder, pidl)
+            If SUCCEEDED(hr) Then
+                GetFolderPath = GetPathFromIDList(pidl)
+                CoTaskMemFree(pidl)
+            Else
+                GetFolderPath = ""
+            End If
+        End Function
+
+        Function GetFolderPath(folder As Long) As String
+            Return GetFolderPath(0, folder)
+        End Function
+    End Namespace
+End Namespace
+
 #endif '_INC_FUNCTION