delphi - 如何使用默认文本编辑器打开文件？

Question

我想打开一个 *.conf 文件。我想使用标准 Windows 编辑器(例如 notepad.exe)打开此文件。

我目前有这个 ShellExecute 代码:

var
  sPath, conf: String;
begin
  try
  sPath := GetCurrentDir + '\conf\';
  conf := 'nginx.conf';
ShellExecute(Application.Handle, 'open', PChar(conf), '', Pchar(sPath+conf), SW_SHOW);
  except
    ShowMessage('Invalid config path.');
  end;
end; 

但是什么也没发生。那么我应该改变什么？

Answer 1

How do I open a file with the default text editor?

您需要使用ShellExecuteEx并使用SHELLEXECUTEINFO的lpClass成员指定您要将文件视为文本文件。像这样:

procedure OpenAsTextFile(const FileName: string);
var
  sei: TShellExecuteInfo;
begin
  ZeroMemory(@sei, SizeOf(sei));
  sei.cbSize := SizeOf(sei);
  sei.fMask := SEE_MASK_CLASSNAME;
  sei.lpFile := PChar(FileName);
  sei.lpClass := '.txt';
  sei.nShow := SW_SHOWNORMAL;
  ShellExecuteEx(@sei);
end;

将文件的完整路径作为 FileName 传递。