归档: 2017

delphi中如何设置dcef3的代理服务器setproxy?

代理服务器(Proxy Server)是一种重要的服务器安全功能,它的工作主要在开放系统互联(OSI)模型的会话层,从而起到防火墙的作用。代理服务器大多被用来连接INTERNET(国际互联网)和Local Area Network(局域网)。delphi中的tChromium控件dcef3如何设置代理服务器呢? delphi中webbrowser设置代理服务器是这样的!1234567891011121314151617{------------------------------------------------------------------------------- 过程名: SetProcessProxy 作者: kelei 日期: 2013.08.03 参数: aProxyServer代理服务器; aProxyPort代理服务器端口 返回值: True设置成功 SetProcessProxy('127.0.0.1', 80);-------------------------------------------------------------------------------}function SetProcessProxy(const aProxyServer: string; const aProxyPort: Integer): Boolean;var vProxyInfo: TInternetProxyInfo;begin vProxyInfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY; vProxyInfo.lpszProxy := PChar(Format('http=%s:%d', [aProxyServer, aProxyPort])); vProxyInfo.lpszProxyBypass := PChar(''); Result := UrlMkSetSessionOption(INTERNET_OPTION_PROXY, @vProxyInfo, SizeOf(vProxyInfo, 0) = S_OK;end; 在dcef3中如何静态设置代理服务器呢?静态设置方法在dpr中添加启动命令行参数,如果不添加命令行参数设置代理服务器,那么dcef3默认是使用的ie的代理服务器:123456789101112131415161718192021222324procedure AppendCefCmdline(const processType: ustring; const cmd: ICefCommandLine);begin cmd.AppendSwitchWithValue('proxy-server','http://218.189.26.20:8080');//设置http代理服务器 cmd.AppendSwitchWithValue('proxy-server','https://218.189.26.20:8082');//设置https代理服务器 cmd.AppendSwitchWithValue('proxy-server','ftp://218.189.26.20:21');//设置ftp代理服务器 cmd.AppendSwitchWithValue('proxy-server','socks://202.116.0.188:3128')//设置SOCKS代理服务器 cmd.AppendSwitchWithValue('proxy-server','sock4://202.116.0.188:1080')//设置sock4代理服务器 cmd.AppendSwitchWithValue('proxy-server','sock5://202.116.0.188:1081')//设置sock5代理服务器//cmd.AppendSwitchWithValue('proxy-server','direct://')//所有连接不使用代理//cmd.AppendSwitchWithValue('proxy-server','https=127.0.0.1:80;http=socks4://bnwin.com:1080')//同时设置https和sock4代理服务器 cmd.AppendSwitchWithValue('proxy-bypass-list','127.*,192.168.*,10.10.*,193.9.162.*');//不使用代理服务器的地址//cmd.AppendSwitch('--no-proxy-server');//禁止代理服务器//cmd.AppendSwitch('--proxy-auto-detect');//自动检测代理配置//cmd.AppendSwitchWithValue('proxy-pac-url','http://www.bnwinn.com/proxy.pac')//代理使用指定URL中的PAC文件//cmd.AppendSwitch('--winhttp-proxy-resolver');//代理在IE中运行正常,但在chrome中失败,可以添加此flagend; begin CefOnBeforeCommandLineProcessing :=AppendCefCmdline; //指定dcef启动命令行 Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TMainForm, MainForm); Application.Run;end. 在dcef3中如何动态设置代理服务器setproxy?前面已经说过,如果不在命令行中设置代理服务器,那么dcef是默认使用的ie代理服务器,要想动态设置代理服务器,我们不在dcef的命令行参数设置代理,然后使用开头的动态设置ie代理服务器的代码,dcef3的代理服务器就是动态的了! 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556System network settingsThe Chromium network stack uses the system network settings so that users and administrators can control the network settings of all applications easily. The network settings include:proxy settingsSSL/TLS settingscertificate revocation check settingscertificate and private key storesSo far this design decision has worked well. The only network settings that some users ask for an alternative to system settings are proxy settings. For this we recently added some command-line options that allow you to run Chromium with custom proxy settings.Preference service for network settingsAlthough the system network settings have been sufficient for our network stack, eventually there will be some configuration settings specific to our network stack, so we need to have our own preference service for those settings. See also issue 266, in which some Firefox users demand that we not use the WinInet proxy settings (the de facto system proxy settings on Windows).Command-line options for proxy settingsChrome supports the following proxy-related command line arguments:–no-proxy-serverThis tells Chrome not to use a Proxy. It overrides any other proxy settings provided.–proxy-auto-detectThis tells Chrome to try and automatically detect your proxy configuration. This flag is ignored if –proxy-server is also provided.–proxy-server==[:][;…] | [:] | “direct://”This tells Chrome to use a custom proxy configuration. You can specify a custom proxy configuration in three ways:1) By providing a semi-colon-separated mapping of list scheme to url/port pairs.For example, you can specify:–proxy-server=”http=foopy:80;ftp=foopy2″to use HTTP proxy “foopy:80” for http URLs and HTTP proxy “foopy2:80″ for ftp URLs.2) By providing a single uri with optional port to use for all URLs.For example:–proxy-server=”foopy:8080”will use the proxy at foopy:8080 for all traffic.3) By using the special “direct://” value.–proxy-server=”direct://” will cause all connections to not use a proxy.–proxy-bypass-list=(|)[:][;…]This tells chrome to bypass any specified proxy for the given semi-colon-separated list of hosts. This flag must be used (or rather, only has an effect) in tandem with –proxy-server.Note that trailing-domain matching doesn’t require “.” separators so “*google.com” will match “igoogle.com” for example.For example,–proxy-server=”foopy:8080″ –proxy-bypass-list=”*.google.com;*foo.com;127.0.0.1:8080″will use the proxy server “foopy” on port 8080 for all hosts except those pointing to *.google.com, those pointing to *foo.com and those pointing to localhost on port 8080.igoogle.com requests would still be proxied. ifoo.com requests would not be proxied since *foo, not *.foo was specified.–proxy-pac-url=This tells Chrome to use the PAC file at the specified URL.For example,–proxy-pac-url=”http://wpad/windows.pac”will tell Chrome to resolve proxy information for URL requests using the windows.pac file.

不要小看自己的力量励志视频

不要小看自己的力量励志视频你可以改变世界。你每天都可以用善行和爱来充满你的生活。你也许不能消除世界饥饿,但你可以捐献50磅食品,从而让一个家庭免遭饥饿一个月。你也许不能给世界带来和平,但你可以把你的和平精神带给你周围的世界。你也许不能驱走所有人心中的仇恨和黑暗,但你可以把你内心中的爱和光拿出来与人共享。 您的浏览器不支持HTML5的 video 标签,无法为您播放!

绝地求生pubg黑屏补丁、内存优化、画质优化工具

本绝地求生工具包括内存优化,画质增强(reshade),黑屏补丁,跳VC插件检测功能! 本绝地求生pubg黑屏补丁和内存优化补丁特点:此黑屏补丁,不需要开机运行,绝地求生运行时运行本补丁即可,试想,开机运行的黑屏补丁,顾客不玩绝地求生你也运行?不是问题?黑屏补丁不管你在盖伦或是云更新下载的绝地求生,只要是绝地求生就行,本黑屏补丁直接检测游戏本身!内存优化,在游戏中不会出现卡顿现象,内存优化不会回收绝地大逃杀已经使用的内存,只回收非绝地求生程序所占的内存,本来内存优化就是把内存给绝地求生使用, 你再回收绝地求生的内存,会不会造成游戏中卡一下,你自己都想象得到!有些顾客先玩几把英雄联盟,再玩一会儿穿越火线,然后朋友一起约起玩绝地大逃杀,大家都知道腾讯的游戏退出并不是运行游戏时启动的程序在退出时都会退出,并且有些顾客根本就不退出英雄联盟等游戏,就直接运行绝地大逃杀,在你只有8G内存的情况下,顾客就会甩鼠标,拍键盘,说你机器卡得不得了!关键是他开机运行了什么?所以本内存优化补丁会直接优化这些根本不是当前需要运行的程序所占内存!使用所谓的内存优化专家,也是会收回绝地求生所占内存,游戏中也是会卡一下的,他是不会区分的!使用本补丁,无盘系统8G内存,回写缓存设置1G,一直玩绝地求生,不重启不卡! 绝地大逃杀pubg黑屏问题,在绝地大逃杀pc3.5.5更新后,到现在pc3.5.7都存在运行绝地大逃杀会一直黑屏,鼠标要点一下才会进入游戏,这影响了用户的体验,不明白的玩家会认为是机器配置问题,我们来看看这个现象,看有黑屏的动画 使用pubg黑屏补丁,解决后没有黑屏的动画 一直快速进入游戏界面! 绝地求生画质增强(reshade)功能,本功能集成官方认可的reshade画质增强插件,运行时在Steam登录窗口显示按钮,由用户自由选择是否开启reshade画质增强!不需要去下载安装reshade,不需要你为了使用reshace去设置找pubg的路径,全自动启用reshade画质插件,退出本绝地求生工具,自动清理reshade文件,不留痕迹,不会影响原本的pubg环境! 同时本绝地求生工具具有windows优化大师的内存优化功能,可以设置小于多少内存的,多少分钟并且物理内存使用率超过91%进行一次内存回收,留出更多的物理内存给绝地大逃杀pubg使用。本绝地求生工具的内存优化,优化时游戏中不会出现卡顿情况! 绝地大逃杀pubg内存优化补丁的原理,使用了SetProcessWorkingSetSize函数,把物理内存占用存在虚拟内存上,windows的这个SetProcessWorkingSetSize函数来设置应用程序最小和最大的运行空间,只会保留需要的内存。当应用程序被闲置或系统内存太低时,操作系统会自动调用这个机制来设置应用程序的内存。如果你的物理内存小于8G,可以使用本补丁进行优化,如果你16G内存就不需要使用了!此种优化内存并非优秀的方法,市面上的优化内存软件基本使用此原理,最优秀的方法是添加物理内存! 使用方法:运行绝地大逃杀时启动本绝地求生工具的setup.exe文件即可,你可以在游戏菜单中进行设置!steam退出,本补丁自动退出! 其中的配置文件设置说明(如果删除config.ini配置文件,就是只使用pubg黑屏补丁!) [setup];启用clearmemory后内存小于memorysize设定的多少G,每cleartime设置的分钟优化一次内存占用,1为启用 0为禁用,默认为0;启用内存清理的前提条件是,pubg游戏在运行,并且物理内存使用率超过91%clearmemory=0memorysize=9cleartime=2;启用blackpatch=1,启动pubg没有黑屏,直接进界面,0为不处理,默认为1;用于pubg pc 3.5.5版,如果后续版本无黑屏就可以不启动blackpatch=1;跳过安装vc2008 2010 2012 2013 2015 2017和dx2010 PhysX,1为跳过安装并且设置steam为中文,0为不处理,默认为0skipplug=1;reshade画质增强补丁 1为开启,0为不开启,默认为0,进入游戏后shift+F2呼出reshade界面reshade=0 下载地址: 1.不带reshade画质增强插件功能的下载地址 链接: https://pan.baidu.com/s/1oAiMaoE 密码: g8ie 解压密码 bnwin.com 启动方式:绝地求生启动前运行pubgtool.exe 2.具有绝地求生reshade画质增强插件功能的下载地址 链接:https://pan.baidu.com/s/1eTOJ7gu 密码:phm0 解压密码 bnwin.com 附加提供游戏加加的绝地求生助手的reshade画质配置文件,游戏加加的绝地求生助手对绝地求生的画质优化也是集成的reshade,如果你显卡比较好,可以用绝地求生助手的ini替换掉bnwin.ini,就可以使用绝地求生助手的画质设置效果!游戏加加的reshade配置文件下载: 链接:https://pan.baidu.com/s/1dG20VEL 密码:0x8a 解压密码 bnwin.com 使用游戏加加的reshade配置的方法:

delphi中如何自定义dcef3的右键菜单?

delphi中TChromium控件dcef3的右键菜单默认是这样的如何修改成自己的菜单呢?或者自定义dcef3的右键菜单呢? 在dcef3窗体中添加TApplicationEvents控件aplctnvnts1! 添加TPopupMenu控件pm1,并设置好自定义的dcef3的右键菜单及功能. 在TApplicationEvents控件的OnMessage事件中添加如下代码。1234567891011procedure TMainForm.aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean);var mPoint: TPoint;begin if IsChild(chrm1.Handle, Msg.Hwnd) and ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then begin GetCursorPos(mPoint); //得到光标位置 pm1.Popup(mPoint.X, mPoint.Y); //弹出popupmenu的菜单 Handled := True; end;end; 这样你就不用让用户看TChromium的默认英文右键菜单了!对于TChromium默认右键菜单的功能,可以自己用代码很轻松的实现!

delphi中如何删除dcef3的cookie和缓存?

我们用以下代码打开网站 12345678910var Chromium: TChromium;begin try Chromium := TChromium.Create(nil); Chromium.SetParentComponent(Form1); Chromium.Align := alClient; chromium.Browser.MainFrame.LoadUrl('www.bnwin.com'); FreeAndNil(Chromium)end; 如何删除dcef3的cookie和缓存?请看以下代码 123456789101112131415161718192021222324252627282930313233343536373839type CefTask = class(TCefTaskOwn) procedure Execute; override; public var url,cookieName: ustring; constructor create; virtual; end; constructor CefTask.create;begin inherited create; url := ''; cookieName := '';end; procedure CefTask.Execute;var CookieManager: ICefCookieManager;begin CookieManager := TCefCookieManagerRef.Global; CookieManager.DeleteCookies(url,cookieName);end; procedure c_WB_ClearCookies;var Task: CefTask;begin Task := CefTask.Create; CefPostTask(TID_IO, Task);end; // c_WB_Clear_url_Cookies('http://google.com','cookie_name');procedure c_WB_Clear_url_Cookies(c_url,c_cookieName: ustring);var Task: CefTask;begin Task := CefTask.Create; Task.url := c_url; Task.cookieName := c_cookieName; CefPostTask(TID_IO, Task);end; 整理自网站 https://stackoverflow.com/questions/12269587/how-do-i-clear-the-cache-and-cookies-for-an-embedded-chromium-browser 取得cookie并显示,如果需要删除cookie,把deleteCookie:= False改为deleteCookie:= True 123456789101112131415161718192021222324252627282930313233343536373839404142434445function VisitCookie (const name, value, domain, path: ustring; secure, httponly, hasExpires: Boolean;const creation, lastAccess, expires: TDateTime; count, total: Integer;out deleteCookie: Boolean): Boolean;begin deleteCookie:= False; MainForm.Memo1.Lines. Add (' cookie ' +inttostr (count) + ' / ' + inttostr (total)); MainForm.Memo1.Lines. Add (' name ' +name); MainForm.Memo1.Lines. Add (' value ' +value); MainForm.Memo1.Lines. Add (' domain ' +domain); MainForm.Memo1.Lines. Add (' path ' +path); MainForm.Memo1.Lines. Add (' secure ' +BoolToStr (secure)); MainForm.Memo1.Lines. Add (' httponly ' +BoolToStr (httponly)); MainForm.Memo1.Lines. Add (' hasExpires ' +BoolToStr (hasExpires)); MainForm.Memo1.Lines. Add (' creation ' +DateToStr (creation)); MainForm.Memo1.Lines. Add (' lastAccess ' +DateToStr (lastAccess)); MainForm.Memo1.Lines. Add (' expires ' +DateToStr (expires)); MainForm.Memo1.Lines. Add ('--------------- '); Result:= True;end; procedure TMainForm.btn2Click(Sender: TObject);var CookieManager: ICefCookieManager;beginCookieManager:= TCefCookieManagerRef.Global(nil);CookieManager.VisitAllCookiesProc (VisitCookie);end; //这样写,我在delphi xe8中编译不过procedure TMainForm.Button1Click(Sender: TObject);var CookieManager: ICefCookieManager;begin CookieManager := TCefCookieManagerRef.Global(nil); CookieManager.VisitAllCookiesProc( function(const name, value, domain, path: ustring; secure, httponly, hasExpires: Boolean; const creation, lastAccess, expires: TDateTime; count, total: Integer; out deleteCookie: Boolean): Boolean begin deleteCookie := True; ShowMessage('A cookie from domain ' + domain + ' will be unmercifully ' + 'deleted!'); end );end; 为网址设置单独的cookie文件 1234567891011121314CookieManager: ICefCookieManager; FormCreate:begin CookiesPath := ExtractFilePath(Application.ExeName) + 'cookies/bnwin'; CookieManager := TCefCookieManagerRef.Global(nil); CookieManager.SetStoragePath(CookiesPath, True, nil); Chromium1.Load('bnwin.com'); end; FormClose: begin CookieManager.FlushStore(nil);end 为指定的网站设置cookie

delphi中dcef如何自定义referer信息?

TChromium自定义referer,在早期的dcef版本中,这样Append(‘Referer’,’http://www.bnwin.com’)就可以了,详细看下面代码,如果append不行,启用这句request.SetReferrer(request.url, REFERRER_POLICY_ALWAYS); 123456789101112131415161718192021procedure TMainForm.chrm1BeforeResourceLoad(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; const callback: ICefRequestCallback; out Result: TCefReturnValue);var map: ICefStringMultimap; sAccept,sUserAgent:string;begin sAccept:= 'application/x-shockwave-flash, image/gif, image/jpeg, image/pjpeg, application/x-ms-application, application/x-ms-xbap,'+ ' application/vnd.ms-xpsdocument, application/xaml+xml,text/html,application/octet-stream, */*'; sUserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36 QIHU 360EE'; map := TCefStringMultimapOwn.Create; request.GetHeaderMap(map); map.Append('Referer',request.url); map.Append('Accept',sAccept); map.Append('User-Agent',sUserAgent); // ShowMessage(map.getvalue(1)+' '+map.getkey(1)); request.SetHeaderMap(map); //map:=nil; //request.SetReferrer(request.url, REFERRER_POLICY_ALWAYS);end; 在高版本的dcef中自定义referer,可以直接定义request. 12345678910111213141516171819procedure TMainForm.ShowUrl(hurl,AllUrl:string);var Request: ICefRequest; Data: ICefPostData; Header: ICefStringMultimap; sUserAgent:string;begin if chrm1.Browser.IsLoading then chrm1.Browser.StopLoad; sUserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36 QIHU 360EE'; Request := TCefRequestRef.New; Request.SetReferrer(hurl,REFERRER_POLICY_ORIGIN);//定义referer Data := TCefPostDataRef.New; Header := TCefStringMultimapOwn.Create; Header.Append('Accept-Language', 'zh-CN'); Header.Append('User-Agent',sUserAgent); Request.Assign(AllUrl,'POST',Data,header); chrm1.Browser.MainFrame.LoadRequest(Request);end;

Procmon监视系统一举一动的利器!

Procmon也被称为Process Monitor,是一款系统进程监视软件,总体来说,Process Monitor相当于Filemon+Regmon,其中的Filemon专门用来监视系统 中的任何文件操作过程,而Regmon用来监视注册表的读写操作过程。 有了Process Monitor,使用者就可以对系统中的任何文件和 注册表操作同时进行监视和记录,通过注册表和文件读写的变化, 对于帮助诊断系统故障或是发现恶意软件、病毒或木马来说,非常 有用。 这是一个高级的 Windows 系统和应用程序监视工具,由优秀的 Sysinternals 开发,并且目前已并入微软旗下,可靠性自不用说。 Process Monitor 不仅结合了 Filemon(文件监视器) 和 Regmon(注册表监视器) 两个工具的功能,还具有以下一些增强: 监视进程和线程的启动和退出,包括退出状态代码监视映像 (DLL 和内核模式驱动程序) 加载捕获更多输入输出参数操作非破坏性的过滤器允许你自行定义而不会丢失任何捕获的数据捕获每一个线程操作的堆栈,使得可以在许多情况下识别一个操作的根源可靠捕获进程详细信息,包括映像路径、命令行、完整性、用户和会话ID等等完全可以自定义任何事件的属性列过滤器可以设置为任何数据条件,包括未在当前视图中显示的高级的日志机制,可记录上千万的事件,数GB的日志数据进程树工具显示所有进程的关系原生的日志格式,可将所有数据信息保存,让另一个 Process Monitor 实例加载进程悬停提示,可方便的查看进程信息详细的悬停提示信息让你方便的查看列中不能完整显示的信息搜索可取消系统引导时记录所有操作 官方下载地址: https://docs.microsoft.com/zh-cn/sysinternals/downloads/procmon 百度网盘下载地址:链接: https://pan.baidu.com/s/1eSF9fAM 密码: erib

delphi中如何让dcef支持flash插件播放视频?

Chromium Embedded Framework (CEF)是个基于Google Chromium项目的开源Web browser控件,支持Windows, Linux, Mac平台。除了提供C/C++接口外,也有其他语言的移植版。因为基于Chromium,所以CEF支持Webkit & Chrome中实现的HTML5的特性,并且在性能上面,也比较接近Chrome。CEF还提供的如下特性:自定义插件、自定义协议、自定义JavaScript对象和扩展;可控制的resource loading, navigation, context menus等等。dcef是指的cef在delphi中的版本 cef在前期版本中是自带支持flash插件的,后来Chromium不再默认支持flash控件!下面看看我的程序的dcef命令行参数 如何让dcef支持flash呢? 安装好dcef,不管哪个版本都行! 安装360极速浏览器或QQ浏览器,打开其安装目录,找到ppflash目录和npflash目录(360极速浏览器是这两个目录,而QQ浏览器略有不同)! 在你的工程目录中建NativeFlash目录和PepperFlash目录,然后360的npflash目录下的NPSWF开头的dll文件和同目录下的vch文件复制到自己工程的NativeFlash中,把360的ppflash目录中的pepflash开头的dll文件和同目录下的json文件复制到工程的PepperFlash目录中!这一步就是用360浏览器的flash文件,不需要你手工去下载安装插件!至少你应该发现即使你的系统没有安装flash插件,但360浏览器安装后一样可以正常播放flash,这就是因为他的目录中自带了这几个flash文件,为了让你的程序的dcef支持flash,所以我们直接复制360极速浏览器的flash文件过来,简单方便! 编辑你的delphi工程文件(即dpr文件),在{$R *.res}后面添加如下代码123456789101112131415161718192021procedure AppendCefCmdline(const processType: ustring; const cmd: ICefCommandLine);begin //cmd.AppendSwitch('--enable-gpu-plugin');//允许gpu //cmd.AppendSwitch('disable-gpu');//禁止gpu cmd.AppendSwitch('enable-npapi'); //允许NativeFlash //cmd.AppendSwitch('enable-tab-audio-muting');//允许tab页禁音 //cmd.AppendSwitch('--enable-media-stream'); //允许视频流 cmd.AppendSwitchwithvalue('load-plugin', 'NativeFlash\NPSWF32.dll');//指定NativeFlash插件文件位置,注意文件名要和你的一致 //cmd.AppendSwitchWithValue('ppapi-flash-version','20.0.0.267');//指定PepperFlash版本号 cmd.AppendSwitchWithValue('ppapi-flash-path','PepperFlash\pepflashplayer.dll');//指定PepperFlash插件文件位置,注意文件名要和你的一致 cmd.AppendSwitch('--enable-system-flash');//允许PepperFlash //cmd.AppendSwitch('--enable-usermedia-screen-capturing');end; begin CefOnBeforeCommandLineProcessing :=AppendCefCmdline; //这一句就是指定了dcef启动的命令行 Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TMainForm, MainForm); Application.Run;end. 很多人用delphi的dcef写的程序,不支持flash,是只在命令行中添加了允许flash,而没有指定flash插件文件的位置,这时dcef会去调用系统安装的flash插件,一旦系统插件有问题,你的程序就无法播放flash了,本文写的方法就是360极速浏览器的方法,不管你的系统安装不安装flash,一样播放flash!而要让dcefbrowser支持flash也一样,dcefbrowser中只是把CefOnBeforeCommandLineProcessing改为DcefBApp.OnBeforeCommandLineProcessing即可,至于播放flash会有dos窗口弹一下的问题,请看本站的这篇文章http://www.bnwin.com/2017/12/01/328.html

delphi如何实现任意窗口透明化?

1234567//声明:SetLayeredWindowAttributes( Hwnd: THandle; {窗口句柄} crKey: COLORREF; {透明色} bAlpha: Byte; {Alpha 值} dwFlags: DWORD {LWA_COLORKEY(=1)表示使用透明色; LWA_ALPHA(=2)表示使用 Alpha 值}): Boolean; {是否成功设置} 举例(控制外部程序的透明度, 用计算器举了个例子): 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} {设定计算器的 Alpha 透明}procedure TForm1.Button1Click(Sender: TObject);var h: HWND; FormStyle: Integer;begin h := FindWindow('CalcFrame','计算器'); FormStyle := GetWindowLong(h, GWL_EXSTYLE); SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED); SetLayeredWindowAttributes(h, 0, 128, LWA_ALPHA);end; {设定计算器中的白色透明}procedure TForm1.Button2Click(Sender: TObject);var h: HWND; FormStyle: Integer;begin h := FindWindow('SciCalc', nil); FormStyle := GetWindowLong(h, GWL_EXSTYLE); SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED); SetLayeredWindowAttributes(h, clWhite, 255, LWA_COLORKEY);end; end.

单独调用运行8圈挂机锁工具

适用于八圈9.5以下版本,9.5版本请查看本站其他页面8圈网管计费系统,自带有挂机锁,一般的网吧均在桌面添加一个挂机锁,但单独的挂机锁或无盘提供的挂机锁,只要重启机器就解锁了,但计费系统的挂机锁则不同,重启机器后,8圈网管计费系统的挂机锁仍然是挂机状态!(如果顾客忘记了8圈挂机锁的密码,可以直接在8圈计费服务端对着挂机机器右键解锁,无需挂机密码,而普通的挂机锁密码忘了就没法,只有重启,重启后就解锁了!这也是8圈计费挂机锁的优势所在!)看看8圈网管计费系统界面,而8圈的挂机锁一般要点开界面才能运行,无法把8圈挂机锁创建快捷方式到桌面,本程序独立于8圈网管计费系统,运行本程序自动运行8圈的挂机锁,这样就可以把无盘系统的挂机锁或单独的挂机全部换成8圈的挂机锁了! 本程序直接运行实现功能就是 8圈的挂机锁,同时可以添加参数运行加参数 1 运行就是 8圈的结账下机加参数 2 运行就是 8圈的电脑换机加参数 3 运行就是 8圈的呼叫网管加参数 4 运行就是 8圈的在线充值 如何添加参数,请看下面的gif动画 下载地址: ———————-支持8圈9.4.4链接: https://pan.baidu.com/s/159bjiteKJnRwNhlGGK05Lg 密码: shrs增加参数 5 运行就是 8圈的修改密码功能———————-8圈9.4.4以前版本链接: https://pan.baidu.com/s/1nvoVTLB 密码: jxg4 解压密码 bnwin.com 查看8圈相关软件 https://goodhelp.gitee.io/tags/八圈/