求助最后一步了：如何跨桌面操作句柄？

starfee

根据以下说明，我搞定了创建桌面并在新桌面运行程序  https://www.cnblogs.com/findumars/p/5236726.html

现在无法获取新桌面的窗口句柄。

逸辰Arne

把寻找句柄的这个子程序单独设置到一个子程序

新建一个线程启动这个子程序

子程序前执行下SetThreadDesktop（）改变运行的桌面应该就可以了吧？

starfee

或者求翻译到易语言：

1. TFindWindowThread = class(TThread)  
   
2.   private  
   
3.     FDesktop:THandle;  
   
4.     FWindowHandle:THandle;  
   
5.   protected  
   
6.     procedure Execute();override;  
   
7.   public  
   
8.     constructor Create(ACreateSuspended:Boolean;const ADesktop:THandle);reintroduce;  
   
9.     property WindowHandle:THandle read FWindowHandle;  
   
10.   end;  
    
11.   
    
12.   
    
13. { TFindWindowThread }  
    
14.   
    
15. procedure TFindWindowThread.Execute();  
    
16. var  
    
17.   I:Integer;  
    
18. begin  
    
19.   //make the current thread find window on the new desktop!  
    
20.   if not SetThreadDesktop(FDesktop) then begin  
    
21.     exit;  
    
22.   end;  
    
23.   for I:=0 to 60 do begin //wait 30 seconds for open the main window  
    
24.     FWindowHandle:=FindWindow(nil,PChar('WindowCaption'));  
    
25.     if FWindowHandle<>0 then begin  
    
26.       break;  
    
27.     end;  
    
28.     Sleep(500);  
    
29.   end;  
    
30. end;  
    
31.   
    
32. constructor TFindWindowThread.Create(ACreateSuspended:Boolean;const ADesktop:THandle);  
    
33. begin  
    
34.   inherited Create(ACreateSuspended);  
    
35.   FDesktop:=ADesktop;  
    
36. end;  

复制代码

1. FindWindowThread:=TFindWindowThread.Create(false,FDesktop);  
   
2. try  
   
3.   FindWindowThread.WaitFor;  
   
4.   FMainWindowHandle:=FindWindowThread.WindowHandle;  
   
5. finally  
   
6.   FindWindowThread.Free;  
   
7. end;  
   
8. if FMainWindowHandle=0 then begin  
   
9.   MessageBox(Application.Handle,'Error when init voice (6).',PChar(Application.Title),MB_ICONWARNING);  
   
10.   exit;  
    
11. end;  

复制代码

逸辰Arne

噗。。。看起来一堆堆。。翻译出来吓死你。。

简单来说就是
精易模块的
进程_ID取窗口句柄（）

逸辰Arne

就问你怕不怕- -

starfee

试过了的。。取不到

starfee

跨桌面的取不到，本桌面程序可以。

starfee

逸辰Arne 发表于 2018-7-28 23:43
把寻找句柄的这个子程序单独设置到一个子程序

新建一个线程启动这个子程序

1. .版本 2
   
2. 
   
3. .子程序 GetHwnd
   
4. .参数 序号, 整数型
   
5. 
   
6. SetThreadDesktop (g_hdesktopNew)
   
7. hwnd_M ＝ FindWindowA (“#32770”, “通达信网上交易V9.99--” ＋ ACC [序号].操作凭证.TC凭证.券商名称)
   
8. 延时 (1)
   

复制代码

这样可以，但是线程不能反回，而且每一个寻找句柄的操作都要用线程？

starfee

着手利用线程等待改造子程序，这是不是最笨的方法？

逸辰Arne

starfee 发表于 2018-7-29 08:23
着手利用线程等待改造子程序，这是不是最笨的方法？

额。。
启动线程后返回的线程句柄留下

WaitForSingleObject (线程句柄, -1)
GetExitCodeThread (线程句柄, 返回代码)

这样就可以拿到线程的返回值了。。