Delphi获取相对路径的文件名（不带路径）

ExtractFileName(文件完整路径 含文件名)

例：

procedure TForm1Button1Click(Sender: TObject);

begin

if OpenDialog1Execute then

begin

showmessage(ExtractFileName(OpenDialog1FileName));

end;

end;

以上例子为：当点击Button1时，d出选择文件后，显示所选的文件名称（含扩展名）。

GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数

0 驱动器类型不确定

1 系统目录不存在

2 DRIVE_REMOVABLE 是可移动驱动器

3 DRIVE_FIXED 是固定驱动器

4 DRIVE_REMOTE 是网络驱动器

5 DRIVE_CDROM 是CD-ROM驱动器

6 DRIVE_RAMDISK 是虚拟驱动器

function getPath : integer;

var

i:integer;

begin

for i := 65 to 90 do

begin

if (GetDriveType(Pchar(chr(i)+':/')) = 2) or (GetDriveType(Pchar(chr(i)+':/')) = 3) then

Form1ListBox1itemsaddObject(chr(i)+':/',Pointer(i));

end;

end;

getcurrentdir：获取当前路径，但是注意，此项值在调用OPENDIALOG或者SAVEDIALOG之后会被动态改变。

所以你可以用SAVEDIALOG保存文件

保存以后 用getcurrentdir获取的就是刚才保存的目录

实际上 用OPENDIALOG打开就是刚才定位的目录

至于定位到文件，那不行

不过可以 保存时记录文件路径

OpenDialog1FileName:='刚才定位的文件路径';

OpenDialog1Execute;

那样的话 相当于是默认选择这个文件了

如果非要那个效果，那你可以自己写个OpenDialog 也不难

楼上正解 ShellListView只要设个viewstyle属性vsReport就OK了

如果要设置 起始路径 就设置 root属性即可 root属性其实就是String类型的

（可以在delphi里 用ctrl+鼠标左键点击关键字 找到“头文件”中的定义的）

procedure TForm1FormCreate(Sender: TObject);

begin

ShellListView1Root := 'C:\Dev-Cpp';

end;

ShellListView控件很少用资料不太好找

否则就要 用ListView控件 + FindFirstFile 、FindNextFile 这些查找文件的Windows API了

这就麻烦点了

以上就是关于Delphi获取相对路径的文件名（不带路径）全部的内容，包括:Delphi获取相对路径的文件名（不带路径）、delphi如何获取电脑盘符并将其添加到树形控件中去，求解。。。、delphi 导出文件打开文件夹能否定位刚才导出的文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！