如何获取当前使用进程的句柄及标题？

[CTBOK]

我要做的事是这样的，做一个后台程序实时监测全局
由于有些进程里面有些重要数据，不能让其它人看到，所以要实时监测，如果使用者切换到这个不允许执行的进程，则弹出提示框，要输入密码，正确就可以使用，否则就不予使用。

现在有两个问题：
1：如何获取当前任务进程的句柄？
2：如果做到实时监测？（TIMER控件吗？）

谢谢

[海牛]

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command3_Click()
Dim lR As Long
'打开记事本程序，要空的
lR = FindWindow(vbNullString, "无标题 - 记事本")
MsgBox lR
End Sub

[海牛]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Command1_Click()
Dim lR As Long
Dim strT As String * 127
'打开记事本程序，要空的
lR = FindWindow(vbNullString, "无标题 - 记事本")
MsgBox lR
GetWindowText lR, strT, 127
MsgBox Replace(strT, Chr(0), "")
End Sub

[CTBOK]

这个不是找当前的使用进程啊，是全部的，不论是不是当前运行的，我要知道当前运行进程的名称...

[海牛]

Public Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long

[海牛]

Public Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long