flash全屏问题

小X

第一运行能全屏 但是只要  鼠标有动作 就全屏不了 有啥办法能一直全屏

1. 
   
2. import win.flashInBox;
   
3. 
   
4. /*去掉水印{{*/
   
5. import process;
   
6. VirtualProtectEx = ::Kernel32.api("VirtualProtectEx","bool(POINTER hProcess,addr lpAddress, INT dwSize, INT flNewProtect, INT &lpflOldProtect )");
   
7. var prcs = process();  
   
8. var pDrawDemoAddr = tonumber( win.flashInBox._dll.gethandle()  ) +  0x1000 + 0x25EE0;
   
9. VirtualProtectEx( prcs.handle, pDrawDemoAddr,1,0x40/*_PAGE_EXECUTE_READWRITE*/  ,0);  
   
10. prcs.writeString( pDrawDemoAddr,'\0' )
    
11. prcs.free();
    
12. /*}}*/
    
13. 
    
14. //创建FLash透明窗口
    
15. var flash = ..win.flashInBox( {text = "任务栏你好"} , true /*透明*/)
    
16. 
    
17.   
    
18. flash._form.fullscreen(true)
    
19. 
    
20. 
    
21. //显示窗口
    
22. flash.show()
    
23. 
    
24. //In Box 可以直接自内存加载Flash
    
25. flash.putMovie( $"\res\main.swf")
    
26. 
    
27. 
    
28. 
    
29. 
    
30. win.loopMessage()

复制代码

quicker

如果你指的是透明桌面，你鼠标点击其他窗口会退出全屏。
如果没有切换过程，可以不使用 fullscreen函数，自已写一句代码就可以实现全屏。

1. flash._form.setPos(0,0, ..win.getScreen() )

复制代码

flash._form.fullscreen(true) 主要是用来实现全屏切换。
在其他程序激活是也会自动退出全屏，并恢复窗口状态。
如果你希望阻止自动退出，可以在窗口消息回调中阻止处理 _WM_ACTIVATEAPP（aardio最新版本处理了这个消息退出全屏），或者重写默认消息处理，如下：

1. 
   
2. import win.flashInBox;
   
3. /*去掉水印{{*/
   
4. import process;
   
5. VirtualProtectEx = ::Kernel32.api("VirtualProtectEx","bool(POINTER hProcess,addr lpAddress, INT dwSize, INT flNewProtect, INT &lpflOldProtect )");
   
6. var prcs = process();  
   
7. var pDrawDemoAddr = tonumber( win.flashInBox._dll.gethandle()  ) +  0x1000 + 0x25EE0;
   
8. VirtualProtectEx( prcs.handle, pDrawDemoAddr,1,0x40/*_PAGE_EXECUTE_READWRITE*/  ,0);  
   
9. prcs.writeString( pDrawDemoAddr,'\0' )
   
10. prcs.free();
    
11. /*}}*/
    
12. 
    
13. //创建FLash透明窗口
    
14. var flash = ..win.flashInBox( {text = "任务栏你好"} ,true )
    
15. 
    
16. win.form._defaultProc[0x1C/*_WM_ACTIVATEAPP*/]  = null
    
17. flash._form.fullscreen(true)
    
18. 
    
19. flash.show()
    
20. flash.putMovie( $"~\example\Flash\testCall.swf")
    
21. win.loopMessage()

复制代码

quicker

下面是标准库 win.ui 中自动退出全屏的实现代码：

1. namespace form {
   
2. 
   
3.     _defaultProc = {
   
4.         [0x1C/*_WM_ACTIVATEAPP*/] = function(this,hwnd, message, wParam, lParam){
   
5.                 if( (!wParam) && this.restoreFullScreen ) this.fullscreen( false );
   
6.         }
   
7.      }
   
8. }

复制代码

小X

quicker 发表于 2013-1-8 11:50
下面是标准库 win.ui 中自动退出全屏的实现代码：

谢谢 版主  理解了

JacenHe

xz19910830 发表于 2013-1-8 12:09
谢谢 版主  理解了

请更新一下标准库，已经修改了标准库，对透明分层窗口已禁用自动退出全屏功能

小X

Jacen 发表于 2013-1-8 12:33
请更新一下标准库，已经修改了标准库，对透明分层窗口已禁用自动退出全屏功能

谢谢  老大