PC Toledo

Código: Selecionar todos

**----------------------------
Function Main()
**----------------------------
Local oShell, oShortcut
Local cDeskTop

   Set Century ON
   SetColor("W+/B")
   setmode(25,80)
   cls  
   
   cPath := HB_DirBase()
   cPath := Left( cPath, Len(cPath)-1 )
   
   oShell    := win_OleCreateObject( "WScript.Shell" )
   cDeskTop  := oShell:SpecialFolders( "Desktop"   )
   oShortCut := oShell:CreateShortcut( cDeskTop+"\Test ver 1.2.lnk" )

   WITH OBJECT oShortCut 
      :TargetPath       := cPath + "\Test.EXE" 
      :WorkingDirectory := cPath 
      :Description      := "Test ver 1.2" 
      :Hotkey           := "Ctrl+Alt+7" 
      :IconLocation     := cPath + "\Test.EXE" 
      :WindowStyle      := 4 
      :Save()
   END WITH 

   wait 
   SetColor("W/N")
   cls 
   
Return NIL

Código: Selecionar todos

   IF ! Upper( oExeList[ 1, F_NAME ] ) == Upper( hb_FNameNameExt( hb_ProgName() ) )
      IF "SJPA" $ Upper( hb_FNameNameExt( hb_ProgName() ) )
         MsgStop( "ATENÇÃO URGENTE" + hb_Eol() + ;
            "JPA.EXE com nome errado, entrando no lugar de SJPA.EXE" )
      ENDIF
      MsgStop( "JPA executado não é o JPA mais recente." + hb_Eol() + ;
         "Tem alguma coisa errada na configuração e precisa ser corrigida" + hb_Eol() + ;
         "Vai ser usado o JPA.EXE com data mais recente," + hb_Eol() + ;
         "mas considere apenas quebra-galho." + hb_Eol() + ;
         "Tentando criar atalho correto (fase experimental)" )
      IF File( cPath + "sjpa.exe" )
         oScript := win_OleCreateObject( "wscript.shell" )
         oAtalho := oScript:CreateShortcut( oScript:SpecialFolders( "Desktop" ) + "\sjpa.lnk" )
         oAtalho:WindowStyle      := WIN_SW_SHOWNORMAL
         oAtalho:IconLocation     := cPath + "sjpa.exe"
         oAtalho:TargetPath       := cPath + "sjpa.exe"
         oAtalho:WorkingDirectory := cPath
         oAtalho:Save()
      ENDIF
      ShellExecuteOpen( cPath + oExeList[ 1, F_NAME ], cParam, hb_cwd(), SW_SHOWNORMAL )
      QUIT
   ENDIF