怎样在系统隐藏了文件名的前提下，程序中获得文件的全名也就是包括扩展名。

Question

我现在把想枚举某个目录下的所有文件，这个已经做到了，通过SHELL，但是有于目录里的文件名的扩展名都被系统隐藏了，我得不到每个文件的全名，我现在就是想问，如果我知道了一个文件名的全路径和名称（当然不包括扩展名）我怎么能够获得它的扩展名呢？谢谢！

Answer 1

我觉得这和那个没有关系的呀，隐藏不隐藏都应该得到完整的文件名吧。也许你用shell有关，不用它，用那个win3.1标签里的fiellistbox

Answer 2

8341(八三四一):是吗！可我对fiellistbox不太熟悉啊。难道知道一个某个目录下一个文件的前缀名就没办法知道它的后缀名是什么了吗？希望知道的朋友指点一下，我目前不太想换整体的方法，这样我会有很大的变动的。

Answer 3

function ExtractFileName(const FileName: string): string;
Or
function ExtractFileExt(const FileName: string): string;

Answer 4

加一个FileListBox控件，然后在一个按钮里：
var
i:integer;
begin
  FileListBox1.Directory:='c:\winnt';
  for i:=0 to FileListBox1.Count-1 do
    showmessage( FileListBox1.Items[i]);
end;
试试。

Answer 5

为什么不使用FindFirst, FindNext 函数呢？