home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / corel / Scripts / gdi.csc < prev    next >
Text File  |  1998-02-06  |  2KB  |  65 lines
  1. REM Zobrazφ volnΘ zdroje systΘmu.
  2. REM GDI.CSC         23.zß°φ 1996
  3. REM You need to have the Windows DLL RSRC32.dll installed 
  4. REM for this script to work.
  5. REM Copyright 1998 Corel Corporation. VÜechna prßva vyhrazena.
  6.  
  7.  
  8. '  Declare DLL function
  9. DECLARE FUNCTION GetRes LIB "RSRC32.dll" (BYVAL a AS INTEGER) AS LONG ALIAS "_MyGetFreeSystemResources32@4"
  10. ' GetRes function constants
  11. GLOBAL CONST GFSR_SYSTEMRESOURCES%=0
  12. GLOBAL CONST GFSR_USERRESOURCES%=1
  13. GLOBAL CONST GFSR_GDIRESOURCES%=2
  14.  
  15.     ' Resource meter dialog
  16. BEGIN DIALOG OBJECT RES 207, 56, "Resource Indicator", SUB RESHandler
  17.     TEXT  6, 6, 62, 12, .SysResText, "System resources:"
  18.     TEXT  68, 6, 15, 12, .SysRes, ""
  19.     PROGRESS 92, 6, 106, 12, .SysProg
  20.     TEXT  7, 36, 57, 12, .GDIResText, "GDI Resources:"
  21.     TEXT  68, 21, 15, 12, .GDIRes, ""
  22.     PROGRESS 92, 21, 106, 12, .GDIProg
  23.     TEXT  7, 21, 54, 12, .UserResText, "User Resources:"
  24.     TEXT  68, 36, 15, 12, .UserRes, ""
  25.     PROGRESS 92, 36, 106, 12, .UserProg
  26. END DIALOG
  27.  
  28. ' Dialog handler
  29. SUB RESHandler(BYVAL ControlID%, BYVAL Event%)
  30.     DIM Sys AS LONG
  31.     DIM User AS LONG
  32.     DIM GDI AS LONG
  33.     IF Event%=0 OR Event%=5 THEN
  34.       ' Timer
  35.         ' Collect res info
  36.         Sys&=GetRes(GFSR_SYSTEMRESOURCES)
  37.         User&=GetRes(GFSR_USERRESOURCES)
  38.         GDI&=GetRes(GFSR_GDIRESOURCES)
  39.         ' Set up text
  40.         RES.SysRes.SetText(" " + CSTR(Sys&) + "%")
  41.         RES.UserRes.SetText(" " + CSTR(User&) + "%")
  42.         RES.GDIRes.SetText(" " + CSTR(GDI&) + "%")
  43.         ' Set up progress controls
  44.         RES.SysProg.SetValue Sys&
  45.         RES.UserProg.SetValue User&
  46.         RES.GDIProg.SetValue GDI&
  47.     END IF
  48. END SUB
  49.  
  50. ' Main code
  51. RES.SetTimer 10000 ' Update every 10 seconds
  52. RES.SetStyle 32   ' Enable minimize/maximize
  53. ' Set progress controls
  54. RES.SysProg.SetMinRange 0
  55. RES.GDIProg.SetMinRange 0
  56. RES.UserProg.SetMinRange 0
  57. RES.SysProg.SetMaxRange 100
  58. RES.GDIProg.SetMaxRange 100
  59. RES.UserProg.SetMaxRange 100
  60. ' Call up dialog
  61. DIALOG RES
  62.  
  63.  
  64.  
  65.