FiveTech Support Forums

#include "fivewin.ch"


#define HKEY_CURRENT_USER   -2147483647  // 2147483649




STATIC aFiles := {}, oFiles   


// TEST TO ALLOW AND RECSTRICT APPLICATIONS TO USER 
 // SEE here <!-- m --><a class="postlink" href="http://www.pctools.com/guides/registry/detail/113/">http://www.pctools.com/guides/registry/detail/113/</a><!-- m -->

Function Test()
  LOCAL cVar, oLbx4  
  Local odlg,oBtn[3]


DEFINE DIALOG oDLG SIZE 350,390 TITLE " TEST ALLOW  APPLICATIONS"

 @ 3,5 LISTBOX oLbx4  VAR cVar ITEMS aFiles size 140,120  OF oDlg PIXEL


      @120, 10 BUTTON oBtn[1] PROMPT "&Add" ;
             SIZE 37, 11 PIXEL OF oDlg ACTION SelFiles(oLbx4)

      @120, 100 BUTTON oBtn[2] PROMPT "&Canc" ;
             SIZE 37, 11 PIXEL OF oDlg ACTION DeleteFile(oLbx4)

  @135, 10 BUTTON oBtn[3] PROMPT "&Set to Registry " ;
             SIZE 37, 11 PIXEL OF oDlg ACTION User_applicativi(oLbx4,aFiles)

ACTIVATE DIALOG  oDlg


RETURN NIL





Function SelFiles(oLbx4 )

local cFiles, i, cName, lEnd := .F., j, cDir

cFiles := CGETFILE("All | *.exe" ,"Seleziona i programmi da usare", "*.exe", "C:\", .f., .T., 512 )

if EMPTY( cFiles )
  RETURN NIL
endif

i := strcharcount( cFiles, " " )

if i > 0

   cDir := ALLTRIM( StrToken( cFiles, 1 ," " ) )

   for j = 2 to i
       cName := ALLTRIM( StrToken( cFiles, j ," " ) )
       AADD( aFiles, cDir+cName )
   next j
     cName := ALLTRIM( SUBSTR( cFiles, RAT(" ",cFiles), LEN( cFiles ) ) )
     AADD( aFiles, cDir+cName )
else
     AADD( aFiles, cFiles )
endif
  oLbx4:SetItems( aFiles )
  oLbx4:SetFocus()
return nil





 FUNCTION DeleteFile(oLbx4)
 IF LEN( aFiles ) == 0
   MSGSTOP("Nessun file da cancellare")
   RETURN NIL
 ENDIF
   ADEL( aFiles, oLbx4:GetPos() )
   ASIZE( aFiles, LEN( aFiles ) - 1 )
   oLbx4:SetItems( aFiles )
   oLbx4:SetFocus()
RETURN NIL







Function User_applicativi(oLbx4,aFiles)
            Local nHandle
            Local oReg
            Local key:=""
            Local name:=0
            Local valore:=""
            Local  cIniFile := cFilePath( GetModuleFileName( GetInstance() ) ) + NOME_FILE_INI



    key :="Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun"

   // name :="RestrictRun"    //abilitazione programmi
   //Local name :="DisallowRun"  disabilitazione programmi

           for n := 1 to len( afiles)
                        name:=n
                        valore:=afiles[n]

              IF RegOpenKeyex( HKEY_CURRENT_USER,Key, @nHandle ) == 0
                       oReg:Set(name,valore)
                ELSE

                 oReg:= TReg32():New(HKEY_CURRENT_USER, Key)
                 oReg:Create( HKEY_CURRENT_USER,Key )
                        oReg:Set(Name,valore)
                 ENDIF
              NEXT

retur nil

Function User_applicativi(oLbx4,aFiles)
            Local nHandle
            Local oReg
            Local key:=""
            Local keyReg:=""
            Local name:=0
            Local valore:=""
            Local  cIniFile := cFilePath( GetModuleFileName( GetInstance() ) ) + NOME_FILE_INI
            Local oKeyReg
            local n
            Local cApplication:=""
            oLbx4:GoTop()



            key_Reg :="Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun"

                      IF RegOpenKeyex( HKEY_CURRENT_USER,Key_reg, @nHandle ) == 0
                         oKeyReg:= TReg32():New(HKEY_CURRENT_USER, Key_Reg)

                         FOR n=1 to  len( afiles)
                                Key_val :="Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun\"
                                cApplication:=afiles[n]
                                    IF RegOpenKeyex( HKEY_CURRENT_USER,Key_val, @nHandle ) == 0
                                       oReg:Set(alltrim(str(n)),cApplication)
                                    ELSE
                                       oReg:= TReg32():New(HKEY_CURRENT_USER, Key_val)
                                       oReg:Create( HKEY_CURRENT_USER,Key_val )
                                       oReg:Set(alltrim(str(n)),cApplication)
                                  ENDIF
                          NEXT
                ELSE


                         oKeyReg:= TReg32():New(HKEY_CURRENT_USER, Key_Reg)
                         oKeyReg:Create( HKEY_CURRENT_USER,key_Reg )

                         FOR n=1 to  len( afiles)
                                Key_val :="Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun\"
                                cApplication:=afiles[n]
                                    IF RegOpenKeyex( HKEY_CURRENT_USER,Key_val, @nHandle ) == 0
                                       oReg:Set(alltrim(str(n)),cApplication)
                                    ELSE
                                       oReg:= TReg32():New(HKEY_CURRENT_USER, Key_val)
                                       oReg:Create( HKEY_CURRENT_USER,Key_val )
                                       oReg:Set(alltrim(str(n)),cApplication)
                                    ENDIF
                         NEXT
                 ENDIF




                


        RETURN NIL