就您而言，您需要 AssocQueryString。您可以给它文件扩展名，它会告诉您注册来处理该扩展名的程序（AssocStr_Executable）。如果您计划运行该程序来打开文档，那么您确实需要命令字符串而不仅仅是可执行文件； AssocQueryString 也可以为您提供该功能 (AssocStr_Command)。它还可以告诉您文档类型，例如 Windows 资源管理器中显示的文档类型，例如“文本文档”或“Zip 存档”(AssocStr_FriendlyDocName)。

该 API 函数是 IQueryAssociations 界面。如果您正在寻找来自多种文件类型的程序，或查找与单一类型关联的大量字符串，您可能希望实例化该接口并重用它，而不是一遍又一遍地调用 API 函数。

回复收藏 0 原文

爱要勇敢去追 2024-09-03 20:54:09

Delphi 附带一个单元 ShellApi.pas，在下面的示例代码中使用它。该文件必须存在。

使用方法如下：

function MyShellFindExecutable(const aFileName: string): string;
var
  Buffer: array[0..WINDOWS.MAX_PATH] of Char;
begin
  Result := '';
  FillChar(Buffer, SizeOf(Buffer), #0);
  if (SHELLAPI.FindExecutable(PChar(aFileName), nil, Buffer) > 32) then
    Result := Buffer;
end;

Delphi comes with a unit ShellApi.pas that is used in the sample code below. The file has to exist.

Here's how to use it:

function MyShellFindExecutable(const aFileName: string): string;
var
  Buffer: array[0..WINDOWS.MAX_PATH] of Char;
begin
  Result := '';
  FillChar(Buffer, SizeOf(Buffer), #0);
  if (SHELLAPI.FindExecutable(PChar(aFileName), nil, Buffer) > 32) then
    Result := Buffer;
end;

回复收藏 0 原文

〃安静 2024-09-03 20:54:09

我认为你需要结合 Mef 和 Rob Kennedy 的答案。

采用 Rob Kennedy 的答案并执行 Mef 答案中的步骤 2。直接读取注册表并不是一件好事，所以你应该扔掉他的第 1 部分。

但我并不是在寻找文件类型的友好名称。

AssocQueryString 不仅返回文件类型的友好名称 (ASSOCSTR_FRIENDLYDOCNAME），而且它还可以返回打开文件的可执行文件的名称（ASSOCSTR_EXECUTABLE) - 这就是您所需要的。

更重要的是：我不确定，但可能是 ASSOCSTR_FRIENDLYAPPNAME 将满足您的需求。在这种情况下，您只能使用罗布·肯尼迪的答案。

直接读取注册表的问题是它可能会返回错误的信息。那是因为您读取系统设置 - 这就是应用程序注册的内容。但用户可以覆盖它。例如，他可以右键单击.xls并选择“打开方式...”-> “其他应用程序。” -> “OpenOffice”-> “始终使用此应用程序”。 .xls 类型的注册信息不会更改（用户首选项保存在单独的位置，因此应用程序无法干扰它们），因此您的代码（直接读取注册表）将继续生成“MS Excel”，即使当用户双击文件 - OpenOffice 将启动。

回复收藏 0 原文

吻安 2024-09-03 20:54:09

步骤 1

获取分配给文件扩展名的可执行文件，例如使用以下函数：（

uses Registry, Windows, SysUtils;

function GetAssociation(const DocFileName: string): string;
var
  FileClass: string;
  Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create(KEY_EXECUTE);
  Reg.RootKey := HKEY_CLASSES_ROOT;
  FileClass := '';
  if Reg.OpenKeyReadOnly(ExtractFileExt(DocFileName)) then
  begin
    FileClass := Reg.ReadString('');
    Reg.CloseKey;
  end;
  if FileClass <> '' then begin
    if Reg.OpenKeyReadOnly(FileClass + '\Shell\Open\Command') then
    begin
      Result := Reg.ReadString('');
      Reg.CloseKey;
    end;
  end;
  Reg.Free;
end;

参见这里，或者 marc_s 对这个问题的回答:-)

步骤 2

现在你可以从这个可执行文件的版本信息中读出程序的名称了！最简单的方法是使用您可以通过 Google 找到的 TVersionInfo 类，例如此处< /a>.

var VersionInfo: TVersionInfo;  
VersionInfo := TVersionInfo.Create('PathToExe\name.exe');  
s := VersionInfo.KeyValue['Description'];

但是，您必须注意，某些程序因此使用描述键（例如 RAD Studio 本身或 MS Excel），而其他程序则使用产品名称键...

Step 1

Get the executable which is assigned to a file extension, for instance with the following function:

uses Registry, Windows, SysUtils;

function GetAssociation(const DocFileName: string): string;
var
  FileClass: string;
  Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create(KEY_EXECUTE);
  Reg.RootKey := HKEY_CLASSES_ROOT;
  FileClass := '';
  if Reg.OpenKeyReadOnly(ExtractFileExt(DocFileName)) then
  begin
    FileClass := Reg.ReadString('');
    Reg.CloseKey;
  end;
  if FileClass <> '' then begin
    if Reg.OpenKeyReadOnly(FileClass + '\Shell\Open\Command') then
    begin
      Result := Reg.ReadString('');
      Reg.CloseKey;
    end;
  end;
  Reg.Free;
end;

(See here, or marc_s' anwser to this question :-)

Step 2

Now you can read out the name of the program from the version information of this executable! The easiest way is using the TVersionInfo class you can find via Google, for instance here.

var VersionInfo: TVersionInfo;  
VersionInfo := TVersionInfo.Create('PathToExe\name.exe');  
s := VersionInfo.KeyValue['Description'];

However, you have to be aware that some programs use the description key therefore (like RAD Studio itself or MS Excel), while others use the product name key...

回复收藏 0 原文

傲娇萝莉攻 2024-09-03 20:54:09

这篇文章怎么样：确定关联的应用程序

以Excel为例，您将在 HKEY_CLASSES_ROOT 下找到 .xls 扩展名 - 该条目的默认值为 Excel.Sheet.8。

当您在 HKEY_CLASSES_ROOT 中再次搜索 Excel.Sheet.8 时，您会发现一个默认值为 Microsoft Office Excel 97-2003 Worksheet 的条目 - 可能是这样很好。

回复收藏 0 原文

拥抱没勇气 2024-09-03 20:54:09

如果用户对 .xls 文件说“始终使用此应用程序”，则存储在

HK_CU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.xls

密钥中的信息有一个包含应用程序名称的“应用程序”条目（例如“soffice.exe”）。它与 HK_CR 中的应用程序键相关，例如 HK_CR\Applications\soffice.exe\

If the user says "use this app always" for .xls-files the info ist stored in

HK_CU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.xls

The key has an entry "Application" containing the Application name (e.g. "soffice.exe"). It's correlated to an Applcication key in HK_CR, e.g. HK_CR\Applications\soffice.exe\

回复收藏 0 原文

~没有更多了~