想实现鼠标在桌面(x,y)处单击操作,如何结束正在运行的IE
解决方案 »
- 用application.mainform得到Tform后怎么访问用户自定义的变量呢?
- scktsrvr 的相关问题
- 一个关于类型转换的问题!
- 怎么做一个编译器根据代码生成可执行pe文件?
- 请问如何将C;\1.reg导入到注册表中
- sql 语句?
- 谁知道http代理协议格式
- 《delphi开发人员指南》这本书是哪里出版的?
- 两个关于Outlook Express的问题...(不容易哦!)
- 为了显示我的高超,将发送一个我自己用delphi做的程序给大家。不过没有带源程序。需要的话付点服务费。(仅20元)
- 有用过 RX Library 2.75 中的 Rxrichedit 者请进
- DELPHI新手上路,请教哪里可以看到有关打印和DELPHI与WORD间操作的相关文档!!
SendMessage(FindWindow('IEFrame', nil), WM_CLOSE, 0, 0);
procedure TForm1.Button1Click(Sender: TObject);
var
Hwnd, ProcessHandle: THandle;
begin
Hwnd := FindWindow('IEFrame', nil);
GetWindowThreadProcessId(Hwnd, ProcessHandle);
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessHandle);
TerminateProcess(ProcessHandle, 0)
end;
dwFlags Long,下述标志的一个组合
MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元
MOUSEEVENTF_MOVE 移动鼠标
MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下
MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下
MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下
dx Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定水平方向的绝对位置或相对运动
dy Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定垂直方向的绝对位置或相对运动
cButtons Long,未使用
dwExtraInfo Long,通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
注解
进行相对运动的时候,由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度