火星信息安全研究院

Posts Tagged ‘Delphi’

增加了一个top100的音乐播放器风格，由于没有从根本上解决WebBrowser的滚动条的问题在未来一段时间内将不再跟新该软件。在Top100风格下不能加载默认播放列表，目前还不知道怎么解决。增加了托盘的风格切换功能。猛击此处下载该版本。
Read the rest of this entry »

其实就是个域名屏蔽的列表，做个小工具便于免杀。没什么高深的技术。猛击此处下载！ 提取码：f03cfa2718

最后蛋疼的贴点代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemDirectory(sysdir,256);
hosts := sysdir + '\drivers\etc\hosts';
backup := sysdir + '\drivers\etc\hosts.bak';
//ShowMessage(hosts);
if FileExists(hosts) then begin
mmo1.Lines.LoadFromFile(hosts);
if ((Pos('sdup.360.cn',mmo1.Lines.Text)) >0) then   begin
spSkinStatusPanel1.Caption := '状态：云已经挂掉。' ;
spSkinButton1.Enabled := False;
end else begin
spSkinStatusPanel1.Caption := '状态：云还飘着呢，赶紧挂掉吧。' ;
spSkinButton2.Enabled := False;
end;
 
end;
end;

Read the rest of this entry »

以前在原创区发过一个记事本的源代码，这次重写了一下，去掉了一些没用的功能，主要是破解辅助计算。
Read the rest of this entry »

============================================================
2010.06.17
Alpha测试版
1.重写全部代码，专门针对破解设计
2.增加辅助计算功能，支持十六进制和十进制
3.增加自动保存功能
4.增加文本编辑器滚动条设置。
5.支持载入破解模板设置。请自行修改style.config

猛击此处下载程序，皮肤可以使用灰鸽子挥着上兴的皮肤文件。

话说现在用的服务器控件非常的不稳定，郁闷的不行，经常出现不能访问的问题，本来想用在线的状态监测服务的，但是不好报警。于是就自己写了个小程序，检测网站的状态，如果发现错误会弹出一个错误提示对话框，程序隐藏/显示的快捷键是Alt + F8.免得有人看着窗口不爽，哈哈。 有什么特别的需要可以给我留言。猛击此处下载程序！

Click here to download ~ Download link 2~
Read the rest of this entry »