TCreateInfo = record
  CreateType: TCreateType;
  ShowAsIcon: Boolean;
  IconMetaPict: HGlobal;
  ClassID: TCLSID;
  FileName: WideString;
  DataObject: IDataObject;
end;

struct TCreateInfo {
  TCreateType CreateType;
  Boolean ShowAsIcon;
  HGlobal IconMetaPict;
  TCLSID ClassID;
  BSTR FileName;
  IDataObject DataObject;
};