使用外部编辑器打开文件的正确代码

Question

下面的代码是否正确，如果错误，请更正它。

注意：除非“Microsoft Office Word”是默认程序，否则我想用“WordPad.exe”而不是“Microsoft Office Word”打开文件。

我的代码：

function InitializeSetup: Boolean; 
var 
    S: AnsiString; 
begin 
    // Show the contents of Readme.txt (non Unicode) in a message box 
    ExtractTemporaryFile('Info.rtf'); 
    Result := True; 
end; 

procedure AboutButtonOnClick(Sender: TObject); 
var 
    ErrorCode: Integer; 
begin 
    ShellExec('open', ExpandConstant('{tmp}\Info.rtf'), '', '', SW_SHOWNORMAL, ewNoWait, 
ErrorCode); 
end; 

Answer 1

ShellExec('open','Documentname'....);将与该文件的扩展名关联的程序中打开。如果没有关联的程序，它会提示您选择要查看的程序。

您可以查找WordPad.exe，如果发现可以直接使用WordPad.EXE拨打ShellExec。然后传递documentName作为参数。

更新与功能做到这一点

procedure OpenDocumentInWordPad(Document : String); 
var 
WordPad : String; 
ErrorCode : Integer; 
begin 
    // Typical Location on XP and later. 
    WordPad := ExpandConstant('{pf}') + '\Windows NT\Accessories\WordPad.exe' 
    // Find word pad 
    if Not FileExists(WordPad) then 
    begin 
    // Location in Windows 95/98 
    WordPad := ExpandConstant('{pf}') + '\Accessories\WordPad.exe' 
    if Not FileExists(WordPad) then 
    begin 
     // Fall back to anything associated with document. 
     WordPad := Document; 
     Document := ''; 
    end; 
    end; 

    if not ShellExec('open',WordPad,Document,'',SW_SHOW,ewNoWait,ErrorCode) then 
    begin 
     MsgBox(SysErrorMessage(ErrorCode),mbError,MB_OK); 
    end; 
end;