windows – 如何使用Delphi获取与文件扩展名相关联的程序名称？

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

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 + 'ShellOpenCommand') then
    begin
      Result := Reg.ReadString('');
      Reg.CloseKey;
    end;
  end;
  Reg.Free;
end;

(见here,或marc_s’anwser对这个问题:-)

第2步

现在,您可以从此可执行文件的版本信息中读出程序的名称！最简单的方法是使用您可以通过Google找到的TVersionInfo类,例如here.

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

但是,您必须知道某些程序因此使用描述密钥(如RAD Studio本身或MS Excel),而其他程序则使用产品名称密钥…