'================================================================
'= ディレクトリ取得３題
'================================================================
#include "Windows.bi"

' 自プロセスのカレントディレクトリを取得
Declare Function Api_GetCurrentDirectory& Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength&, ByVal lpBuffer$)

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

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

Var Shared Text1 As Object
Var Shared Text2 As Object
Text1.Attach GetDlgItem("Text1")
Text2.Attach GetDlgItem("Text2")

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Directory As String
    Var Ret As Long

    Directory = String$(255, 0)
    Ret = Api_GetCurrentDirectory(255, Directory)
    Text1.SetWindowText "カレントディレクトリ"
    Text2.SetWindowText Directory
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var Directory As String
    Var Ret As Long

    Directory = String$(255, 0)
    Ret = Api_GetSystemDirectory(Directory, 255)
    Directory = Left$(Directory, Ret)
    Text1.SetWindowText "システムディレクトリ"
    Text2.SetWindowText Directory
End Sub

'================================================================
'=
'================================================================
Declare Sub Button3_on edecl ()
Sub Button3_on()
    Var Path As String
    Var Directory As String
    Var Ret As Long

    Directory = String$(255, Chr$(0))
    Ret = Api_GetWindowsDirectory(Directory, Len(Directory))
    Directory = Left$(Directory, Ret)
    Text1.SetWindowText "Windowsディレクトリ"
    Text2.SetWindowText Directory
End Sub

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