参考:
http://www.verysource.com/code/3924324_2/wmplib_tlb.pas.html
- property toElement: IDispatch readonly dispid 2205;
- property keyCode: Integer dispid 2206;
- property button: Integer readonly dispid 2207;
- property x: Integer readonly dispid 2208;
- property y: Integer readonly dispid 2209;
- property clientX: Integer readonly dispid 2210;
- property clientY: Integer readonly dispid 2211;
- property offsetX: Integer readonly dispid 2212;
- property offsetY: Integer readonly dispid 2213;
- property screenX: Integer readonly dispid 2214;
- property screenY: Integer readonly dispid 2215;
- property screenWidth: Integer readonly dispid 2216;
- property screenHeight: Integer readonly dispid 2217;
- end;
- // *********************************************************************//
- // Interface: IWMPTheme
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {6FCAE13D-E492-4584-9C21-D2C052A2A33A}
- // *********************************************************************//
- IWMPTheme = interface(IDispatch)
- ['{6FCAE13D-E492-4584-9C21-D2C052A2A33A}']
- function Get_title: WideString; safecall;
- function Get_version: Single; safecall;
- function Get_authorVersion: WideString; safecall;
- function Get_author: WideString; safecall;
- function Get_copyright: WideString; safecall;
- function Get_currentViewID: WideString; safecall;
- procedure Set_currentViewID(const pVal: WideString); safecall;
- procedure showErrorDialog; safecall;
- procedure logString(const stringVal: WideString); safecall;
- procedure openView(const viewID: WideString); safecall;
- procedure openViewRelative(const viewID: WideString; x: Integer; y: Integer); safecall;
- procedure closeView(const viewID: WideString); safecall;
- function openDialog(const dialogType: WideString; const parameters: WideString): WideString; safecall;
- function loadString(const bstrString: WideString): WideString; safecall;
- function loadPreference(const bstrName: WideString): WideString; safecall;
- procedure savePreference(const bstrName: WideString; const bstrValue: WideString); safecall;
- procedure playSound(const bstrFilename: WideString); safecall;
- property title: WideString read Get_title;
- property version: Single read Get_version;
- property authorVersion: WideString read Get_authorVersion;
- property author: WideString read Get_author;
- property copyright: WideString read Get_copyright;
- property currentViewID: WideString read Get_currentViewID write Set_currentViewID;
- end;
- // *********************************************************************//
- // DispIntf: IWMPThemeDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {6FCAE13D-E492-4584-9C21-D2C052A2A33A}
- // *********************************************************************//
- IWMPThemeDisp = dispinterface
- ['{6FCAE13D-E492-4584-9C21-D2C052A2A33A}']
- property title: WideString readonly dispid 2500;
- property version: Single readonly dispid 2501;
- property authorVersion: WideString readonly dispid 2502;
- property author: WideString readonly dispid 2503;
- property copyright: WideString readonly dispid 2504;
- property currentViewID: WideString dispid 2505;
- procedure showErrorDialog; dispid 2506;
- procedure logString(const stringVal: WideString); dispid 2507;
- procedure openView(const viewID: WideString); dispid 2508;
- procedure openViewRelative(const viewID: WideString; x: Integer; y: Integer); dispid 2515;
- procedure closeView(const viewID: WideString); dispid 2509;
- function openDialog(const dialogType: WideString; const parameters: WideString): WideString; dispid 2510;
- function loadString(const bstrString: WideString): WideString; dispid 2511;
- function loadPreference(const bstrName: WideString): WideString; dispid 2512;
- procedure savePreference(const bstrName: WideString; const bstrValue: WideString); dispid 2513;
- procedure playSound(const bstrFilename: WideString); dispid 2514;
- end;
- // *********************************************************************//
- // Interface: IWMPLayoutSettingsDispatch
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B2C2D18E-97AF-4B6A-A56B-2FFFF470FB81}
- // *********************************************************************//
- IWMPLayoutSettingsDispatch = interface(IDispatch)
- ['{B2C2D18E-97AF-4B6A-A56B-2FFFF470FB81}']
- property toElement: IDispatch readonly dispid 2205;
- property keyCode: Integer dispid 2206;
- property button: Integer readonly dispid 2207;
- property x: Integer readonly dispid 2208;
- property y: Integer readonly dispid 2209;
- property clientX: Integer readonly dispid 2210;
- property clientY: Integer readonly dispid 2211;
- property offsetX: Integer readonly dispid 2212;
- property offsetY: Integer readonly dispid 2213;
- property screenX: Integer readonly dispid 2214;
- property screenY: Integer readonly dispid 2215;
- property screenWidth: Integer readonly dispid 2216;
- property screenHeight: Integer readonly dispid 2217;
- end;
- // *********************************************************************//
- // Interface: IWMPTheme
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {6FCAE13D-E492-4584-9C21-D2C052A2A33A}
- // *********************************************************************//
- IWMPTheme = interface(IDispatch)
- ['{6FCAE13D-E492-4584-9C21-D2C052A2A33A}']
- function Get_title: WideString; safecall;
- function Get_version: Single; safecall;
- function Get_authorVersion: WideString; safecall;
- function Get_author: WideString; safecall;
- function Get_copyright: WideString; safecall;
- function Get_currentViewID: WideString; safecall;
- procedure Set_currentViewID(const pVal: WideString); safecall;
- procedure showErrorDialog; safecall;
- procedure logString(const stringVal: WideString); safecall;
- procedure openView(const viewID: WideString); safecall;
- procedure openViewRelative(const viewID: WideString; x: Integer; y: Integer); safecall;
- procedure closeView(const viewID: WideString); safecall;
- function openDialog(const dialogType: WideString; const parameters: WideString): WideString; safecall;
- function loadString(const bstrString: WideString): WideString; safecall;
- function loadPreference(const bstrName: WideString): WideString; safecall;
- procedure savePreference(const bstrName: WideString; const bstrValue: WideString); safecall;
- procedure playSound(const bstrFilename: WideString); safecall;
- property title: WideString read Get_title;
- property version: Single read Get_version;
- property authorVersion: WideString read Get_authorVersion;
- property author: WideString read Get_author;
- property copyright: WideString read Get_copyright;
- property currentViewID: WideString read Get_currentViewID write Set_currentViewID;
- end;
- // *********************************************************************//
- // DispIntf: IWMPThemeDisp
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {6FCAE13D-E492-4584-9C21-D2C052A2A33A}
- // *********************************************************************//
- IWMPThemeDisp = dispinterface
- ['{6FCAE13D-E492-4584-9C21-D2C052A2A33A}']
- property title: WideString readonly dispid 2500;
- property version: Single readonly dispid 2501;
- property authorVersion: WideString readonly dispid 2502;
- property author: WideString readonly dispid 2503;
- property copyright: WideString readonly dispid 2504;
- property currentViewID: WideString dispid 2505;
- procedure showErrorDialog; dispid 2506;
- procedure logString(const stringVal: WideString); dispid 2507;
- procedure openView(const viewID: WideString); dispid 2508;
- procedure openViewRelative(const viewID: WideString; x: Integer; y: Integer); dispid 2515;
- procedure closeView(const viewID: WideString); dispid 2509;
- function openDialog(const dialogType: WideString; const parameters: WideString): WideString; dispid 2510;
- function loadString(const bstrString: WideString): WideString; dispid 2511;
- function loadPreference(const bstrName: WideString): WideString; dispid 2512;
- procedure savePreference(const bstrName: WideString; const bstrValue: WideString); dispid 2513;
- procedure playSound(const bstrFilename: WideString); dispid 2514;
- end;
- // *********************************************************************//
- // Interface: IWMPLayoutSettingsDispatch
- // Flags: (4416) Dual OleAutomation Dispatchable
- // GUID: {B2C2D18E-97AF-4B6A-A56B-2FFFF470FB81}
- // *********************************************************************//
- IWMPLayoutSettingsDispatch = interface(IDispatch)
- ['{B2C2D18E-97AF-4B6A-A56B-2FFFF470FB81}']