正在加载...
代码哥哥
发奋的人受人尊敬，正确发奋之人却受人敬仰。
2012-1
17
发表于: Delphi | 作者: 代码哥哥
标签:

需要两个按钮和两个Richedit控件,采用默认名称即可.

procedure TForm1.Button1Click(Sender: TObject); //写文件

var wText: TextFile;
begin
AssignFile(wText, 'ip.txt');
Rewrite(wText);//创建文件，或者使用ReSet打开文件
Writeln(wText, richedit1.text);
CloseFile(wText);
end;

procedure TForm1.Button2Click(Sender: TObject); //读文件
var rText: TextFile;
tmp:String;
begin
richedit2.Clear;//清除原来的内容
AssignFile(rText, 'ip.txt');
reset(rText);
while not EOF(rText) do
begin
readln(rText,tmp);
richedit2.Lines.Add(tmp);
end;
closefile(rText);
end;

相关知识内容:

在对文本文件进行任何处理之前，首先要打开此文本文件。声明变量：通过此变量可以来引用一个文本文件。
打开一个文件需要两步：首先是 AssignFile(),它可以将文件变量与一个文件关联起来。例如：这时，你可以进行第二步：打开文件。有三种方式打开文件：使用R e w r i t e ( )过程创建并打开文件；对于一个已存在的文件，此操作将使文件被覆盖；使用R e s e t ( )过程只读地打开一个文件；使用Append() 过程向已存在的文件追加文本。
注意Reset()将以可读写方式打开类型文件和无类型文件。可以使用CloseFile()来关闭一个已打开的文件。

下面是各种调用的函数:

文件的打开与关闭：
AssignFile：把一个外部文件名和一个文件变量相关联
Reset：打开一个存在的文件
Rewrite：创建并打开一个新文件（或覆盖原有文件）
Append ：以添加方式打开一个文件（只适用于文本文件）
CloseFile：关闭一个打开的文件
FileOpen：打开一个特定的文件并返回文件句柄
FileCreate：创建一个给定文件名的文件并返回文件句柄
FileClose：关闭一个特定句柄的文件
后边三个文件主要供系统内部使用，在文件复制的编程中也往往会用到。它们操作的对象是文件句柄而不是文件变量。

文件定位：
Seek：把文件当前位置移到指定部分
FilePos：返回文件的当前位置
Eoln：返回行结束标志
EOF：返回文件结束标志
FileSeek：改变当前文件指针的位置

快来抢沙发吧！
2012-1
17
发表于: Delphi | 作者: 代码哥哥
标签:

Delphi中提升为Debug权限才能关闭服务进程,下面的例子只包含提权部份.

先引用 TlHelp32 单元

?Download download.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

function EnablePrivilege(hToken: Cardinal; PrivName: string; bEnable: Boolean): Boolean;  //进程提升权限
var
    TP: TOKEN_PRIVILEGES;
    Dummy: Cardinal;
 
begin
 
    TP.PrivilegeCount := 1;
    LookupPrivilegeValue(nil, pchar(PrivName), TP.Privileges[0].Luid);
    if bEnable then
      TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
    else
    TP.Privileges[0].Attributes := 0;
    //end if else
    AdjustTokenPrivileges(hToken, False, TP, SizeOf(TP), nil, Dummy);
    Result := GetLastError = ERROR_SUCCESS;
 
end;
 
//下面是调用方法
 
    //---------------------------需要将进程提升为Debug权限,才能杀掉服务进程
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
    EnablePrivilege(hToken, 'SeDebugPrivilege', True);
    CloseHandle(hToken);
    //----------------------------
快来抢沙发吧！
2012-1
13
发表于: 大杂烩 | 作者: 代码哥哥
标签:

以下为电驴资源站或者电驴资源搜索站，按推荐度排名。

1、http://www.simplecd.org/

新兴站点，号称山寨版的Verycd，注册就可发资源帖，下载资源无铜光盘限制！曾经据说由于某种缘故，Simplecd在国内暂时无法访问，网站很久不更新了！不过现在又能访问了，好消息！

2. http://www.qvocd.com/

一个新兴站点 QvoCD电驴，口号是“分享如此简单”，如果你厌倦了Verycd的审核和商业铜臭，以及对资源发布者辛苦劳动的不尊重，试试这个网站。

3、http://www.ied2k.com/

原来VC的大佬吕大建的！纯洁的ed2k资源网。据说某臭名昭著的“假电驴”公司告密的缘故，ied2k已经无法访问，可以使用1-Click Web Proxy辅助工具进行访问的，网站很久不更新了，管理员失踪！向ied2k致敬！

4、http://www.thshare.net/

Emule电骡影视音乐资源分享站点，非综合电驴资源站，主要内容是影音资源方面的，也是非商业网站！需要注册登陆才能看资源。

5、http://www.eastgame.net

TLF论坛Eastgame.net。这个论坛很有名，其中的“Edonkey电驴下载专区”很不错，亚洲资源论坛的元老！

6、http://www.chnp2p.com/

“中国驴”，这个地球人都知道。中国最早的电驴资源站，据说因某种原因，服务器曾被关闭，于是已经不再开放注册。放在这里作为致敬！

7、http://www.hatrix.org/

这个站点据可靠情报是Verycd建立的电驴资源搜索站，表面是英文，其实是通过阉割驴后门收集的所有Verycd电驴，Easymule阉割驴的用户资源，所以以中国用户共享的电驴资源为主。由于建立在海外所以什么资源都有，也可以看出Verycd通过“阉割驴”Easymule搜集用户隐私的能力多 大，这也是很多电驴爱好者斥责Verycd侵犯用户隐私的原因之一，不过对我们这些不使用Verycd“阉割驴”的用户来说，是个好地方，哈哈哈。

8、http://www.emule-ed2k.com/

新的电驴资源搜索站。

9、http://mirror.simplecd.org/

Simplecd镜像站点。

10、http://www.ied2k.rproxy.org/

ied2k镜像站点。

11、http://www.tlfcd.com/

顾名思义，和TLF有关。

12、http://www.beroko.com

菠萝客，很多ed2k资源。

13、http://www.ed2000.com

ED2000 资源分享。

14、http://www.zhaide.com/

摘的 – 分享互联网，模仿Verycd的网站，也有很多资源。

15、http://www.emule.com.cn/

中国.电骡，臭名昭著的Vagga。

快来抢沙发吧！
2012-1
5
发表于: PHP | 作者: 代码哥哥
标签: ,

WordPress 验证码 防垃圾留言插件,在网上找了很久,终于找到个有中国特色的验证码插件,但是这个插件有问题,虽然前台能验证,但是在后台审核的时候它也去验证了,而且后台根本不显示验证码,让你无法操作,于是决心重新修改一个,请下载附件中文件,上传到wp-content/plugins目录 然后启用即可

点击下载 wp-validcode1.1

快来抢沙发吧！
2012-1
5
发表于: MySQL | 作者: 代码哥哥
标签: ,,

请看如下语句,转载注明出处

删除未审核评论的语句：DELETE FROM  wp_comments WHERE  comment_approved =  0;

删除垃圾评论：DELETE FROM  wp_comments WHERE  comment_approved = 'spam';

下面这个不要随便用哦,用于就删除已经审核了的了

删除审核通过的评论：DELETE FROM  wp_comments WHERE  comment_approved = 1;

快来抢沙发吧！
2012-1
5
发表于: Windows | 作者: 代码哥哥
标签:

有朋友遇到这个问题。打开IE8浏览器要几十秒中才能打开。
　　其实解决的方法很简单：
　　　　首先，打开浏览器，在“工具(T) -> Internet选项(O)”，找到“连接”选项卡，点击“局域网设置(L)”，去掉“自动检测设置”的选项勾选。点击确定按钮。
　　然后关闭IE再重新打开，试试启动的速度变快了？
这个办法适用于任何版本的IE浏览器.
经过本人测试有效!!!!!!!!!!!!!!!!

 ——不知道是哪位朋友了，总之谢谢了！

关于win7 sp1 右键弹出缓慢的问题

所谓的优化软件折腾死人，没有个管用的，排除是病毒左右的，经测试：

解决鼠标右键菜单弹出极慢的问题

在文件夹或程序图标上点右键，弹出菜单特别慢。

原因和解决方法：

一、显卡引起

安装某些显卡驱动后，在桌面右键菜单多了三项。

解决：

1.开始--运行:regsvr32 /u igfxpph.dll  去掉Intel集成显卡的桌面右键菜单

2.开始--运行:regedit--->删除hkey_classes_root\directory\background\shellex\contextmenuhandlers\igfxcui          ---删除其中的igfxcui键 

3.重启电脑

二、微软补丁KB908531引起，只要在桌面上点右键就会出现这个进程verclsid.exe，此时系统假死

解决：卸载此补丁

如果不能卸载的话，使用sreng2\pendmove等删除工具删除system32\verclsid.exe文件，然后清空system32/dllhost文件夹

xp的解决：右键点击桌面时菜单显示迟缓的问题去掉Intel集成显卡的桌面右键菜单: 运行里输入：regsvr32 /u igfxpph.dll

恢复使用运行里输入：regsvr32 igfxpph.dll

微软公司证实：在WINDOWS XP的资源管理器里，选中文件单击右键会占用大量的内存，显示弹出菜单时的CPU占用率为100%。这一缺陷存在于所有的Windows XP版本中，包括修复BUG的SP1,和SP1a版中。

Intel集成显卡的桌面右键菜单包含：“另存为图式...”、“图形选项”、“显示模式”。三项，这样会拖慢右键菜单的反映速度，所以你有两条路可以解决这个问题：

1.点击：开始--运行 输入：regsvr32 /u igfxpph.dll

恢复使用

regsvr32 igfxpph.dll

2.修改注册表：

HKEY_CLASSES_ROOT\Directory\Background\shellex\

ContextMenuHandlers 删除其中的igfxcui键

重新启动即可删除那三个键！

快来抢沙发吧！
2011-12
29
发表于: 大杂烩 | 作者: 代码哥哥
标签:

很多人都提到按键精灵会输出乱码，经过我们长期的跟踪，发现这不是按键精灵的原因，而是自己电脑设置的问题电脑输入法设置错误，是出现乱码的罪魁祸首。  如果出现乱码问题，请看一下“控制面板”->“区域和语言选择”->“语言”->“详细信息”（文字服务和输入语言）
将预设输入语言更改为“中文（中国）简体中文-美式键盘”，就可以了

快来抢沙发吧！
2011-11
29
发表于: PHP | 作者: 代码哥哥
标签:

DedeCMS 5.3/5.5/5.6等版本的UTF版本会经常遇到一个问题，就是后台登录会什么都不显示，空白一片，这是什么原因呢？

一般这个问题都是由于使用了“记事本”而没有使用专业的文本编辑软件来编辑DedeCMS的文件造成的，一般是由于修改了以下几个文件：

include/common.inc.php
data/common.inc.php
dede/config.php

如果你使用了“记事本”之类的软件修改这些文件，修改后都会在文件中加上BOM，造成程序不能正常运行。

解决办法简单，下一个emeditor之类的编辑器打开重新保存，去掉BOM即可

快来抢沙发吧！
2011-11
23
发表于: Ubuntu | 作者: 代码哥哥
标签:

Linux下的VPN服务器软件主要是pptpd和openvpn,pptpd架设好后在windows下建个VPN连接就可以fan墙了，比较简单，这里说下ubuntu下安装配置pptpd。首先安装pptpd这个VPN服务器软件，ssh连接登录后用下面这个命令：

sudo apt-get install pptpd

安装好了在webmin的网络这一栏里就可以看到pptp vpn server这项了。

安装完了需要对相关文件进行配置修改，用webmin上的文件管理或ssh端用vi命令修改都行。

第一步：

方法一：ssh连接修改/etc/pptpd.conf这个文件

vi /etc/pptpd.conf

找到#localip 192.168.0.1和#remoteip 192.168.0.234-238,192.168.0.245这两行，把前面的#号去掉，然后保存就行了。

这里，localip 是 VPN 链接成功后服务器的 ip 地址， remoteip 则客户端的可分配 ip 地址范围。下面是我的配置：

# (Recommended)

localip 192.168.0.1

remoteip 192.168.0.234-238,192.168.0.245

# or

#localip 192.168.0.234-238,192.168.0.245

#localip 192.168.0.234-238,192.168.0.245

#remoteip 192.168.1.234-238,192.168.1.245

方法二：用webmin的pptpd服务器项修改，点击webmin网络>PPTP VPN Server>PPTP Server Options,加上localip和romoteip就行了，如下图

webmin配置pptpd

第二步：

然后再要编辑/etc/ppp/pptpd-options这个文件,为vpn指定DNS服务器, 你可以找到你服务器用的DNS服务器地址，或者直接使用Google Public DNS：

vi /etc/ppp/pptpd-options

找到ms-dns这项，去掉前面的#号，修改成google提供的DNS，很好记哈

ms-dns 8.8.8.8

ms-dns 8.8.4.4

修改好后保存。

第三步：

接下来建立vpn账号和密码了，可以直接在webmin的pptp vpn server选项里修改，修改文件也行。

方法一：点击webmin里的网络>PPTP VPN Server>PPP Accounts>Create new PPP account，就可以创建新的账号和密码了。

webmin创建VPN账号webmin创建VPN账号

方法二：修改/etc/ppp/chap-secrets文件，按一行四列添加账号、服务器名、密码和IP限制。即第一列是用户名，第二列是服务器名（默认写pptpd 即可，注意与 pptpd-options 文件保持一致），第三列是密码，第四列是 IP 限制（不做限制用 * ）。如创建一个名为test，密码为123，不限制登录IP的VPN账号：

test pptpd 123 *

修改好后保存行了。

最后重启pptpd服务，就可以生效了。

到了这一步，正常的话在XP里建立个VPN连接应该可以连接上了，但还不能访问外网，还需要另外的配置。但是如果连接不上VPN服务器的话，那就是碰上传说中的人品问题了，我就碰到过，明明所有步骤都做了，但是就是不能连接上，然后就胡乱折腾，看运气什么时候能折腾好了。

继续下一步，第四步：

修改/etc/sysctl.conf 这个文件，把ipv4 forward开启，方法是找到/etc/sysctl.conf这个文件里的这一行#net.ipv4.ip_forward=1后，去掉net.ipv4.ip_forward=1前面的#号，使他生效，然后保存，运行命令sysctl –p.

root@s:~# sysctl -p

运行命令后会显示这样的一行，那就表示修改生效了。

net.ipv4.ip_forward = 1

这样，vpn 服务器就算是搭建成功了。

重启pptpd后如果还不能访问外网，那么就要再来一步。

第五步：

使用iptables建立一个NAT, 用下面的命令：

apt-get install iptables （如果已经安装iptables，这一步就不用了）

iptables -t nat -A POSTROUTING -s 192.168.0.0/24 -o eth0 -j MASQUERADE

上面的24表示子网掩码，代表24个1.

OK，到了这一步就应该可以用VPN了哈。如果不能，我也不知是哪里出问题了。

如果要防止重启服务器后iptables丢失，先运行

iptables-save > /etc/iptables-rules

然后修改/etc/network/interfaces 文件，在eth0 下面加入

pre-up iptables-restore < /etc/iptables-rules

这样，服务器重启后，就能自动挂载规则了。

好了，有了VPN，墙再高也不怕了哈

快来抢沙发吧！
2011-11
22
发表于: Apache | 作者: 代码哥哥
标签:

两种方法：
1、建立虚拟主机，用不同的端口
修改httpd.conf
增加   listen   8080
NameVirtualHost   www.xxx.com:8080
<VirtualHost   www.xxx.com:8080>
ServerAdmin   webmaster@dummy-host.example.com
DocumentRoot   "E:/fanf/actova "
ServerName   dummy-host.example.com
ErrorLog   logs/dummy-host.example.com-error_log
CustomLog   logs/dummy-host.example.com-access_log   common
</VirtualHost>
就可以了

2、创建新的httpd.conf   文件
你可以这个样子，把httpd.conf   文件拷贝一份，起一个新的名字例如httpd-test.conf
修改其中的pid   等信息
例如PidFile   logs/httpd-test.pid
DocumentRoot
listen   8080
等信息
然后启动apache
/home/apache/bin/apachectl   -f   /home/apache/conf/httpd-test.conf   -k   start

即可，两种方式都试验过

快来抢沙发吧！
下一页 »
Copyright CBrother 2010 Powered by WordPress 2.9.2 - The Enhancing Spring (TES) by aw - 1.56 秒