我半年才问一个问题,别让我失望： 如果知道一个文件的全路径，如何实现类似WINDOWS的快捷方式的“属性”对话框中的那个“查找目标”功能，就是打开文件夹，并选中

  • 主题发起人 主题发起人 zyg_zm
  • 开始时间 开始时间
Z

zyg_zm

Unregistered / Unconfirmed
GUEST, unregistred user!
我半年才问一个问题,别让我失望： 如果知道一个文件的全路径，如何实现类似WINDOWS的快捷方式的“属性”对话框中的那个“查找目标”功能，就是打开文件夹，并选中该文件 (30分)<br />今天就想要答案，
我试过
ShellExecute(Handle,'explore',"{文件名}",'','',SW_SHOWNORMAL)不行
还有就是：如何打开“打开方式”窗口？
 
你试试WinExec(Pchar('文件路径',sw_Hide);
 
TO form1:这样肯定不行，我并不是要运行程序，我是要打开文件夹找到这个文件
 
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='c:/windows/notepad.exe';
ShellExecute(0,'explore',pchar(extractFiledir(s)),nil,nil,SW_SHOW);
ShellExecute(0,'open',pchar(s),nil,nil,SW_SHOW);
end;
 
to jsxjd ：
你写的我都试过了，第一句ShellExecute(0,'explore',pchar(extractFiledir(s)),nil,nil,SW_SHOW);只是可以打开文件夹，
第二句ShellExecute(0,'open',pchar(s),nil,nil,SW_SHOW);是运行文件，我现在不是要运行文件，是“查找目标”

谁还有办法？？？？
 
回家了，大家帮我看看这个问题吧（看清楚题目）
明天早上见......
 
能不能具体点，不太明白！
查找“文件或文件夹”?
 
to jsxjd:就是通过一个文件的具体路径，打开资源管理器，显示这个文件所在的文件夹，并且选中
这个文件。就是WINDOWS快捷方式的“属性”对话框里，有个“查找目标”的按钮，我要的效果就
和那个一样...你试试就知道
 
大家快帮帮我啊...其实我很少来问问题的，不得已才来...
 
学习，顺便问一下楼主这样做派什么用场
 
function ExtractFileName(const FileName: string): string;
filename 文件的路径，默认值是当前路径。[:)]
 
我在做一个传文件的工具，可以一下子传送好多文件，并保存有历史记录，我想让用户查看记录的时候
很快就可以找到相应的文件.
 
to ：weichao9999:不知道您回答的是哪个问题？
 
老兄，用我的这个。
procedure TForm1.Button1Click(Sender: TObject);
var
sCMD,sFileName:string;
begin
sFileName:='c:/SiSSetup.txt'; //要查找的文件名
sCMD := 'explorer /select,' + sFileName; // select是参数
winexec(PChar(sCMD),sw_show);
end;
 
我要的就是这个，谢谢 yeath
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
梦
请问：怎样从剪贴板中获取 已复制的文件的路径？(100分)
回复
4
查看
228
梦之旅
梦
8
简单问题：请问在Delphi中为什么用打开对话框打开的快捷方式显示的是文件实际路径 (100分)
回复
2
查看
117
82625741
8
L
如何用鼠标点击文件夹图标，Edit1.text:=“这个文件夹的全路径名"?(100分)
2
回复
28
查看
353
lah998
L
J
在xp系统下‘我的文档‘的路径问题(35分)
回复
11
查看
217
jzg2002
J
后退
顶部