
modoulehandle := GetModuleHandle(edit1text);
tmpfilename := GetModuleName(modoulehandle);
edit2text:= extractfilepath(tmpfilename);
例:
procedure TForm1Button1Click(Sender: TObject);
begin
if OpenDialog1Execute then
begin
showmessage(ExtractFileName(OpenDialog1FileName));
end;
end;
以上例子为:当点击Button1时,d出选择文件后,显示所选的文件名称(含扩展名)。
以上就是关于用delphi,我的电脑里有一个文件a.doc,但是我不知道这个文件的路径,我怎么搜索出这个文件并得到路径全部的内容,包括:用delphi,我的电脑里有一个文件a.doc,但是我不知道这个文件的路径,我怎么搜索出这个文件并得到路径、Delphi获取相对路径的文件名(不带路径)、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)