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

CSDN论坛 > VB > VB基础类

⋅请问DMP导入问题，急，谢谢！ ⋅WIN2008 R2，怎样建一个用户，这个用户只能改IP地址，啥都不能做？ ⋅如何在一个表里，按分类，每个分类select10条数据？ 更多帖子 关注空间博客 siyou 本版专家分：118 结帖率 100%: 0 2003-10-09 09:51:00 回复次数5

引用・举报・楼主

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

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

谢谢

问题点数：0分

CSDN今日推荐

⋅关于Number.FormatInt32等等静态函数的问题 ⋅不支持无窗口的ActiveX控件????? ⋅那位大哥，帮忙解释一下，进来帮我UP一下吧 更多帖子 关注空间博客 海牛 本版专家分：8884: 0 2003-10-09 10:05:21

引用・举报・ #1 得分：0

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

⋅关于Number.FormatInt32等等静态函数的问题 ⋅不支持无窗口的ActiveX控件????? ⋅那位大哥，帮忙解释一下，进来帮我UP一下吧 更多帖子 关注空间博客 海牛 本版专家分：8884: 0 2003-10-09 10:07:30

引用・举报・ #2 得分：0

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

⋅请问DMP导入问题，急，谢谢！ ⋅WIN2008 R2，怎样建一个用户，这个用户只能改IP地址，啥都不能做？ ⋅如何在一个表里，按分类，每个分类select10条数据？ 更多帖子 关注空间博客 siyou 本版专家分：118: 0 2003-10-09 10:23:16

引用・举报・ #3 得分：0

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

⋅关于Number.FormatInt32等等静态函数的问题 ⋅不支持无窗口的ActiveX控件????? ⋅那位大哥，帮忙解释一下，进来帮我UP一下吧 更多帖子 关注空间博客 海牛 本版专家分：8884: 0 2003-10-14 11:45:24

引用・举报・ #4 得分：0

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

⋅关于Number.FormatInt32等等静态函数的问题 ⋅不支持无窗口的ActiveX控件????? ⋅那位大哥，帮忙解释一下，进来帮我UP一下吧 更多帖子 关注空间博客 海牛 本版专家分：8884: 0 2003-10-14 11:46:08

引用・举报・ #5 得分：0

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

BCB如何获得当前所有可视窗口的窗口标题和窗口句柄: BOOL CALLBACK EnumWindowsProc( HWND hwnd, // handle to parent window LPARAM lParam // application-defined value){ if (IsWindowVisible(hwnd)) { char s[260]; GetWindo

C# 获取句柄程序: 这个小程序需要用到系统API，也就是需要用到user32中的三个函数。第一个：WindowFromPoint 返回一个窗口句柄第二个：GetWindowText 获取窗口标题第三个：GetClassName 获取类名当然，最重要的一点就是要引用命名空间：using System.Runtime.InteropServices; 先来看看做出来的效果：在来看看源码：

C++根据进程获取主窗口的句柄: 原帖网址:http://www.cnblogs.com/ylhome/archive/0001/01/01/1529681.html // processenum.cpp : Defines the entry point for the console application. // #include "stdafx.h" #include #include #inclu

获取窗口句柄，并设置窗口标题: 所需头文件： #include Winuser.h> //包含了windows.h的头文件获取的方法： HWND hWnd = ::GetForegroundWindow(); char cap[24] = {"CLIENT"}; ::SetWindowText(hWnd , cap); //设置窗口的标题

Delphi6 获得当前进程ID与句柄并终止进程。: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) btnKillHandle: TButton; btnK

获取应用程序实例句柄: char path[512]; HINSTANCE hInstance; ::GetModuleFileName(NULL, path, sizeof(path)); hInstance = (HINSTANCE)GetModuleHandle(path); ultoa((ULONG)hInstance, path, 10); MessageBox(path, "程

VB 获得当前窗体标题: Private Declare Function GetForegroundWindow Lib "user32" () As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cc

在DLL中获取主进程窗口句柄: 有的时候难免需要在DLL中获取主进程的窗口句柄，比如在DLL注入的时候等等。那么如何在DLL中获取主进程的窗口句柄呢？可以通过EnumWindows来实现。先通过GetCurrentProcessId获取进程的PID，然后在EnumWindows中调用GetWindowThreadProcessId获得与窗口句柄关联的进程PID，然后对比PID，看是否相等，并判断是不是主窗口即可。以上方法参考

DELPHI 通過窗口句柄或窗口标题得到进程句柄: DELPHI 通過窗口句柄或窗口标题得到进程句柄2009年05月08日星期五 10:15procedure TForm1.Button1Click(Sender: TObject); var hWindow: HWND; { 窗体句柄 } dwProcessID: DWORD; { 进程 ID } hProcess: THandle; { 进程句柄 } begin { 根据标题获取窗体的句柄 } hWin

关闭