[Pasha.YPY]

howto change backberry imei after disable RTAS?(delphi RIMRadioCOMLib)

const
  CAL_CFIMEI = $00000012;

type
  IMEID = interface;
  IMEIDDisp = dispinterface;
  IWriteHexIMEI = interface;
  IWriteHexIMEIDisp = dispinterface;
  IWriteIMEI = interface;
  IWriteIMEIDisp = dispinterface;
  IWriteIMEIBaryonGW = interface;
  IWriteIMEIBaryonGWDisp = dispinterface;

 IID_IMEID: TGUID = '{FC74BAB0-F20C-11DC-95FF-0800200C9A66}';
  IID_IMfgError: TGUID = '{63AF45A0-5219-480E-B23A-72943D68C47E}';
  IID_IWriteHexIMEI: TGUID = '{36DBEA17-A1FA-4604-A9A5-3575E45B56FC}';
  IID_IWriteIMEI: TGUID = '{66BAB079-9EBB-4247-AAA6-DB1EA741FD65}';
  IID_IWriteIMEIBaryonGW: TGUID = '{98F1704F-56BB-4CCB-AD33-753366112909}';

// *********************************************************************//
// Interface: IMEID
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {FC74BAB0-F20C-11DC-95FF-0800200C9A66}
// *********************************************************************//
  IMEID = interface(IDispatch)
    ['{FC74BAB0-F20C-11DC-95FF-0800200C9A66}']
    procedure Read(out meid_high: LongWord; out meid_low: LongWord); safecall;
    procedure Write(meid_high: LongWord; meid_low: LongWord); safecall;
  end;

// *********************************************************************//
// DispIntf:  IMEIDDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {FC74BAB0-F20C-11DC-95FF-0800200C9A66}
// *********************************************************************//
  IMEIDDisp = dispinterface
    ['{FC74BAB0-F20C-11DC-95FF-0800200C9A66}']
    procedure Read(out meid_high: LongWord; out meid_low: LongWord); dispid 1;
    procedure Write(meid_high: LongWord; meid_low: LongWord); dispid 2;
  end;

// *********************************************************************//
// Interface: IWriteHexIMEI
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {36DBEA17-A1FA-4604-A9A5-3575E45B56FC}
// *********************************************************************//
  IWriteHexIMEI = interface(IDispatch)
    ['{36DBEA17-A1FA-4604-A9A5-3575E45B56FC}']
    procedure Execute(const str: WideString); safecall;
  end;

// *********************************************************************//
// DispIntf:  IWriteHexIMEIDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {36DBEA17-A1FA-4604-A9A5-3575E45B56FC}
// *********************************************************************//
  IWriteHexIMEIDisp = dispinterface
    ['{36DBEA17-A1FA-4604-A9A5-3575E45B56FC}']
    procedure Execute(const str: WideString); dispid 158;
  end;

// *********************************************************************//
// Interface: IWriteIMEI
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {66BAB079-9EBB-4247-AAA6-DB1EA741FD65}
// *********************************************************************//
  IWriteIMEI = interface(IDispatch)
    ['{66BAB079-9EBB-4247-AAA6-DB1EA741FD65}']
    procedure Execute(const str: WideString); safecall;
  end;

how to change backberry imei after disable RTAS?

thanks
BR.