ab.com コミュニティ

コード: 全て選択

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

Function DropEditProc(hWnd As HWND, message As DWORD, wParam As DWORD, lParam As DWORD) As DWORD
	Select Case message
		Case WM_DROPFILES
			Dim hDrop As HDROP
			Dim FileName[MAX_PATH] As Byte
			hDrop=wParam As HDROP

			'ドロップされたファイル名を取得
			DragQueryFile(hDrop, 0, FileName, MAX_PATH)
			SetWindowText(GetDlgItem(hMainWnd,Static1), FileName)
			DragFinish(hDrop)
			DropEditProc=0
			Exit Function
	End Select
	DropEditProc=CallWindowProc(DefEditProc As VoidPtr, hWnd, message, wParam, lParam)
End Function

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

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()
	SetWindowLong(GetDlgItem(hMainWnd, CommandButton1), GWL_WNDPROC, DefEditProc)
	TextboxDrop_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	DefEditProc=SetWindowLong(GetDlgItem(hMainWnd, CommandButton1), GWL_WNDPROC, AddressOf(DropEditProc) As Long)

End Sub

コード: 全て選択

Const Print_Size=1024

Sub MainWnd_DropFiles(hDrop As HDROP)
	Dim buf As *Byte,buf2 As *Byte,buf3[2] As Byte
	Dim FileNameLen As Long
	Dim i As Long,j As Long
	j=DragQueryFile(hDrop,-1,0,0)-1
	buf2=calloc(Print_Size+1)
	buf3[0]=&H0D'buf3は改行用
	buf3[1]=&H0A
	buf3[2]=0
	For i=0 To j
		FileNameLen=DragQueryFile(hDrop,0,buf,NULL)+1
		buf=calloc(FileNameLen)
		DragQueryFile(hDrop,i,buf,FileNameLen)
		If lstrlen(buf2)+FileNameLen<Print_Size-2 then
			lstrcat(buf2,buf)'追加
			lstrcat(buf2,buf3)'改行
		End If
		free(buf)
	Next
	MessageBox(hMainWnd,buf2,"test",MB_OK)'表示
	DragFinish(hDrop)'D&Dのハンドルの開放
	free(buf2)
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	DragAcceptFiles(hMainWnd,TRUE)'D&Dを許可
End Sub