{-------------------------------------------------------------------------------
  @過(guò)程名:    slpert -> TFm_main.SetAssociatedExec
  @作者:      Gavin
  @日期:      2004.09.08
  @功能描述：
  @參數(shù):      FileExt, Filetype, FileDescription, MIMEType, ExecName: string
  @返回值:    Boolean
-------------------------------------------------------------------------------}

Function TFm_main.SetAssociatedExec(FileExt, Filetype, FileDescription,
  MIMEType, ExecName: String): Boolean; {修改成功，返回True，否則False}
Var
  Reg: TRegistry;
  ShFileInfo: TSHFILEINFO;
  IconIndex: integer;
Begin

  Result := False; {}
  // ShGetFileInfo(Pchar(ExecName), 0, SHFileInfo,SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_SMALLICON);
   //IconIndex:=SHFileInfo.iIcon;
   //showmessage(inttostr(iconIndex));
  If (FileExt = '') Or (ExecName = '') Then
    Exit; {如果文件類型為空或者沒(méi)有定義執(zhí)行程序就退出，F(xiàn)ileExt必須帶″.″，如.BMP}
  Reg := TRegistry.Create;
  Try
    Reg.RootKey := HKey_Classes_Root;
    If Not Reg.OpenKey(FileExt, True) Then
      Exit; {當(dāng)不能正確找到或創(chuàng)建FileExt鍵時(shí)退出，這種情況一般是注冊(cè)表有錯(cuò)誤，以下同}
    Reg.WriteString('', FileType);
    If MIMEType <> '' Then
    Begin
      Reg.WriteString('Content Type', MIMEType);
    End;
    Reg.CloseKey;
    If Not Reg.OpenKey(FileType, True) Then
      Exit;
    Reg.WriteString('', FileDescription);
    If Not Reg.OpenKey('shell/open/command', True) Then
      Exit;
    Reg.WriteString('', ExecName + ' "%1"');
    {執(zhí)行程序一般都有參數(shù)，例如WinZip的“winzip32.exe ″％1″”，″％1″參數(shù)指ZIP文件的文件名。因此ExecName應(yīng)視情況加入?yún)?shù)}
    Reg.CloseKey;
    If Not Reg.OpenKey(FileType + '/DefaultIcon', True) Then
      Exit;
    Reg.WriteString('',ExecName+' ,1');   ///ExtractFilePath(
    Reg.CloseKey;
    Result := true;
  Finally
    Reg.Free;
  End;
End;