澳门新葡萄京官网注册delphi 实现打开文件定位

delphi 实现张开文件定位

标题:怎么着用代码调控财富浏览器,并固定到钦定的文件?

ShellExecute的效劳是运作三个外界程序(或许是开荒一个已登记的文本、张开三个索引、打字与印刷二个文书等等),并对表面程序有一定的操纵。

能够落成文件展开后定位到格外文件同偶然候不实施它.

 

  有多少个API函数都能够兑现那几个效率,可是在大部情况下ShellExecute是愈来愈多的被利用的,同期它实际不是太复杂。上边比方表达它的用法。

代码:

答:使用ShellExecute,配合explorer即可

始于叁个新的应用程序
   ShellExecute(Handle, ‘open’, PChar(‘c:/test/app.exe’), nil, nil,
SW_SHOW);

用shellExecute
打开四个文书夹,那什么张开二个文本夹并当选钦定的文本呢。
上边五个函数就足以就能够产生:
filepath:=’F:手提式有线电话机有关winceMicrosoft Pocket PC 2003 SDK.msi’;
ShellExecute(0, nil, PChar(‘explorer.exe’),PChar(‘/e, ‘+ ‘/select, ‘ +
filepath), nil, SW_NORMAL,’,’,’);

ShellExecute(Application.Handle, ‘open’, PChar(‘explorer’),
PChar(‘/select,”D:sseetest.txt”’), nil, SW_SHOWDEFAULT)

开垦记事本,并张开叁个文件(系统能辨别记事本应用程序的门道,因而大家不用接收相对路线)
   ShellExecute(Handle, ‘open’, PChar(‘notepad’),
PChar(‘c:/test/readme.txt’), nil, SW_SHOW);

 

打字与印刷多个文档
   ShellExecute(Handle, ‘print’, PChar(‘c:/test/test.doc’), nil, nil,
SW_SHOW);

上边给出具体解释

   注意:大概您会看出word权且的被张开,但它会自行关闭。

 

张开二个HTML页面
   ShellExecute(Handle, ‘open’, PChar(”), nil,
nil, SW_SHOW);

1、Explorer.exe

您能因而二个业已登记的文件类型来开发应用程序
   ShellExecute(Handle, ‘open’, PChar(‘c:/test/readme.txt’), nil,
nil, SW_SHOW);

 

用windows Explorer 张开三个索引
   ShellExecute(Handle, ‘explore’, PChar(‘c:/windows)’, nil, nil,
SW_SHOW);

无人问津的参数 收藏
在Windows中,相信大家对“Explorer.exe”并不生分!经常状态下,在“初阶→运维”中输
入“Explorer.exe”命令就能够以“财富管理器”格局展开“作者的文书档案”。其实,Explorer.exe还应该有为数不菲未有人来拜候的参数。  命令格式

运维叁个DOS命令并立即回到
   ShellExecute(Handle, ‘open’, PChar(‘command.com’), PChar(‘/c copy
file1.txt file2.txt’), nil, SW_SHOW);

 

运作三个DOS命令并保持DOS窗口存在
   ShellExecute(Handle, ‘open’, PChar(‘command.com’), PChar(‘/k
dir’), nil, SW_SHOW);    

  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;State of Qatar:

 

{比方用记事本展开二个文件}

begin

  ShellExecute(Handle, ‘open’, ‘notepad.exe’,
‘C:WINDOWSSchedLgU.Txt’, nil, SW_SHOWNORMAL);

end;


 

{第三个参数是用来作为错误提醒窗口的父窗口的, 不可能是 nil, 能够是
0(相当于桌面窗口卡塔尔}

begin

  ShellExecute(0, ‘open’, ‘notepad.exe’, ‘C:WINDOWSSchedLgU.Txt’,
nil, SW_SHOWNORMAL);

end;


 

{第二个参数借使是 nil, 也会默许位 open}

begin

  ShellExecute(0, nil, ‘notepad.exe’, ‘C:WINDOWSSchedLgU.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, ”, nil, nil, 1);

end;

发表评论

电子邮件地址不会被公开。 必填项已用*标注