CnPack 开源软件项目 - 用虚拟桌面实现后台调用外部程序
  网站首页 下载中心 每日构建 文档中心 公益基金 开发论坛 关于我们 致谢名单 English


 Google 搜索

内容: 
 最新下载包


 
CnWizards 1.5.0.1209
[2024-09-17]

 
CnVCL 组件包 20240917
[2024-09-17]

 
CVSTracNT 多语言版 V2.0.1_20080601
[2008-06-02]

 
CVSTrac Linux 中文版 V1.2.1_20060112
[2006-01-12]
  最新开发版下载 RSS
  项目时间线 RSS RSS
 项目相关链接

CnPack GitHub 首页
GIT 使用说明
申请加入 CnPack
CnPack 成员名单
CnPack 邮件系统
 网站访问量

今日首页访问: 574
今日页面流量: 3407
全部首页访问: 5269451
全部页面流量: 21206939
建站日期: 2003-09-01

用虚拟桌面实现后台调用外部程序

CnPack 开源软件项目 2007-01-23 13:33:52

用虚拟桌面实现后台调用外部程序

作者:巴哈姆特
(转贴请保持完整并注明作者和出处)

最近需要实现一个无线通信的功能,X他XX的,该死的硬件厂商竟然不提供接口函数,只提供一个EXE可执行文件-_-!
    这样就需要我在程序里调用他的这个EXE可执行文件。
    调用EXE文件,可以用WINEXEC()、SHELLEXECUTE()和CreateProcess()等函数来实现,我这里就用CreateProcess()来调用。
    但是一个软件,两个EXE文件,这叫什么??实在没办法,我想在打开的时候不让用户看到这个执行文件:首先调用FINDWINDOW来查找窗口的句柄,之后再用SendMessage()来隐藏窗口,但是还是会有一瞬主窗口被显示出来的,或许你会说我BT吧,但是我实在是不忍心看到……
    那么怎么解决这个问题呢,首先我当然在CreateProcess()上面寻找方法,可惜,它只有一个参数可以设置窗口的默认显示方式,但是一旦这个窗口自己重设了显示方式,它就没有任何作用了。。。。继续查找文档,这时我看到CreateProcess()的一个参数TStartupInfo中有 lpDesktop这么一个属性,按照MSDN的说法,如果该指针为NULL,那么新建的Process将在当前Desktop上启动,而如果对其赋了一个Desktop的名称后,Process将在指定的Desktop上启动,恩,看来不错,就从它入手了;

   首先,建立一个虚拟的Desktop,
const
  DesktopName: PChar = 'NewDesktop';
FDesktop:= CreateDesktop(DesktopName, nil, nil, 0, GENERIC_ALL, nil);

    然后,在CreateProcess的时候,指定程序在我新生成的Desktop上运行:
var
  SI: TStartupInfo;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.cb:= SizeOf(SI);
  SI.lpDesktop:= DesktopName;
  SI.wShowWindow:= SW_HIDE;
  SI.dwFlags:= STARTF_USESHOWWINDOW;
  SI.hStdError:= 0;
  SI.hStdInput:= 0;
  SI.hStdOutput:= 0;
  if not CreateProcess(PChar('……'), nil, nil, nil, True, CREATE_NEW_CONSOLE + HIGH_PRIORITY_CLASS, nil,
                       PChar('……'), SI, FProceInfo) then
    begin
      Application.MessageBox('Error', 'Error', $10);
      Exit;
    end;
end;

    再用FindWindow去找程序的主窗口
开始我直接写下了这样的代码:
  WindowHandle:= FindWindow(nil, '……');

但是,这样是找不到不在当前Desktop中的Window的,那怎么办呢?

这个时候,我突然看到一位同事在上班时间偷偷打游戏,我问他:“你不怕被抓到??”
他说:“给你看一个工具!”
原来是一个叫“玩游戏一键隐藏”的小工具,仔细想想,他应该是利用各桌面之间的切换来达到这种效果的,于是又开始查看MSDN,终于看到可以用SetThreadDesktop()函数,这个函数可以设置当前Thread工作所在的Desktop,于是我在以上代码前又加了一句:
  if not SetThreadDesktop(FDesktop) then
    begin
      Exit;
    end;
但是,程序运行后,该函数却返回了false,说明方法调用失败了,再仔细看MSDN,发现有这么一句话:
The SetThreadDesktop function will fail if the calling thread has any windows or hooks on its current desktop (unless the hDesktop parameter is a handle to the current desktop).

    对不起,我的E文水平实在有够呛-_-!!
具体是什么意思我就不太清楚了,PASSION帮我翻译的时候,我也没怎么记得,只记得是要切换Desktop的线程要“干净”

不好意思,我对这个“干净”的理解就是一个新的线城,于是抱着试一试的心情,我写下了:
  TFindWindowThread = class(TThread)
  private
    FDesktop, FWindowHandle: THandle;
  protected
    procedure Execute(); override;
  public
    constructor Create(Suspended: Boolean; const ADesktop: THandle); reintroduce;
    property WindowHandle: THandle read FWindowHandle;
  end;

而主程序中的代码变成这样:
  FindWindowThread:= TFindWindowThread.Create(False, FDesktop);
  try
    FindWindowThread.WaitFor;
    WindowHandle:= FindWindowThread.WindowHandle;
  finally
    FindWindowThread.Free;
  end;
  if WindowHandle = 0 then
    begin
      Application.MessageBox('Error', 'Error', $10);
      Exit;
    end;

呵呵,成功,这样果然可以顺利的找到窗口Handle了。
好了,这样就几乎完美的实现了一个后台调用程序的功能,它对最终客户来说将是完全透明的,客户根本感觉不到后台还有另一个程序在工作。

爽啊,最后,我要说一句,我从学习第一个计算机语言到现在才三年时间,哎……
感谢PASSION和冬仔,BS下空气,竟然说“放弃吧,API不适合你”-_-!!超级BS、BS、BS……^_^
还有就是DELPHI的TTHREAD类这是第一次用,不知道有没有那里不合理的地方,希望大家指出来,谢谢。



本文已阅读 10378 次
来自: CnPack 开源软件项目

上一主题 | 返回上级下一主题

相关主题:


版权所有(C) 2001-2018 CnPack 开发组 网站编写:Zhou Jinyu