Windows・Systemフォルダの取得             <TOP>


OSによりWindowsおよびSystemフォルダが異なります。

GetWindowsDirectory Windowsディレクトリのパス名を取得
GetSystemDirectory Windows のシステムディレクトリのパスを取得
 

WindowsXP Home

Windows98

Windows2000、WindowsXP Pro(所持していない)

参照

特殊フォルダパス取得

 

'================================================================
'= ウィンドウズ・システムフォルダ取得
'=    (WIN_SYS_FOLDER.bas)
'================================================================
#include "Windows.bi"

' Windowsディレクトリのパス名を取得
Declare Function Api_GetWindowsDirectory& Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer$, ByVal nSize&)

' Windows のシステムディレクトリのパスを取得。システムディレクトリには、Windows ライブラリ、ドライバなどのファイルが置かれている
Declare Function Api_GetSystemDirectory& Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer$, ByVal nSize&)

Var Shared Text1 As Object
Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14

'================================================================
'=    
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Var WinPath As String * 255
    Var SysPath As String * 255
    Var WinPathLen As Long
    Var SysPathLen As Long
    Var txt As String

    WinPathLen = Api_GetWindowsDirectory(WinPath, Len(WinPath))
    SysPathLen = Api_GetSystemDirectory(SysPath, Len(SysPath))

    txt = "Windowsフォルダ:" & Left$(WinPath, InStr(WinPath, Chr$(0)) - 1) & Chr$(13,10)
    txt = txt & "System フォルダ:" & Left$(SysPath, InStr(SysPath, Chr$(0)) - 1)

    Text1.SetWindowText txt
End Sub

'================================================================
'=    
'================================================================
While 1
    WaitEvent
Wend
Stop
End