TRESTDWMIMEType

type TRESTDWMIMEType = class(TObject)

protected

  FLoadTypesFromOS: Boolean;

  FOnBuildCache: TNotifyEvent;

  FMIMEList: TStringList;

  procedure BuildDefaultCache; virtual;

public

  class function GetMIMEType();

  class function GetMIMETypeExt();

  procedure AddMimeType();

  procedure BuildCache; virtual;

  constructor Create(); virtual;

  destructor Destroy; override;

  function GetFileMIMEType();

  function GetDefaultFileExt();

  procedure LoadFromStrings();

  procedure SaveToStrings();

  property OnBuildCache: TNotifyEvent; [rw]

  property LoadTypesFromOS: Boolean; [rw]

end;

TRESTDWMIMEType

TObject