home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / Qb-reg.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-04  |  1.3 KB  |  51 lines
  1. COLOR 15, 1
  2. CLS
  3. sysdrive$ = LEFT$(ENVIRON$("winbootdir"), 1)
  4. PRINT "Hledám QBasic.EXE..."
  5. LOCATE 5, 1
  6. bef$ = "command.com /c dir /s /b " + sysdrive$ + ":\qbasic.exe"
  7. SHELL bef$
  8.  
  9. FOR n = 1 TO 79
  10.    char$ = CHR$(SCREEN(5, n))
  11.    pfad$ = pfad$ + char$
  12.    IF char$ = "\" THEN pfad$ = pfad$ + "\"
  13. NEXT
  14.  
  15. pfad$ = RTRIM$(UCASE$(pfad$))
  16.  
  17. IF INSTR(pfad$, "QBAS") = 0 THEN
  18.     LOCATE CSRLIN + 2: PRINT "QBasic.EXE nebyl nalezen..."
  19.     SYSTEM
  20. END IF
  21.  
  22. LOCATE 15, 1
  23. PRINT pfad$ + " bude uloºena v registru v klíƒi .BAS."
  24. LOCATE CSRLIN + 2: PRINT "Souhlasíte? (A)"
  25.  
  26. DO
  27. i$ = INKEY$
  28. LOOP WHILE i$ = ""
  29. IF UCASE$(i$) <> "A" THEN SYSTEM
  30.  
  31. OPEN "c:\qbasic.reg" FOR OUTPUT AS #1
  32. PRINT #1, "REGEDIT4"
  33. PRINT #1, ""
  34. PRINT #1, "[HKEY_CLASSES_ROOT\.BAS]"
  35. PRINT #1, "@=" + STRING$(2, CHR$(34))
  36. PRINT #1, "[HKEY_CLASSES_ROOT\.BAS\shell]"
  37. PRINT #1, "[HKEY_CLASSES_ROOT\.BAS\shell\open]"
  38. PRINT #1, "[HKEY_CLASSES_ROOT\.BAS\shell\open\command]"
  39. PRINT #1, "@=" + CHR$(34) + pfad$ + " /run %1" + CHR$(34)
  40. PRINT #1, "[HKEY_CLASSES_ROOT\.BAS\shell\Editovat]"
  41. PRINT #1, "[HKEY_CLASSES_ROOT\.BAS\shell\Editovat\command]"
  42. PRINT #1, "@=" + CHR$(34) + pfad$ + " %1" + CHR$(34)
  43. PRINT #1, ""
  44. CLOSE #1
  45. SHELL "regedit /s c:\qbasic.reg"
  46. SLEEP 2
  47. KILL "C:\qbasic.reg"
  48. SYSTEM
  49.  
  50.  
  51.