'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	WORK0001_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()
	ReadData()
End Sub
Sub ReadData()
Dim fp As Long
Dim filename As string
Dim infiledata As string
Dim infiledummy As DWord
Dim status As Long

	filename = "wk.txt"
	fp = CreateFile(filename,GENERIC_READ,FILE_SHARE_READ,ByVal NULL,OPEN_EXISTING,0,0)
	If fp = -1 Then
		MsgBox  , filename & "がオープンできません"  
	End If
	infiledata=ZeroString(5)
	status = ReadFile(fp,StrPtr(infiledata),5,VarPtr(infiledummy),ByVal NULL)
	If fp = -1 Then
		MsgBox  , filename & "のデータが読めません"  
	End If
	CloseHandle(fp)
	msgbox , "ファイル名：" & filename
	msgbox , "読み込んだデータ：" & infiledata
	msgbox , "読み込まれたバイト数：" & Str$(infiledummy)

End Sub

Sub WriteData()
Dim fp As Long
Dim filename As string
Dim filedata As string
Dim filedatalen As Byte
Dim filedummy As DWord


	filename = "wk.txt"
	fp = CreateFile(filename,GENERIC_WRITE,0,ByVal NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_SEQUENTIAL_SCAN,0)
	If fp = -1 Then
		MsgBox  , filename & "がオープンできません"  
	End If


	filedata = "ABCDEFGHIJKLMN"
	filedatalen=Len(filedata)
	WriteFile(fp,StrPtr(filedata),filedatalen,VarPtr(filedummy), ByVal NULL)
	WriteFile(fp,StrPtr(filedata),filedatalen,VarPtr(filedummy), ByVal NULL)
	CloseHandle(fp)
	msgbox , "ファイル名：" & filename
	msgbox , "書き込んだデータ：" & filedata
	msgbox , "書き込まれたバイト数：" & Str$(filedummy)
End Sub
Sub MainWnd_CommandButton2_Click()
	WriteData()
End Sub