如何在Delphi中检测资源管理器的文件打开请求？

a) 感知文件名请求 #

双击关联文件时，Windows会自动把文件完整路径作为命令行参数传递给程序，你直接在.dpr文件里通过ParamCount判断是否存在参数，用ParamStr(1)获取文件路径即可。示例代码：

if ParamCount >= 1 then
  // 处理ParamStr(1)指向的目标文件

注意：如果文件路径包含空格，Windows会自动用双引号包裹，但ParamStr(1)会直接返回去掉引号的完整路径，无需额外解析。

b) 判断程序是否已运行 #

用系统互斥量（Mutex）实现单实例检测，这是最可靠的系统级判断方式：

var
  hMutex: THandle;
begin
  // 创建全局唯一互斥量，建议用程序专属GUID命名，避免冲突
  hMutex := CreateMutex(nil, True, 'YourProgramUniqueMutex-12345678-ABCD-EFGH-IJKL-MNOPQRSTUVWX');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    // 程序已运行，执行参数传递逻辑
    CloseHandle(hMutex);
    SendParamToRunningInstance(ParamStr(1));
    Exit;
  end;
  
  // 程序未运行，正常启动流程
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  // 启动时若带参数，直接传给主窗口处理
  if ParamCount >= 1 then
    MainForm.OpenTargetFile(ParamStr(1));
  Application.Run;
  CloseHandle(hMutex);
end.

c) 向已运行实例传递参数 #

用Windows标准的WM_COPYDATA消息实现跨进程参数传递，步骤如下：

1. 在主窗口单元中添加消息处理逻辑：

const
  WM_FILE_OPEN_REQUEST = WM_USER + 100; // 自定义消息标识

type
  TMainForm = class(TForm)
  protected
    procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
  public
    procedure OpenTargetFile(const FilePath: string);
  end;

procedure TMainForm.WMCopyData(var Msg: TWMCopyData);
var
  TargetPath: string;
begin
  if Msg.CopyDataStruct.dwData = WM_FILE_OPEN_REQUEST then
  begin
    SetString(TargetPath, PChar(Msg.CopyDataStruct.lpData), Msg.CopyDataStruct.cbData div SizeOf(Char));
    OpenTargetFile(TargetPath);
    Msg.Result := 1; // 通知发送方接收成功
  end;
end;

procedure TMainForm.OpenTargetFile(const FilePath: string);
begin
  // 这里写你的文件打开逻辑
  ShowMessage('打开文件：' + FilePath);
end;

2. 在.dpr文件中实现参数传递函数：

procedure SendParamToRunningInstance(const FilePath: string);
var
  MainWnd: HWND;
  CopyData: TCopyDataStruct;
begin
  // 根据主窗口类名查找已运行的窗口（类名对应你的主窗口类，比如TMainForm）
  MainWnd := FindWindow('TMainForm', nil);
  if MainWnd = 0 then Exit;

  // 填充COPYDATA结构
  CopyData.dwData := WM_FILE_OPEN_REQUEST;
  CopyData.cbData := (Length(FilePath) + 1) * SizeOf(Char);
  CopyData.lpData := PChar(FilePath);

  // 发送参数并激活窗口
  SendMessage(MainWnd, WM_COPYDATA, 0, LPARAM(@CopyData));
  SetForegroundWindow(MainWnd);
end;

补充检查项 #

确保注册表关联项的command值格式正确，比如HKEY_CLASSES_ROOT\.xxx\shell\open\command的默认值必须是"你的程序完整路径" "%1"，其中"%1"是Windows传递文件路径的占位符，不能省略。

内容的提问来源于stack exchange，提问作者Mike Scott