找一个函数(15分)

当鼠标点击一个文件时,得到这个文件的完整的路径名和文件名.<br>我只知道GetCurrentDir 这个可以得到路径名<br>如果点击的是目录和文件,那目录名和文件名怎样才能得到<br>请各位大侠赐教!

在线等待中....

GetFileAttributes()只能读到文件属性，没有路径<br>你的做法不对<br>在加载文件前，就应该把其路径保存到tstrings里了，选择文件后在这个列表里检索<br>而不是马后炮，根据文件没有方位的找路径

是不是想要SelectDirectory或opendialog？

我想做的就是WINDOWS中单键---&gt;属性.功能<br>出现一个窗口,里面可以编辑目录或文件的相关属性.<br>现在可以有得到路径,没有办法知道是什么文件啊.

不太明白，您的文件或目录是怎么来的呢？

自己去看看GetFileAttributes函数<br>文件大部分属性都在里面

我写了一个EXE<br>首先在注册表里建立了关联.<br>在资源管理器或我的电脑中,只要打开扩展名为.JMT的文件,就自动运行我的EXE<br>EXE的功能就编辑JMT文件.<br>问题就在这里了,EXE启动时,怎么获取当前鼠标点击的.JMT文件名和路径!

真没一个人知道呀?<br>不至于吧

也想知，顶一下。

不用获取当前鼠标点击的.JMT文件名和路径! <br><br>因为你已关联了此文件,所以双击会直接运行你的程序<br><br><br>procedure TForm1.WMDROPFILES(var Msg: TMessage);<br>var<br> &nbsp;a &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; : Integer;<br> &nbsp;Buffer &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;: array[0..255] of Char;<br>begin<br> &nbsp;a := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 255);<br> &nbsp;for a := 0 to a - 1 do<br> &nbsp;begin<br> &nbsp; &nbsp;DragQueryFile(Msg.wParam, a, Buffer, 255);<br> &nbsp; &nbsp;//文件名就在Buffer里面了,下面你可以做任何事<br> &nbsp;end;<br> &nbsp;DragFinish(Msg.wParam);<br>end;<br>procedure TForm1.FormCreate(Sender: TObject);<br><br>begin<br><br>DragAcceptFiles(Handle, True); &nbsp; &nbsp; &nbsp; &nbsp;//启动窗口对文件的接收<br>end;