Delphi
关注
分享
扫一扫
zhigu8182
这个作者很懒，什么都没留下…
展开
-
判断当前网络连接方式
uses wininet;Function ConnectionKind :boolean;var flags: dword;beginResult := InternetGetConnectedState(@flags,0);if Result thenbeginif (flags and INTERNET_CONNECTION_MODEM)= INTERNET_转载 2009-05-10 21:21:00 · 471 阅读 · 0 评论 -
向其它应用程序发送模拟键
varh: Thandle;beginh := FindWindow(nil,’应用程序标题’);PostMessage(h,WM_KEYDOWN,VK_F9,0); //发送F9键end原创 2009-05-10 21:23:00 · 571 阅读 · 0 评论