tk_getOpenFileはショートカット(.lnk)ファイルそのものを返すことはできない。
Tkの組み込みコマンドなのでスクリプトで改造もできない。
OSネイティブのきれいなダイアログじゃなくてよければ可能。

::tk::dialog::file:: open

tk_getOpenFileコマンドがないときに使われる古いダイアログみたい。

詳しくは以下参照。
$::tk_library/tk.tcl
$::tk_library/tkfbox.tcl