在网上找了很多方法都不行,好不容易找到个. 现在分享给大家,希望能帮助大家! 将下面代码保存为.bat reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" /v 29 /d "%systemroot%\system32\imageres.dll,196" /t reg_sz /f taskkill /f /im explorer.ex ...
-
iis自带ftp安全配置
1.打iis-ftp站点-默认 FTP 站点-右键属性! 如图: a:连接超时由120改为1200! b:安全账户-允许匿名连接的勾去掉(如图): c.在盘创建Ftproot目录,安全-设置. 删除所有除 administrators和system以外的账号!如图: d:ftp站点-默认 FTP 站点-右键属性-主目录-ftp站点目录-本地路径改为d:\ftproot如图: 确定即可! 2. ...
-
delphi EmbeddedWB 去掉边框、滚动条
WebBrowser加载网页,那个边框那个滚动条烦死人了! 生怕人家不知道那是网页。。。 没办法改用EmbeddedWB,还真他妈好用。 调用的网页,如果把颜色搞成一样还真看不出来! 不说废话了,还是说下怎么去掉把! 加入以下代码即可: EmbeddedWB1.UserInterfaceOptions:=[DontUse3DBorders,DontUseScrollBars,EnablesFormsA ...
-
delphi 颜色转网页RGB函数
想把delphi的默认颜色转换成颜色代码,就找了这么个函数转换: function ToHTML(t:TColor):string; var sBuf:string; procedure swap(var c1,c2:char); var tmp:char; begin c1:=Char(Ord(c1) xor Ord(c2)); c2:=Char(Ord(c1) xor Ord(c2)); c1:=Char(Ord(c1) xor Ord(c2)); end; begin {转换 ...
-
delphi 鼠标左右键弹起按下代码
MOUSEEVENTF_LEFTDOWN:鼠标左键按下 MOUSEEVENTF_LEFTUP:鼠标左键弹起 MOUSEEVENTF_RIGHTDOWN:鼠标右键按下 MOUSEEVENTF_RIGHTUP:鼠标右键弹起 使用以下代码,我们就完成了一次针对0,0点的鼠标左键单击: var x,y:integer; begin x:=0;y:=0; Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,0,0); Mouse_Event(M ...
-
delphi 注册系统热键
在窗口的create事件中,加入以下代码 : HotKeyId := GlobalAddAtom('MyHotKey') - $C000; RegisterHotKey(Handle,hotkeyid,MOD_CONTROL,VK_F6); 注: HotKeyId的合法取之范围是0x0000到0xBFFF之间, GlobalAddAtom函数得到的值 在0xC000到0xFFFF之间,所以减掉0xC000来满足调用要求。 热键的辅助按键包括Mod_Ctrl 、 ...
-
WordPress 完美解决头像不显示
首先找到 wp-includes/pluggable.php 文件,打开编辑 查找如下代码: if ( is_ssl() ) { $host = ‘https://secure.gravatar.com’; } else { if ( is_ssl() ) { $host = 'http://www.gravatar.com'; } else { if ( !empty($email) ) $host = sprintf( "http://%d.gravatar.com", ( h ...
-
delphi 动态替换图标
先在type下面添加如下代码: icondirentry=packed record bwidth:Byte; //该目录对应的资源的宽度 bheight:Byte; //该目录对应的资源的高度 bcolorcount:Byte; //该目录对应的资源的颜色总数,大于8的资源该值为零 breserved:Byte; //保留 wplanes:word; //指定的设 ...
最活跃的读者