formh := GetForegroundWindow;//获得当前活动窗口句柄 GetWindowThreadProcessId(formH, dwProcessID); //通过活动窗口句柄获取对应的进程ID s := GetProcessNameById(dwProcessID);// GetProcessNameById函数如下 //通过上面得到的进程ID得到对应的进程名称,这里也就得到了当前系统处于活动状态的进程名称 end;...
(3)取得某进程EXE路径: procedure TForm1.Button8Click(Sender: TObject); //uses PSAPI; var h:THandle; fileName:string; iLen:integer; hMod:HMODULE;cbNeeded,p:DWORD; begin p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]); h := OpenProcess(PROCESS_ALL_ACCESS, false, p); //p 为 ...
{ g_hwin = hwnd;//这个g_hwin在你的DLL里定义为一个全局的HWND,也是你想要的句柄 Result = FALSE;} return Result;} lz可以试试.当然如果知道被注入的进程的窗口名称就不用enumwindow了,直接用FindWindow(NULL, _T("XXXXXX"))的返回值得一个hwnd,然后得到进程id,再判断 ...
(3)取得某进程EXE路径: procedure TForm1.Button8Click(Sender: TObject); //uses PSAPI; var h:THandle; fileName:string; iLen:integer; hMod:HMODULE;cbNeeded,p:DWORD; begin p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]); h := OpenProcess(PROCESS_ALL_ACCESS, false, p); //p 为 ...
Delphi编程获取系统当前进程、窗口句柄、文件属性以及程序运行状态. uses TLHelp32,PsAPI; (1)显示进程列表: procedure TForm1.Button2Click(Sender: TObject); var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string;
Delphi编程获取系统当前进程、窗口句柄、文件属性以及程序运行状态. uses TLHelp32,PsAPI; (1)显示进程列表: procedure TForm1.Button2Click(Sender: TObject); var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string;