// ABAP sample code to handle GuiXT activation


Include OLE2INCL.

data: h_gui type ole2_object.

data: GuiXT_active type I.
data: root         type I value 1.


// Connect to desktop object
Create Object h_gui 'SAPINFO'.

 
// Read registry
Call Method OF h_gui 'GetRegDWValueEx'  = GuiXT_active
     Exporting
      #1 = root
      #2 = 'SOFTWARE\SAP\SAPGUI FRONT\SAP FRONTEND SERVER\CUSTOMIZE'
      #3 = 'GUIXT'.


// GuiXT not yet active?
if  GuiXT_active = 0.

  data: answer.
  data: answer_yes value '1'.

  // Inform and ask user
  Call Function 'POPUP_TO_CONFIRM'
    Exporting
       TITLEBAR      = 'User interface extensions are not yet activated'
       TEXT_QUESTION = 'Do you want to activate?'
     Importing
       Answer        = answer.


    // if yes, activate GuiXT
    If answer = answer_yes.

       // Change registry
       Call Method OF h_gui 'SetRegDWValueEx'         = GuiXT_active
         Exporting
           #1 = root
           #2 = 'SOFTWARE\SAP\SAPGUI FRONT\SAP FRONTEND SERVER\CUSTOMIZE'
           #3 = 'GUIXT'
           #4 = 1.

       // Inform user, has to logoff/logon again to activate it for current session 
       Call Function 'POPUP_TO_INFORM'
         Exporting
           TITEL     = 'User interface extensions  activated'
           TXT1      = 'Please logoff and logon again'
           TXT2      = '-- Thank you ---'.

    endif.
endif.

// Free object
Free object h_gui.