X-Star
百度空间 | 百度首页 
               
 
个人档案
 
X_Star2008

上次登录:
10小时前
加为好友
 
   
 
我的搜藏
 
     
 
日历
 
     
 
文章分类
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Delphi(28)
 
 
 
vc++(4)
 
 
     
 
 
文章列表
 
2009/07/03 13:21
题记:由于自己想要从EXE导出ICO图标,一时半会也找不到好的软件,于是突发奇想自己写个,于是搜罗资料写出小软件,不过发现有些地方需要记录下来,以供自己回顾也方便同好查阅,故记录于此。

大家都知道怎么用 TICon 从一个 EXE 文件中导出 .ICO 文件,短短几行代码即可搞定,代码如下:
 
2009/05/04 23:13

只改几个字节就能成为QQ会员

用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.在线好友全红名。
 
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;
 
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

 
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:
 
     
 
 
RSS订阅
 
   
 
其它
 
已有人次访问本空间
 
订阅RSS  什么是RSS?

您也想拥有这样的空间?请点此申请。
     


©2009 Baidu