'================================================================
'= ウインドウテキスト(タイトル)の取得と設定

'=    (GetWindowtext.bas)
'================================================================
#include "Windows.bi"

' ウインドウのタイトル文字列を取得
Declare Function Api_GetWindowText& Lib "user32" Alias "GetWindowTextA" (ByVal hWnd&, ByVal lpString$, ByVal cch&)

' ウインドウのタイトルを変更
Declare Function Api_SetWindowText& Lib "user32" Alias "SetWindowTextA" (ByVal hWnd&, ByVal lpString$)

' ウィンドウのタイトル文字数を取得
Declare Function Api_GetWindowTextLength& Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd&)

Var Shared Edit1 As Object

Edit1.Attach GetDlgItem("Edit1")

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

    MyStr = String$(Api_GetWindowTextLength(GethWnd) + 1, Chr$(0))
    Ret = Api_GetWindowText(GethWnd, MyStr, Len(MyStr))
    Edit1.SetWindowText MyStr
End Sub

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

    MyStr = Edit1.GetWindowText
    Ret = Api_SetWindowText(GethWnd, MyStr)
    Edit1.SetWindowText ""
End Sub

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