X-Star

用2009正式版QQ用户有福了，
把QQ目录下的BIN\KernelUtil.dll 文件中的 8BC68B4DF4 修改为 B801000000 即可实现QQ会员功能。
文件路径：C:\Program Files\Tencent\QQ\Bin
文件版本：1.25.660.0
文件大小：570,696 字节
修改前请先备份。
修改时，用HEX查找，只改找到的第一组数据。保存后退出。
修改后：
1.上线会员提示。
2.可以设置不显示广告。
3.在线好友全红名。

阅读全文>>

类别：玩转qq | 评论(7) | 浏览()

分离汉字和英文字母

2009/05/03 11:36

const
s:widestring='k你asdfdsf好d吗?';
var
i:integer;
y,h:string;
begin
while Length(s)<>0 do
    begin
      if Length(s[i])=Length(string(s[i])) then
        y:=y+s[i]
      else h:=h+s[i];
      s:=copy(s,2,length(s));
    end;
edit1.Text:=y;
edit2.Text:=h;

阅读全文>>

类别：Delphi | 评论(0) | 浏览()

程序打开控制面板及各项

2009/05/03 11:36

{启动控制面板}
winexec('rundll32.exe shell32.dll,Control_RunDLL',9);
{辅助选项属性-键盘}
winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);
{辅助选项属性-声音}
winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);
{辅助选项属性-显示}
winexe

阅读全文>>

类别：Delphi | 评论(1) | 浏览()

拆分字符串

2009/05/03 09:20

建立一个这样的函数
function SplitString(const Source,ch:String):TStringList;
var
temp:String;
i:Integer;
begin
Result:= TStringList.Create;
//如果是空自符串则返回空列表
if (Source='')or(Source='*') then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;

然后建立一个TstringList;
var ss:

阅读全文>>

类别：Delphi | 评论(0) | 浏览()