TkinterでDnDを実装するには（64bit Window版）

Question

TkinterでエクスプローラからDnDでファイルを受け取るアプリを作成してみようと思いました。

参考サイトの内容を元にコードを作成してみましたが、残念なことに 64bit Windows 10 ではうまく動作しません。

Python+TkでD&D －MasaHeroの日記より
http://d.hatena.ne.jp/MasaHero/20111201/p1

ctypesを使って、WindowsのDDLを直接操作しています。
32bit Windows7 にて、python 2.7 と 3.4で動作を確認しています。

これを64bit Windowsでも動作させるにはどのように修正すればよいでしょうか？

# -*- coding: UTF-8 -*-
# このスクリプトは OSのDDLを利用しているため、Windowsでのみ動作します。

try: import Tkinter as tk
except ImportError: import tkinter as tk
import ctypes, sys
from ctypes import c_long, WINFUNCTYPE
from ctypes.wintypes import HWND, UINT, WPARAM, LPARAM

WM_DROPFILES = 0x0233
GWL_WNDPROC = -4
FS_ENCODING = sys.getfilesystemencoding()

DragAcceptFiles = ctypes.windll.shell32.DragAcceptFiles
DragQueryFile = ctypes.windll.shell32.DragQueryFile
DragFinish = ctypes.windll.shell32.DragFinish
CallWindowProc = ctypes.windll.user32.CallWindowProcW
GetWindowLong = ctypes.windll.user32.GetWindowLongW
SetWindowLong = ctypes.windll.user32.SetWindowLongW


class TkApp(tk.Frame):
    dnd_interval = 600
    
    def __init__(self, *args, **kargs):
        tk.Frame.__init__(self, *args, **kargs)
        self.createwidget()
        self.dropnames = []
        win = args[0] if args else self._root()
        win = self.tw

        def drop_check():
            if self.dropnames:
                fns = self.dropnames
                self.dropnames = []
                self.dnd_notify(fns)
            win.after(self.dnd_interval, drop_check)


        @WINFUNCTYPE(c_long, HWND, UINT, WPARAM, LPARAM)
        def replace_win_proc(hwnd, msg, wp, lp):
            u"""D&D用のコールバック
    ファイルのドラッグアンドドロップイベント(WM_DROPFILES)を検出して、
    ドロップされたファイル名を保持する。
    ここでウィンドウ(tk)を使用するとハングアップするのでデータ保存だけ行う。
    """
            if msg == WM_DROPFILES:
                nf = DragQueryFile(wp, -1, None, None)
                buf = ctypes.c_buffer(260)
                fns = [ buf.value.decode(FS_ENCODING) for nn in range(nf) \
                        if DragQueryFile(wp, nn , buf, ctypes.sizeof(buf)) ]
                DragFinish(wp)
                self.dropnames.extend(fns)
                print("%s dnd_notify: %s" % (self, hwnd))

            return CallWindowProc(self.org_proc, hwnd, msg, wp, lp)


        def dnd_setup():
            "Windowsのイベント処理のフックを定義する"
            hwnd = win.winfo_id()
            DragAcceptFiles(hwnd, True)
            self.org_proc = GetWindowLong(hwnd, GWL_WNDPROC)
            self.win_proc = replace_win_proc
            SetWindowLong(hwnd, GWL_WNDPROC, self.win_proc)
            win.after_idle(drop_check)
            print("%s dnd_setup: %s,%s" % (self, hwnd, self.org_proc))

        self.pack(fill='both', expand=1)
        win.after_idle(dnd_setup)

        
    def createwidget(self):
        tw = tk.Text(self, width=30,height=16)
        tw.pack(fill='both', expand=1)
        self.tw = tw


    def dnd_notify(self, filenames):
        for nn in filenames:
            self.tw.insert('end',"%s\n" % nn)


if __name__ == "__main__":
    a = TkApp()
    if 0: TkApp(tk.Toplevel()) # 複数ウィンドウに対応
    a.mainloop()

実行するとウィンドウが表示されます。そちらにエクスプローラからファイルやディレクトリをドロップすると、そのファイルのパスを表示（追記）します。

UNCでもうまく動作しているようです。

64bit Windows 10 では GetWindowLong の返り値が0になっているので、その辺りを調整すればよいのでは？と思うのですが..

Answer 1

その後の調査で、64bit版のpythonでもエクスプローラからDnDが動作するようになりました。
まずDLLからAPIのエンドポイントを取り出すところの記述を次のように修正しました。

DragQueryFile = ctypes.windll.shell32.DragQueryFile
DragQueryFile.argtypes = [ ctypes.c_void_p, UINT, ctypes.c_void_p, UINT ]
DragFinish = ctypes.windll.shell32.DragFinish
DragFinish.argtypes = [ ctypes.c_void_p ]
CallWindowProc = ctypes.windll.user32.CallWindowProcW
CallWindowProc.argtypes = [ ctypes.c_void_p, HWND , UINT, WPARAM, LPARAM ]
try: SetWindowLong = ctypes.windll.user32.SetWindowLongPtrW
except AttributeError: SetWindowLong = ctypes.windll.user32.SetWindowLongW

64bitの場合は、SetWindowLong の APIのエンドポイントが異なるのと
ポインタを操作する部分を 明示的に ctypes.c_void_p で示してやる必要がありました。

またこの利用ケースの場合、SetWindowLong はその返り値が GetWindowLong と同じであることが分かったので
GetWindowLong 関連の記述を除去して

self.org_proc = SetWindowLong(hwnd, GWL_WNDPROC, self.win_proc)

と置き換えました。

また、python 3 ではプロトタイプで UINTとしているところに Noneを渡すとエラーとなりました。
そのため DragQueryFile の呼び出しを次のように None から 0 に変えました。

nf = DragQueryFile(wp, -1, None, 0)

以上の修正で動作が確認できました。