请教高手大狭，谁知道用API怎么实现OpenDialog的所有功能？(100分)

见题目？

GetOpenFileName<br>所有功能我可写不起<br>简单的实现<br>var<br>&nbsp; fnRec : tagOFNA;<br>&nbsp; StrFile: Array [0..1023] of Char;<br>begin<br>&nbsp; ZeroMemory(Addr(fnRec), SizeOf(tagOFNA));<br>&nbsp; ZeroMemory(Addr(StrFile), SizeOf(StrFile));<br><br>&nbsp; fnRec.lStructSize:= SizeOf(tagOFNA);<br>&nbsp; fnRec.hWndOwner:= Application.Handle;<br>&nbsp; fnRec.hInstance:= 0;<br>&nbsp; fnRec.lpstrFilter:=PChar('所有文件(*.*)'#0'*.*'#0'文本文件(*.txt)'#0'*.txt'#0#0);<br>&nbsp; fnRec.lpstrFile:= StrFile;<br>&nbsp; fnRec.nMaxFile:= 1024;<br>&nbsp; fnRec.lpstrTitle:= '打开文件';<br>&nbsp; GetOpenFileName(fnRec);<br>

请问楼上老兄：tagOFNA是什么呀？

到 CommDlg.pas 单元去查看一下就知道了。tagOFNA 基本就是 tagOpenFileName 的意思。<br>呵呵，不会连 API 的数据类型都这么生疏吧。