home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / tasks.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.0 KB  |  88 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Task List"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   1260
  7.    ClientTop       =   1665
  8.    ClientWidth     =   5520
  9.    Height          =   3120
  10.    Left            =   1200
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2715
  14.    ScaleWidth      =   5520
  15.    Top             =   1320
  16.    Width           =   5640
  17.    Begin CheckBox Check1 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "Display Detail"
  20.       Height          =   375
  21.       Left            =   3480
  22.       TabIndex        =   3
  23.       Top             =   2160
  24.       Width           =   1575
  25.    End
  26.    Begin CommandButton Command2 
  27.       Caption         =   "End"
  28.       Height          =   495
  29.       Left            =   1920
  30.       TabIndex        =   2
  31.       Top             =   2040
  32.       Width           =   1215
  33.    End
  34.    Begin CommandButton Command1 
  35.       Caption         =   "Get Task List"
  36.       Height          =   495
  37.       Left            =   240
  38.       TabIndex        =   0
  39.       Top             =   2040
  40.       Width           =   1455
  41.    End
  42.    Begin TextBox Text1 
  43.       Height          =   1815
  44.       Left            =   120
  45.       MultiLine       =   -1  'True
  46.       ScrollBars      =   2  'Vertical
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   5295
  50.    End
  51. Dim TE As tagTASKENTRY
  52. Sub Command1_Click ()
  53.   CRLF$ = Chr$(13) + Chr$(10)
  54.   TE.dwSize = Len(TE)
  55.   TE.szModule = Space$(10)
  56.   Result% = TaskFirst(TE)
  57.   T$ = ""
  58.   Do While Result% <> 0
  59.     T$ = T$ + Left$(TE.szModule, InStr(TE.szModule, Chr$(0)) - 1)
  60.     ModuleNameLen% = 260
  61.     ModuleName$ = Space$(ModuleNameLen%)
  62.     ModLen% = GetModuleFileName(TE.hInst, ModuleName$, ModuleNameLen%)
  63.     If ModLen% <> 0 Then
  64.       T$ = T$ + "  " + Left$(ModuleName$, ModLen%) + CRLF$
  65.     End If
  66.     If Check1.Value Then
  67.       T$ = T$ + "  Record size = " + Str$(TE.dwSize) + CRLF$
  68.       T$ = T$ + "  Task handle = &H" + Hex$(TE.hTASK) + CRLF$
  69.       T$ = T$ + "  Handle to parent = &H" + Hex$(TE.hTaskParent) + CRLF$
  70.       T$ = T$ + "  Handle to instance = &H" + Hex$(TE.hInst) + CRLF$
  71.       T$ = T$ + "  Handle to module = &H" + Hex$(TE.hModule) + CRLF$
  72.       T$ = T$ + "  SS register value = &H" + Hex$(TE.wSS) + CRLF$
  73.       T$ = T$ + "  SP register value = &H" + Hex$(TE.wSP) + CRLF$
  74.       T$ = T$ + "  Lowest address on stack = &H" + Hex$(TE.wStackTop) + CRLF$
  75.       T$ = T$ + "  Stack minimum = &H" + Hex$(TE.wStackMinimum) + CRLF$
  76.       T$ = T$ + "  Highest stack address = &H" + Hex$(TE.wStackBottom) + CRLF$
  77.       T$ = T$ + "  Number of pending events = " + Str$(TE.wcEvents) + CRLF$
  78.       T$ = T$ + "  Task queue handle = &H" + Hex$(TE.hQueue) + CRLF$
  79.       T$ = T$ + "  Handle to next task = &H" + Hex$(TE.hNext) + CRLF$
  80.     End If
  81.     Result% = TaskNext(TE)
  82.   Loop
  83.   Text1.Text = T$
  84. End Sub
  85. Sub Command2_Click ()
  86.   End
  87. End Sub
  88.