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

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #1

我半年才问一个问题,别让我失望： 如果知道一个文件的全路径，如何实现类似WINDOWS的快捷方式的“属性”对话框中的那个“查找目标”功能，就是打开文件夹，并选中该文件 (30分)<br />今天就想要答案，
我试过
ShellExecute(Handle,'explore',"{文件名}",'','',SW_SHOWNORMAL)不行
还有就是：如何打开“打开方式”窗口？

 

F

form1.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #2

你试试WinExec(Pchar('文件路径',sw_Hide);

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #3

TO form1:这样肯定不行，我并不是要运行程序，我是要打开文件夹找到这个文件

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #4

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;

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

to jsxjd ：
你写的我都试过了，第一句ShellExecute(0,'explore',pchar(extractFiledir(s)),nil,nil,SW_SHOW);只是可以打开文件夹，
第二句ShellExecute(0,'open',pchar(s),nil,nil,SW_SHOW);是运行文件，我现在不是要运行文件，是“查找目标”

谁还有办法？？？？

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #6

回家了，大家帮我看看这个问题吧（看清楚题目）
明天早上见......

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #7

能不能具体点，不太明白！
查找“文件或文件夹”?

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #8

to jsxjd:就是通过一个文件的具体路径，打开资源管理器，显示这个文件所在的文件夹，并且选中
这个文件。就是WINDOWS快捷方式的“属性”对话框里，有个“查找目标”的按钮，我要的效果就
和那个一样...你试试就知道

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #9

大家快帮帮我啊...其实我很少来问问题的，不得已才来...

 

A

aefhh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #10

学习，顺便问一下楼主这样做派什么用场

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #11

function ExtractFileName(const FileName: string): string;
filename 文件的路径，默认值是当前路径。[]

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #12

我在做一个传文件的工具，可以一下子传送好多文件，并保存有历史记录，我想让用户查看记录的时候
很快就可以找到相应的文件.

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #13

to ：weichao9999:不知道您回答的是哪个问题？

 

一

一生中最爱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #14

gz

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #15

老兄，用我的这个。
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;

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #16

我要的就是这个，谢谢 yeath