㈠ 在DELPHI中如何获得文件路径
begin
edit1.text:=extractfiledir(application.ExeName);
edit1.text:=extractfilepath(application.ExeName);
这个是获取自身目录的函数，两函数不同的是一个路径后带有"\"，一个没有
如果要获取打开文件的路径，使用opendialog控件（在dialogs控件组下）：
begin
if opendialog1.Execute then
edit1.text:=opendialog1.FileName ;
//在文本框显示路径
end;
㈡ 如何在delphi6中实现搜索文件并得到路径
用FindFirst, FindNext, FindClose加上递归举纯编程实现。这三个函数的用法delphi的帮助中有例子：
FindFirst, FindNext, FindClose example
procereTForm1.Button1Click(Sender:TObject);
var
sr:TSearchRec;
FileAttrs:Integer;
begin
StringGrid1.RowCount:=1;
肢液ifCheckBox1.Checkedthen
FileAttrs:=faReadOnly
else
FileAttrs正饥咐:=0;
ifCheckBox2.Checkedthen
FileAttrs:=FileAttrs+faHidden;
ifCheckBox3.Checkedthen
FileAttrs:=FileAttrs+faSysFile;
ifCheckBox4.Checkedthen
FileAttrs:=FileAttrs+faVolumeID;
ifCheckBox5.Checkedthen
FileAttrs:=FileAttrs+faDirectory;
ifCheckBox6.Checkedthen
FileAttrs:=FileAttrs+faArchive;
ifCheckBox7.Checkedthen
FileAttrs:=FileAttrs+faAnyFile;
withStringGrid1do
begin
RowCount:=0;
ifFindFirst(Edit1.Text,FileAttrs,sr)=0then
begin
repeat
if(sr.AttrandFileAttrs)=sr.Attrthen
begin
RowCount:=RowCount+1;
Cells[1,RowCount-1]:=sr.Name;
Cells[2,RowCount-1]:=IntToStr(sr.Size);
end;
untilFindNext(sr)<>0;
FindClose(sr);
end;
end;
end;
㈢ delphi中如何获得某一文件的本地路径
extractFilePath(Application.exename)
㈣ 如何通过delphi编程实现获取某软件的安装路径
这个要根据具体软件来定高培。
1.一般windows平台下软件，会在注册表中写相关数据，你可以读取软件戚源唯在注册表中的相关信息来读取。
2.有的软件会在开始菜单里有项目，那么读取其文件属性，也可以获取其所在路径。
3.如果都不行，那只能是搜索硬盘，查找并对比软件名称、大小等信息裂激来得到路径。
㈤ delphi获取路径
获取其它软件路径通常的方法就是读取注册表（改禅如果那个软件有写入注册表的话），对于QQ来说也是一样的，你宽碧可以在有QQ的机器上搜索一下Tencent或者QQ.exe试试看，比如在偶的机器上就有HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDlls下就有一个D:\Tencent\QQ\Bin\QQ.exe（当然其它的有写入QQ安装目录的注册表还有很多）
之后就简单了，直接去读取这个位置，怎么读注册表不用说了吧。
对于那些不写注册表也没有什么文件的软件来说，要定位位置唯一的方法就是核巧尘全盘搜索它的exe文件名。
㈥ Delphi 中如何获取安装文件路径下指定文件夹的具体路径
方法有二，如下详述：
一、循环测试
已知相对路径，与绝对路径之差仅在于根路径，即探索究竟在哪个分区上，那么，最傻瓜的方法就是从C循环至Z，逐一测试路径是否存在，大致代码为：
function GetEurekaLogDir : string;
const
C_sDir : string = 'Eurekalog 5\delphi5';
var
i : Integer;
s : string;
begin
Result := '';
for i := Ord( 'C' ) to Ord( 'Z' ) do
begin
s := Chr( i ) + ':\' + C_sDir;
if DirectoryExists( s ) then
begin
Result := s;
Exit;
end;
end;
end;
也可以增加一点儿“技术含量”，不是简单地从C循环至Z，而是先获取系统具有的分区配置，仅在配置列表中循环测试，调用GetLogicalDrives或GetLogicalDriveStrings均可实现。
二、查询注册表
不少软件安装后，会在注册表中记录其安装位置，对于EurekaLog的安装位置，可以手工打开注册表编辑器(RegEdit)，查找到它的位置，记住其关键的路径，然后编程序获取该路径下的键值。
这个方法应该更加正规，它还支持软件在安装之际，人为改变了安装路径的情形。例如，你把EurekaLog安装在"c:\program files\myPreferred"等不带EurekaLog字样的路径下时，也能找到它。
㈦ 巨简单，Delphi中仅选择目录或文件路径的控件是哪个
选择目录或文件路径 有多种方式，通常可以使用以下方法：
1、直接使用 WinApi 函数，专如 SelectDirectory 等。
2、使属用选择文件（路径）对话框控件，如 OpenDialog 等。
3、使用与 shell 相关的控件，如 ShellTreeView、ShellListView、TDirectoryOutLine 等。
㈧ delphi如何自动提取文件路径保存到SQL数据库中
可以使用FindFirst和并孙FindNext函数查找文件谈蔽亩，如：
begin
Found := FindFirst("d:\test\*.*", Attr, SearchRec);
while Found = 0 do
begin
/含森/处理找出来的文件
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
TSearchRec类型定义如下：
type
TSearchRec = record
Time : Integer;
Size : Integer;
Attr : Integer;
Name : TFileName;
ExcludeAttr : Integer;
FindHandle : THandle;
FindData : TWin32FindData;
end;
㈨ Delphi中打开一个文件 怎样得到着个文件的路径啊
if OpenDialog1.Execute then begin
showmessage(OpenDialog1.FileName);
end;
㈩ 请问怎样在delphi中获取一个文件的路径,
extractfiledir
不带'\'extractfilepath
带'\'
若这个文件在根目次，它们是一样的，getdir是获得当前的路径，并不是获得一个文件的路径，请楼上想清跋扈再说。