首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[求助]Delphi的问题，小虾请进
发表于: 2005-11-23 22:37 5473

[求助]Delphi的问题，小虾请进

chinadev 活跃值
2005-11-23 22:37
5473
首先感谢小虾大哥帮我解决了那么多问题
现在我又遇到了一个delphi的问题了
我在处理“流”的时候想用到 MPHexEditor, MPHexEditorEx控件
但是，我的delphi 7.0里面找不到这个控件

请问怎么办啊？谢谢大哥

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

收藏
免费 ・0
支持
分享
最新回复 (9)
小虾
雪    币： 2384
活跃值： (766)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
2 楼
这个控件不是Delphi自带的，必须自己去互联网上找，Delphi盒子有下载，不过要注册的：

BWT：我没用过这个控件。
2005-11-23 22:50
0
chinadev
雪    币： 0
能力值： (RANK：10 )
在线值：
发帖
回帖
粉丝
私信
3 楼
最初由 小虾 发布
这个控件不是Delphi自带的，必须自己去互联网上找，Delphi盒子有下载，不过要注册的：


BWT：我没用过这个控件。

谢谢大哥我找到了。。。你真是我的福星
2005-11-24 00:51
0
chinadev
雪    币： 0
能力值： (RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
小虾大哥delphi里面能够不能够实现这样的功能啊？

程序检测到了调试器调试，就自动删除程序本身？

突发奇想
2005-11-24 18:39
0
小虾
雪    币： 2384
活跃值： (766)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
5 楼
呵，不会。在坛论看过有汇编代码的。
2005-11-24 20:16
0
chinadev
雪    币： 0
能力值： (RANK：10 )
在线值：
发帖
回帖
粉丝
私信
6 楼
在网上看到一个函数可以实现自己删除，但是，不懂怎么调用
小虾大哥可否帮忙看下

procedure TForm1.OnClose;
var tfTmp:TextFile;
begin
...
//当然是满足一定条件后才执行一下代码
Assignfile(tfTmp,'delself.bat');
Rewrite(tfTmp);
Writeln(tfTmp,'@echo off');
Writeln(tfTmp,':loop');
Writeln(tfTmp,'del '''+Application.ExeName+'''');
Writeln(tfTmp,'If Exist'+Application.ExeName+'Goto loop');
Writeln(tfTmp,'del delself.bat');
Closefile(tfTmp);
Winexec('delself.bat', SW_HIDE);
Close;
end;


另外'delself.bat'怎么搞啊
2005-11-24 22:28
0
小虾
雪    币： 2384
活跃值： (766)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
7 楼
他上面不是已经写好了吗？
你可以随便写一个Procedure，将你上面的内容全部写到这个Procedure
中，接着程序就可以根据判断有没有调试来调用这个Procedure就行了。如：
Procedure TForm1.Delself();
var tfTmp:TextFile;
begin
  Assignfile(tfTmp,'delself.bat');
  Rewrite(tfTmp);
  Writeln(tfTmp,'@echo off');
  Writeln(tfTmp,':loop');
  Writeln(tfTmp,'del '''+Application.ExeName+'''');
  Writeln(tfTmp,'If Exist'+Application.ExeName+'Goto loop');
  Writeln(tfTmp,'del delself.bat');
  Closefile(tfTmp);
  Winexec('delself.bat', SW_HIDE);
  Close;
end;

//---------------
//调用该过程。
if Debug then Delself();

//delself.bat已经由Delself过程自动生成，你不用另外写了。
2005-11-25 00:42
0
chinadev
雪    币： 0
能力值： (RANK：10 )
在线值：
发帖
回帖
粉丝
私信
8 楼
最初由 小虾 发布
他上面不是已经写好了吗？
你可以随便写一个Procedure，将你上面的内容全部写到这个Procedure
中，接着程序就可以根据判断有没有调试来调用这个Procedure就行了。如：
Procedure TForm1.Delself();
var tfTmp:TextFile;
........

谢谢小虾
2005-11-25 13:03
0
vlit
雪    币： 221
能力值： (RANK：10 )
在线值：
发帖
回帖
粉丝
私信
9 楼
如何判断自己有没有被调试呢?我觉得这点是关键,哪位能不能再讲一下这个问题?
2005-11-30 20:55
0
starluck
雪    币： 212
活跃值： (40)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
10 楼
判断有没有DEBUG API被调用吧！大致是这样，忘了怎么判断了，不好意思
2005-12-1 18:07
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//