开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaImapi.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：12k
源码类别：

Windows编程

开发平台：

Delphi

JwaImapi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Image Mastering API interface Unit for Object Pascal                         }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: imapi.h, released Aug 2002. The original Pascal        }
  9. { code is: Imapi.pas, released November 2002. The initial developer of the     }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaImapi;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "imapi.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType, ActiveX{todo};
  59. //
  60. // interface IDiscRecorder
  61. //
  63. type
  64.   MEDIA_TYPES = DWORD;
  65.   {$EXTERNALSYM MEDIA_TYPES}
  66.   TMediaTypes = MEDIA_TYPES;
  68. const
  69.   MEDIA_CDDA_CDROM = 1;
  70.   {$EXTERNALSYM MEDIA_CDDA_CDROM}
  71.   MEDIA_CD_ROM_XA  = MEDIA_CDDA_CDROM + 1;
  72.   {$EXTERNALSYM MEDIA_CD_ROM_XA}
  73.   MEDIA_CD_I       = MEDIA_CD_ROM_XA + 1;
  74.   {$EXTERNALSYM MEDIA_CD_I}
  75.   MEDIA_CD_EXTRA   = MEDIA_CD_I + 1;
  76.   {$EXTERNALSYM MEDIA_CD_EXTRA}
  77.   MEDIA_CD_OTHER   = MEDIA_CD_EXTRA + 1;
  78.   {$EXTERNALSYM MEDIA_CD_OTHER}
  79.   MEDIA_SPECIAL    = MEDIA_CD_OTHER + 1;
  80.   {$EXTERNALSYM MEDIA_SPECIAL}
  82. type
  83.   MEDIA_FLAGS = DWORD;
  84.   {$EXTERNALSYM MEDIA_FLAGS}
  85.   TMediaFlags = MEDIA_FLAGS;
  87. const
  88.   MEDIA_BLANK                    = $1;
  89.   {$EXTERNALSYM MEDIA_BLANK}
  90.   MEDIA_RW                       = $2;
  91.   {$EXTERNALSYM MEDIA_RW}
  92.   MEDIA_WRITABLE                 = $4;
  93.   {$EXTERNALSYM MEDIA_WRITABLE}
  94.   MEDIA_FORMAT_UNUSABLE_BY_IMAPI = $8;
  95.   {$EXTERNALSYM MEDIA_FORMAT_UNUSABLE_BY_IMAPI}
  97. type
  98.   RECORDER_TYPES = DWORD;
  99.   {$EXTERNALSYM RECORDER_TYPES}
  100.   TRecorderTypes = RECORDER_TYPES;
  102. const
  103.   RECORDER_CDR  = $1;
  104.   {$EXTERNALSYM RECORDER_CDR}
  105.   RECORDER_CDRW = $2;
  106.   {$EXTERNALSYM RECORDER_CDRW}
  108.   RECORDER_DOING_NOTHING = 0;
  109.   {$EXTERNALSYM RECORDER_DOING_NOTHING}
  111.   RECORDER_OPENED = $1;
  112.   {$EXTERNALSYM RECORDER_OPENED}
  114.   RECORDER_BURNING = $2;
  115.   {$EXTERNALSYM RECORDER_BURNING}
  117.   IID_IDiscRecorder: TGUID = '{85AC9776-CA88-4cf2-894E-09598C078A41}';
  118.   {$EXTERNALSYM IID_IDiscRecorder}
  120. type
  121.   IDiscRecorder = interface (IUnknown)
  122.   ['{85AC9776-CA88-4cf2-894E-09598C078A41}']
  123.     function Init(pbyUniqueID: PByte; nulIDSize, nulDriveNumber: ULONG): HRESULT; stdcall;
  124.     function GetRecorderGUID(pbyUniqueID: PByte; ulBufferSize: ULONG; out pulReturnSizeRequired: ULONG): HRESULT; stdcall;
  125.     function GetRecorderType(out fTypeCode: Longint): HRESULT; stdcall;
  126.     function GetDisplayNames(var pbstrVendorID, pbstrProductID, pbstrRevision: PWideChar): HRESULT; stdcall;
  127.     function GetBasePnPID(out pbstrBasePnPID: PWideChar): HRESULT; stdcall;
  128.     function GetPath(out pbstrPath: PWideChar): HRESULT; stdcall;
  129.     function GetRecorderProperties(out ppPropStg: IPropertyStorage): HRESULT; stdcall;
  130.     function SetRecorderProperties(pPropStg: IPropertyStorage): HRESULT; stdcall;
  131.     function GetRecorderState(out pulDevStateFlags: ULONG): HRESULT; stdcall;
  132.     function OpenExclusive: HRESULT; stdcall;
  133.     function QueryMediaType(out fMediaType, fMediaFlags: Longint): HRESULT; stdcall;
  134.     function QueryMediaInfo(out pbSessions, pbLastTrack: PByte; out ulStartAddress, ulNextWritable, ulFreeBlocks: ULONG): HRESULT; stdcall;
  135.     function Eject: HRESULT; stdcall;
  136.     function Erase(bFullErase: BOOL): HRESULT; stdcall;
  137.     function Close: HRESULT; stdcall;
  138.   end;
  139.   {$EXTERNALSYM IDiscRecorder}
  141. //
  142. // interface IEnumDiscRecorders
  143. //
  145. const
  146.   IID_IEnumDiscRecorders: TGUID = '{9B1921E1-54AC-11d3-9144-00104BA11C5E}';
  147.   {$EXTERNALSYM IID_IEnumDiscRecorders}
  149. type
  150.   IEnumDiscRecorders = interface (IUnknown)
  151.   ['{9B1921E1-54AC-11d3-9144-00104BA11C5E}']
  152.     function Next(cRecorders: ULONG; out ppRecorder: IDiscRecorder; out pcFetched: ULONG): HRESULT; stdcall;
  153.     function Skip(cRecorders: ULONG): HRESULT; stdcall;
  154.     function Reset: HRESULT; stdcall;
  155.     function Clone(out ppEnum: IEnumDiscRecorders): HRESULT; stdcall;
  156.   end;
  157.   {$EXTERNALSYM IEnumDiscRecorders}
  159. //
  160. // interface IEnumDiscMasterFormats
  161. //
  163. const
  164.   IID_IEnumDiscMasterFormats: TGUID = '{DDF445E1-54BA-11d3-9144-00104BA11C5E}';
  165.   {$EXTERNALSYM IID_IEnumDiscMasterFormats}
  167. type
  168.   IEnumDiscMasterFormats = interface (IUnknown)
  169.   ['{DDF445E1-54BA-11d3-9144-00104BA11C5E}']
  170.     function Next(cFormats: ULONG; out lpiidFormatID: TGUID; out pcFetched: ULONG): HRESULT; stdcall;
  171.     function Skip(cFormats: ULONG): HRESULT; stdcall;
  172.     function Reset: HRESULT; stdcall;
  173.     function Clone(out ppEnum: IEnumDiscMasterFormats): HRESULT; stdcall;
  174.   end;
  175.   {$EXTERNALSYM IEnumDiscMasterFormats}
  177. //
  178. // interface IRedbookDiscMaster
  179. //
  181. const
  182.   IID_IRedbookDiscMaster: TGUID = '{E3BC42CD-4E5C-11D3-9144-00104BA11C5E}';
  183.   {$EXTERNALSYM IID_IRedbookDiscMaster}
  185. type
  186.   IRedbookDiscMaster = interface (IUnknown)
  187.   ['{E3BC42CD-4E5C-11D3-9144-00104BA11C5E}']
  188.     function GetTotalAudioTracks(out pnTracks: Longint): HRESULT; stdcall;
  189.     function GetTotalAudioBlocks(out pnBlocks: Longint): HRESULT; stdcall;
  190.     function GetUsedAudioBlocks(out pnBlocks: Longint): HRESULT; stdcall;
  191.     function GetAvailableAudioTrackBlocks(out pnBlocks: Longint): HRESULT; stdcall;
  192.     function GetAudioBlockSize(out pnBlockBytes: Longint): HRESULT; stdcall;
  193.     function CreateAudioTrack(nBlocks: Longint): HRESULT; stdcall;
  194.     function AddAudioTrackBlocks(pby: PByte; cb: Longint): HRESULT; stdcall;
  195.     function CloseAudioTrack: HRESULT; stdcall;
  196.   end;
  197.   {$EXTERNALSYM IRedbookDiscMaster}
  199. //
  200. // interface IJolietDiscMaster
  201. //
  203. const
  204.   IID_IJolietDiscMaster: TGUID = '{E3BC42CE-4E5C-11D3-9144-00104BA11C5E}';
  205.   {$EXTERNALSYM IID_IJolietDiscMaster}
  207. type
  208.   IJolietDiscMaster = interface (IUnknown)
  209.   ['{E3BC42CE-4E5C-11D3-9144-00104BA11C5E}']
  210.     function GetTotalDataBlocks(out pnBlocks: Longint): HRESULT; stdcall;
  211.     function GetUsedDataBlocks(out pnBlocks: Longint): HRESULT; stdcall;
  212.     function GetDataBlockSize(out pnBlockBytes: Longint): HRESULT; stdcall;
  213.     function AddData(pStorage: IStorage; lFileOverwrite: Longint): HRESULT; stdcall;
  214.     function GetJolietProperties(out ppPropStg: IPropertyStorage): HRESULT; stdcall;
  215.     function SetJolietProperties(pPropStg: IPropertyStorage): HRESULT; stdcall;
  216.   end;
  217.   {$EXTERNALSYM IJolietDiscMaster}
  219. //
  220. // interface IDiscMasterProgressEvents
  221. //
  223. const
  224.   IID_IDiscMasterProgressEvents: TGUID = '{EC9E51C1-4E5D-11D3-9144-00104BA11C5E}';
  225.   {$EXTERNALSYM IID_IDiscMasterProgressEvents}
  227. type
  228.   IDiscMasterProgressEvents = interface (IUnknown)
  229.   ['{EC9E51C1-4E5D-11D3-9144-00104BA11C5E}']
  230.     function QueryCancel(out pbCancel: BOOL): HRESULT; stdcall;
  231.     function NotifyPnPActivity: HRESULT; stdcall;
  232.     function NotifyAddProgress(nCompletedSteps, nTotalSteps: Longint): HRESULT; stdcall;
  233.     function NotifyBlockProgress(nCompleted, nTotal: Longint): HRESULT; stdcall;
  234.     function NotifyTrackProgress(nCurrentTrack, nTotalTracks: Longint): HRESULT; stdcall;
  235.     function NotifyPreparingBurn(nEstimatedSeconds: Longint): HRESULT; stdcall;
  236.     function NotifyClosingDisc(nEstimatedSeconds: Longint): HRESULT; stdcall;
  237.     function NotifyBurnComplete(status: HRESULT): HRESULT; stdcall;
  238.     function NotifyEraseComplete(status: HRESULT): HRESULT; stdcall;
  239.   end;
  240.   {$EXTERNALSYM IDiscMasterProgressEvents}
  242. //
  243. // interface IDiscMaster
  244. //
  246. const
  247.   IID_IDiscMaster: TGUID = '{520CCA62-51A5-11D3-9144-00104BA11C5E}';
  248.   {$EXTERNALSYM IID_IDiscMaster}
  250. type
  251.   IDiscMaster = interface (IUnknown)
  252.   ['{520CCA62-51A5-11D3-9144-00104BA11C5E}']
  253.     function Open: HRESULT; stdcall;
  254.     function EnumDiscMasterFormats(out ppEnum: IEnumDiscMasterFormats): HRESULT; stdcall;
  255.     function GetActiveDiscMasterFormat(out lpiid: TGUID): HRESULT; stdcall;
  256.     function SetActiveDiscMasterFormat(const riid: TGUID; out ppUnk: IUnknown): HRESULT; stdcall;
  257.     function EnumDiscRecorders(out ppEnum: IEnumDiscRecorders): HRESULT; stdcall;
  258.     function GetActiveDiscRecorder(out ppRecorder: IDiscRecorder): HRESULT; stdcall;
  259.     function SetActiveDiscRecorder(pRecorder: IDiscRecorder): HRESULT; stdcall;
  260.     function ClearFormatContent: HRESULT; stdcall;
  261.     function ProgressAdvise(pEvents: IDiscMasterProgressEvents; out pvCookie: UINT): HRESULT; stdcall;
  262.     function ProgressUnadvise(vCookie: UINT): HRESULT; stdcall;
  263.     function RecordDisc(bSimulate, bEjectAfterBurn: BOOL): HRESULT; stdcall;
  264.     function Close: HRESULT; stdcall;
  265.   end;
  266.   {$EXTERNALSYM IDiscMaster}
  268. //
  269. // library IMAPILib
  270. //
  272. const
  273.   //EXTERN_C const IID LIBID_IMAPILib;
  275.   CLSID_MSDiscRecorderObj: TGUID = '{520CCA61-51A5-11D3-9144-00104BA11C5E}';
  276.   {$EXTERNALSYM CLSID_MSDiscRecorderObj}
  277.   MSDiscRecorderObj: TGUID = '{520CCA61-51A5-11D3-9144-00104BA11C5E}';
  278.   {$EXTERNALSYM MSDiscRecorderObj}
  280.   CLSID_MSDiscMasterObj: TGUID = '{520CCA63-51A5-11D3-9144-00104BA11C5E}';
  281.   {$EXTERNALSYM CLSID_MSDiscMasterObj}
  282.   MSDiscMasterObj: TGUID = '{520CCA63-51A5-11D3-9144-00104BA11C5E}';
  283.   {$EXTERNALSYM MSDiscMasterObj}
  285.   CLSID_MSEnumDiscRecordersObj: TGUID = '{8A03567A-63CB-4BA8-BAF6-52119816D1EF}';
  286.   {$EXTERNALSYM CLSID_MSEnumDiscRecordersObj}
  287.   MSEnumDiscRecordersObj: TGUID = '{8A03567A-63CB-4BA8-BAF6-52119816D1EF}';
  288.   {$EXTERNALSYM MSEnumDiscRecordersObj}
  290. implementation
  292. end.