home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / WININFO / WININFO.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1991-06-09  |  3.6 KB  |  111 lines
  1. Form1
  2. Windows and Other Info
  3. System
  4. Form1
  5. Label1
  6. The Windows directory is:
  7. System
  8. Label2
  9. System
  10. Label1
  11. The System directory is:
  12. System
  13. Label4
  14. System
  15. Label1
  16. The .EXE file name is:
  17. System
  18. Label5
  19. System
  20. Label1
  21. The .EXE path name is:
  22. System
  23. Label7
  24. System
  25. Label1
  26. The Windows version is:
  27. System
  28. Label6
  29. System
  30. Command2
  31. Dir/File Exist
  32. Command3
  33. Get/Set Default Drive
  34. Command4
  35. Delete Files
  36. Command1
  37. System
  38. Label1
  39. Label2
  40. Command1
  41. Command1_Click
  42. Form_Click
  43.     Form_Load
  44. WinDir
  45. Length
  46. GetWindowsDirectory
  47. CaptionJ
  48. GetSystemDirectory
  49.     SystemDirW
  50. Label43
  51. Form1$
  52. MhWinDir
  53. MhSystemDir
  54. Label5
  55.     MhExeNameR
  56. Label6
  57. MhWinVersion
  58. Major
  59. Minor
  60. Label7
  61. MhPathName
  62.     MhExePath
  63. Command2_Click
  64. MhFileExists
  65. MhDirectoryExistsy
  66. Messageg
  67. Command3_Click
  68. MhDefaultDrive(
  69. MhSetDefaultDrive
  70. MhEcode
  71. occurred
  72. attempting
  73. change
  74. drive
  75. Command4_Click
  76. Messsage
  77. Result
  78. MhKillFiles
  79. LoadLibrary
  80. Command1_Click
  81. Command2_Click
  82. Please enter a file or directory name"
  83. File/Dir Exist
  84. C:\CONFIG.SYS"
  85. You entered 
  86. A File by that name does exist."
  87. A File by that name does NOT exist."
  88. A directory by that name does exist.
  89. A directory by that name does NOT exist.
  90. Results"
  91. Command3_Click
  92. The default drive is "
  93. If you want to change the default drive, please type its letter below.
  94. Get/Set Default Drive"
  95.  convert to uppercase
  96. That is an invalid drive!"
  97. Error"
  98. The default drive was changed successfully!"
  99. Success"
  100. Command4_Click
  101. Please enter a file specification to delete"
  102. You may use wildcard characters.
  103. Kill Files
  104. Error"
  105.  occurred!
  106. Error"
  107. The file(s) were deleted successfully.
  108. Success"
  109. Form_Load
  110. ##.00"
  111.