begin 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 为 ...
通过索引切换窗口 左边从0开始,-1是右边第一个窗口 windows = driver.window_handles driver.switch_to.window(windows[-1]) 通过窗口名切换窗口...driver.title 可以获取当前窗口名,把所有的窗口遍历一遍,当窗口名和要切换的吻合就停止,都没有切换到最右边的窗口。...windows = driver.window_handles ...
(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;
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;