捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
映像劫持编辑器(无下载)
关键字:映像劫持编辑器, Delphi开发
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:中级 完成时间:2009/11/17
发布者:servite 发布时间:2009/11/18
编辑器:Delphi2010 语  种:简体中文
分 类:不常用 下载浏览:295/12117
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
{**********}
{          }
{       映像劫持编辑器          }
{          }
{       版权所有 (C) 2009 Abbey_Studio          }
{          }
{    作者:Servite          }
{          }
{    QQ: 2261206          }
{          }
{    Blog:   http://abbey_studio.blog.163.com          }
{          }
{          }
{**********}

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Registry;

type
  TIFEO_Form = class(TForm)
    AppName: TLabeledEdit;
    AppPath: TLabeledEdit;
    Add_LAdd_Name: TButton;
    Add_LAdd_Path: TButton;
    IFEO_LIST: TListView;
    IFEO_Btn: TButton;
    RE_BTN: TButton;
    Del_Btn: TButton;
    Open_File: TOpenDialog;
    procedure Add_LAdd_NameClick(Sender: TObject);
    procedure Add_LAdd_PathClick(Sender: TObject);
    procedure IFEO_BtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RE_BTNClick(Sender: TObject);
    procedure Del_BtnClick(Sender: TObject);
  private
    { Private declarations }
    procedure ViewIfeo;

  public
    { Public declarations }
  end;

var
  IFEO_Form: TIFEO_Form;

implementation

{$R *.dfm}
procedure TIFEO_Form.ViewIfeo;
const
VL = 'Debugger';
key_ = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\';
 var
 REG:  TRegistry;
 Strs:   TStringList;
 I:  Byte;
 Path:   string;
 begin
   REG:=  TRegistry . Create;  Strs:=  TStringList . Create;
   try
      with REG  do
        begin
          RootKey:=   HKEY_LOCAL_MACHINE;
          if OpenKey( key_, False ) then
          begin
          GetKeyNames( Strs );
          for I := 0 to Strs.Count - 1 do
          begin
          CloseKey;
          if OpenKey( key_ + Strs[I], False ) then
          begin
          Path:=  ReadString( VL );
          if FileExists( Path ) then
          begin
          with IFEO_LIST . Items . Add do
          begin
          Caption:=   Strs[I];
          SubItems . Add( Path );
          end;
          end;
          end;
          end;
          end;
        end;
   finally
      REG . Free;  Strs . Free;
   end;
 end;
//----------
function SetOrDel ( AName, APath:   string;  SW_BOOL:  Boolean ):  Boolean;
const
VL = 'Debugger';
key_ = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\';
 var
 REG:  TRegistry;
 begin
   REG:=  TRegistry . Create;
   try
      with REG  do
        begin
          RootKey:=   HKEY_LOCAL_MACHINE;
          if SW_BOOL then
          begin
          if CreateKey( key_ + AName ) then
          begin
          if OpenKey( key_ + AName,  false ) then
          begin
          WriteString( VL, APath );
          Result:=   True;
          end;
          end;
          end  else  begin
          if OpenKey( key_,  False ) then
          begin
          if  DeleteKey( AName ) then
          Result:=  True;
          end;
          end;
        end;
   finally
      REG . Free;
   end;
 end;
//----------
procedure TIFEO_Form.Add_LAdd_NameClick(Sender: TObject);
VAR
Str:   string;
begin
   if Open_File . Execute() then
      begin
        Str:=   ExtractFileName( Open_File . FileName );
        AppName . Text:=   Str;
      end;
end;

procedure TIFEO_Form.Add_LAdd_PathClick(Sender: TObject);
begin
    if Open_File . Execute() then
      begin
        AppPath . Text:=   Open_File . FileName
      end;
end;

procedure TIFEO_Form.Del_BtnClick(Sender: TObject);
var
Item:    TListItem;
begin
   Item:=  IFEO_LIST . Selected;
     if SetOrDel( Item . Caption,  '', False ) then
         begin
          Item . Destroy;
          MessageDlg('删除完成~!', mtInformation, [mbOK], 0);
         end;
end;

procedure TIFEO_Form.FormShow(Sender: TObject);
begin
 ViewIfeo;
end;

procedure TIFEO_Form.IFEO_BtnClick(Sender: TObject);
begin
 if (AppName .  Text <> '')and ( FileExists( AppPath . Text ) ) then
     begin
        if SetOrDel( AppName .  Text, AppPath .  Text,  True ) then
          begin
          with  IFEO_LIST . Items . Add do
          begin
          Caption:=  AppName . Text;
          SubItems . Add ( AppPath . Text );
          end;
          MessageDlg('劫持成功~!', mtInformation, [mbOK], 0);
          end;
     end  else  MessageDlg('输入要劫持程序 + 替换执行程序路径~!', mtError, [mbOK], 0);
end;

procedure TIFEO_Form.RE_BTNClick(Sender: TObject);
begin
   IFEO_LIST . Clear;
   ViewIfeo;
end;

end.
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论5条 当前显示最后5条评论
servite 2009/11/18 17:10:10
其实我是连视频和源码一起打包上传的 不知道为什么 合资只发了 源码内容
http://ishare.iask.sina.com.cn/f/6044298.html   这个是新浪资料下载地址
视频和源码都在里面 有兴趣看看吧~
zhzw007 2009/11/18 20:05:21
支持!顶一个。你终于共享一个源码了
lah998 2009/12/1 15:29:44
真没看懂是什么意思。
sbamwdx 2010/5/15 18:04:30
不错的东西,谢谢共享
sail2000 2010/6/2 11:17:36
可能是因为怕被某些所谓杀软kill编译后的程序,所以只放代码,免得引起口水吧。。。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表