'================================================================
'= ウィンドウズ・システムフォルダ取得

'=    (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