检查文件扩展名在delphi中是否有效

Question

我有一个TEditbox，用户在其中键入文件的某些名称以及他要另存为的扩展名。 现在，我要验证他输入的扩展名是否是在Windows中注册的有效扩展名。 我该如何实现？

我所拥有的是：

procedure TForm2.OkBtnClick(Sender: TObject);
var
ExtractedFileExt: string;
begin
  ExtractedFileExt := ExtractFileExt(cxCbxSelectedFile.Text);
end;

如何使用该字符串变量并检查它是否是在Windows中注册的有效文件扩展名？

Answer 1

我认为这不是在“破坏”注册表。 据我所知，如果不从注册表中读取任何值，就没有很好的方法来做您想做的事情。 因此，如果要使用注册表，请使用以下代码：

uses Registry;

function GetProgramAssociation(const Ext: string): string;
var reg: TRegistry;
    s: string;
begin
  s:='';
  reg:=TRegistry.Create;
  try
    reg.RootKey:=HKEY_CLASSES_ROOT;
    if reg.OpenKey('.'+ext+'shellopencommand', false) then
    begin
      s:=reg.ReadString('');
      reg.CloseKey;
    end
    else
    begin
      if reg.OpenKey('.'+ext, false) then
      begin
        s:=reg.ReadString('');
        reg.CloseKey;
        if s='' then
        begin
          if reg.OpenKey(s+'shellopencommand', false) then
            s:=reg.ReadString('');
          reg.CloseKey;
        end;
      end;
    end;
    if Pos('%', s) > 0 then Delete(s, Pos('%', s), length(s));
    if ((length(s)>0) and (s[1]='"')) then Delete (s, 1, 1);
    if ((length(s)>0) and (s[length(s)]='"')) then Delete(s, Length(s), 1);
    while ((length(s)>0) and ((s[length(s)]=#32) or (s[length(s)]='"'))) do
      Delete(s, Length(s), 1);
    result:=s;
  finally
  reg.Free;
  end;
end;

接着：

if GetProgramAssociation(Extension) = '' then
  ShowMessage('Nope!');

工作正常。 如果扩展名未与有效程序关联，则返回空字符串。 例如，如果输入“ doc”（不带“。”），它将返回Word.Document.8；如果输入“ abcdef”，则将不返回任何内容（''）。

别忘了：将扩展名中不带点