敦格

观自在菩萨,行深般若波罗蜜多时,照见五蕴皆空,能度一切苦厄

如何用代码定位硬盘上的文件

问题:如何用代码控制资源浏览器,并定位到指定的文件?

 

答:使用ShellExecute,配合explorer即可

ShellExecute(Application.Handle, 'open', PChar('explorer'), PChar('/select,”D:\ss\ee\test.txt”'), nil, SW_SHOWDEFAULT)

 

下面给出具体解释

 

1、Explorer.exe

 

鲜为人知的参数 收藏 在Windows中,相信大家对“Explorer.exe”并不陌生!通常情况下,在“开始→运行”中输 入“Explorer.exe”命令就能以“资源管理器”方式打开“我的文档”。其实,Explorer.exe还有很多鲜为人知的参数。  命令格式

 

  Explorer [/n][/e][[,/root],[path]][[,/select],[path filename]]

 

  参数说明

 

  /n表示以“我的电脑”方式打开一个新的窗口,通常打开的是Windows安装分区的根目录。

 

  /e表示以“资源管理器”方式打开一个新的窗口,通常打开的也是Windows安装分区的根目录。

 

  /root,[path]表示打开指定的文件夹,/root表示只显示指定文件夹下面的文件(夹),不显示其它磁盘分区和文件夹;[path]表示指定的路径。

 

  如果不加/root参数,而只用[path]参数,则可以显示其它磁盘分区和文件夹中的内容。另外,[path]还可以指定网络共享文件夹。

 

  /select,[path filename]表示打开指定的文件夹并且选中指定的文件,[path filename]表示指定的路径和文件名。

 

  如果不加/select参数,则系统会用相应的关联程序打开该文件。如果[path filename]不跟文件名就会打开该文件夹的上级目录并选中该文件夹。

 

2、ShellExecute

 

ShellExecute(

  hWnd: HWND;        {指定父窗口句柄}

  Operation: PChar;  {指定动作, 譬如: open、print}

  FileName: PChar;   {指定要打开的文件或程序}

  Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil}

  Directory: PChar;  {缺省目录}

  ShowCmd: Integer   {打开选项}

): HINST;            {执行成功会返回应用程序句柄; 如果这个值 <= 32, 表示执行错误}

 

//返回值可能的错误有:

                       = 0   {内存不足}

ERROR_FILE_NOT_FOUND   = 2;  {文件名错误}

ERROR_PATH_NOT_FOUND   = 3;  {路径名错误}

ERROR_BAD_FORMAT       = 11; {EXE 文件无效}

SE_ERR_SHARE           = 26; {发生共享错误}

SE_ERR_ASSOCINCOMPLETE = 27; {文件名不完全或无效}

SE_ERR_DDETIMEOUT      = 28; {超时}

SE_ERR_DDEFAIL         = 29; {DDE 事务失败}

SE_ERR_DDEBUSY         = 30; {正在处理其他 DDE 事务而不能完成该 DDE 事务}

SE_ERR_NOASSOC         = 31; {没有相关联的应用程序}

 

//ShowCmd 参数可选值:

SW_HIDE            = 0;  {隐藏}

SW_SHOWNORMAL      = 1;  {用最近的大小和位置显示, 激活}

SW_NORMAL          = 1;  {同 SW_SHOWNORMAL}

SW_SHOWMINIMIZED   = 2;  {最小化, 激活}

SW_SHOWMAXIMIZED   = 3;  {最大化, 激活}

SW_MAXIMIZE        = 3;  {同 SW_SHOWMAXIMIZED}

SW_SHOWNOACTIVATE  = 4;  {用最近的大小和位置显示, 不激活}

SW_SHOW            = 5;  {同 SW_SHOWNORMAL}

SW_MINIMIZE        = 6;  {最小化, 不激活}

SW_SHOWMINNOACTIVE = 7;  {同 SW_MINIMIZE}

SW_SHOWNA          = 8;  {同 SW_SHOWNOACTIVATE}

SW_RESTORE         = 9;  {同 SW_SHOWNORMAL}

SW_SHOWDEFAULT     = 10; {同 SW_SHOWNORMAL}

SW_MAX             = 10; {同 SW_SHOWNORMAL}

--------------------------------------------------------------------------------

 

//举例说明更多问题(别忘了 uses ShellAPI;):

 

{譬如用记事本打开一个文件}

begin

  ShellExecute(Handle, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{第一个参数是用来当作错误提示窗口的父窗口的, 不能是 nil, 可以是 0(也就是桌面窗口)}

begin

  ShellExecute(0, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{第二个参数如果是 nil, 也会默认位 open}

begin

  ShellExecute(0, nil, 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{文件路径可以放在参数五}

begin

  ShellExecute(0, nil, 'notepad.exe', 'SchedLgU.Txt', 'C:\WINDOWS', SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{把参数三直接指定为要打开的文件, 文件将用对应默认程序打开; 次数参数四应为 nil}

begin

  ShellExecute(0, nil, 'SchedLgU.Txt', nil, 'C:\WINDOWS', SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{如果文件在: 程序目录/当前目录/System32/Windows/PATH环境变量中, 参数五也可以 nil}

begin

  ShellExecute(0, nil, 'SchedLgU.Txt', nil, nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{如果参数三是个文件, 可以用参数二命令打印}

begin

  ShellExecute(0, 'print', 'SchedLgU.Txt', nil, nil, 1);

end;

--------------------------------------------------------------------------------

 

{用 IE 打开网页}

begin

  ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{用火狐打开网页}

begin

  ShellExecute(Handle, 'open', 'firefox.exe', 'about:blank', nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{用默认浏览器打开网页}

begin

  ShellExecute(Handle, 'open', 'Explorer.exe', 'about:blank', nil, SW_SHOWNORMAL);

end;

--------------------------------------------------------------------------------

 

{还是用默认浏览器打开网页}

begin

  ShellExecute(0, nil, 'http://del.cnblogs.com', nil, nil, 1);

end;

 

 

阅读更多
版权声明:【敦格作品】,欢迎引用,注明出处:http://blog.csdn.net/shuaihj https://blog.csdn.net/shuaihj/article/details/6869304
个人分类: 编程语言-Delphi
所属专栏: Delphi之重
想对作者说点什么? 我来说一句

何用u盘装系统图文教程

2016年01月04日 211B 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭