请问一个打开外部文件相关的问题，多谢！(100分)

balloy · 2002-12-10

我想在我的程序中，启动外部的编辑器来打开特定的文件，当程序结束后，再重新用 我程序中的控件（如Webbrowser）打开编辑过的文件。 因为文件类型可能很多，我不希望使用OpenProcess，只好用ShellExecuteEx，程序片段如下： procedure EditExternalFile( const strFileName : string ); var ShExecInfo : TSHELLEXECUTEINFO; bReturn : Boolean; begin // 这个操作是为了防止Ie独占文件 frmMain.wbContent.Navigate('about:blank'); ShExecInfo.cbSize := sizeof(TSHELLEXECUTEINFO); ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS; ShExecInfo.Wnd := Application.Handle; ShExecInfo.lpVerb := 'edit'; ShExecInfo.lpFile := PAnsiChar(strFileName); ShExecInfo.lpParameters := ''; ShExecInfo.lpDirectory := nil; ShExecInfo.nShow := SW_SHOW; bReturn := ShellExecuteEx(@ShExecInfo); if ( not bReturn ) then begin ShExecInfo.lpVerb := 'open'; bReturn := ShellExecuteEx(@ShExecInfo); end; if ( not bReturn ) then begin ShExecInfo.lpVerb := ''; ShExecInfo.lpFile := PAnsiChar('rundll32.exe shell32.dll,OpenAs_RunDLL ' + strFileName); bReturn := ShellExecuteEx(@ShExecInfo); end; if ( bReturn ) then begin while WaitForSingleObject(ShExecInfo.hProcess, 100) = WAIT_TIMEOUT do begin Application.ProcessMessages; if Application.Terminated then exit; end; frmMain.wbContent.Navigate( strFileName ); end; end; 我的想法是，首先尝试"edit"操作，不成功则继续尝试"open"操作，最后，只好调出“打开方式”对话框。 结果基本正常，但比如对ppt文件，由于没有"edit"操作，操作系统竟然自己弹出了一个对话框，告诉我 “该文件没有关联程序”！我想不显示这个对话框，但不知道该怎么做。 希望大家帮帮忙啊！多谢！多谢！

balloy · 2002-12-10

对了，还有一个问题，可不可以做到执行外部程序后，我的程序就不再接受用户的任何消息， 就好像外部程序是我程序的一个Modal窗口一样？谢谢！

iseek · 2002-12-10

1。你可以先判断某类文件的后缀呀，如果该类文件有关联程序，那么它就会在注册表里写有 信息，并指明与它关联的程序。这样，就过滤掉了没有关联程序的文件类型，因此不会出现 那个对话框了。 2。在启动外部程序的同时，你让你的程序窗口的enabled:=false就可以了。 你当然可以用一个timer，检测当外部程序的窗口关闭时，让你的程序窗口enabled:=true. 另外，要让一个外部程序像你自己的程序的一个Modal窗口，我不知道有没有什么API可以 做到，但你同样可以利用那个timer，检测当外部程序窗口不处于最上层时，用API设置 其为前景窗口。 以上是我的思路，没有验证。

balloy · 2002-12-10

to iseek: 非常感谢你的回答。通过查找注册表，你的方法似乎是可行的。我现在才发现，可以 从".txt"找出"textfile"，再找出相关操作，非常感谢，我以前以为要为每种不同的文件编写不同的代码呢。 不过，高兴之余，还是想问问，有没有更简单一些的办法？可以让我不要大改的？

jsxjd · 2002-12-10

运行一个程序并等待它终止 function WinExecAndWait32(   FileName:String; Visibility :integer):integer; var   zAppName:array[0..512] of char;   zCurDir:array[0..255] of char;   WorkDir:String;   StartupInfo:TStartupInfo;   ProcessInfo:TProcessInformation; begin   StrPCopy(zAppName,FileName);   GetDir(0,WorkDir);   StrPCopy(zCurDir,WorkDir);   FillChar(StartupInfo,Sizeof(StartupInfo),#0);   StartupInfo.cb := Sizeof(StartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := Visibility;   if not CreateProcess(nil,zAppName,     { pointer to command line string }     nil, { pointer to process security attributes }     nil, { pointer to thread security attributes }     false, { handle inheritance flag }     CREATE_NEW_CONSOLE or { creation flags }     NORMAL_PRIORITY_CLASS,     nil, { pointer to new environment block }     nil, { pointer to current directory name }     StartupInfo, { pointer to STARTUPINFO }     ProcessInfo) then Result := -1     { pointer to PROCESS_INF }   else begin     WaitforSingleObject(ProcessInfo.hProcess,INFINITE);     GetExitCodeProcess(ProcessInfo.hProcess,Result);   end; end;

iseek · 2002-12-10

你可以写一个函数或过程,解决某类文件是否有关联程序的问题. 如果有关联程序,用下面的过程就可以打开一个有关联程序的文件了. procedure URLink(URL: PChar); begin    ShellExecute(0, nil, URL, nil, nil, SW_NORMAL); end; 其中,URL可以是网址,也可以是文件名 不知道我理解得对不对.

iseek · 2002-12-10

TO jsxjd 你提到的例子我见过,但没有试过,应该可行吧,你试验过吗？

老人家 · 2002-12-10

To jsxjd 你的代码不行啊

zw84611 · 2002-12-10

jsxjd可能是没看清楼主的意思。 其实直接用open就行了，好象只有htm格式的才需要edit，还有什么其它格式需要吗？

balloy · 2002-12-11

不好意思，今天白天出去了，拖到现在才给分，问题解决了，多谢各位！

请问一个打开外部文件相关的问题，多谢！(100分)

balloy

Unregistered / Unconfirmed

balloy

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

balloy

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

老人家

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

balloy

Unregistered / Unconfirmed

Similar threads