做IE外挂程序怎样引用图标资源!--要得到一个图标资源在资源文件中的偏移量标号该怎么办?(300) (300分)

  • 主题发起人 主题发起人 jrq
  • 开始时间 开始时间
J

jrq

Unregistered / Unconfirmed
GUEST, unregistred user!
各位好:
eXeScope这个东东的确是个好东东。

用eXeScope打开NetAnts 或 FlashGet的exe文件,能够看到光标资源和图标资源的标号及偏移量,
但用eXeScope打开delphi编译的exe文件,却只能看见光标资源的标号和偏移量(自带的7个光标资源图标,
标号分别为32761到32767, eXeScope的任务栏上显示在资源文件中的偏移量和大小),
而图标资源却没有象光标资源那样的标号,只显示一个“MAINICON”的exe文件图标(任务栏上也能显示偏移量和大小)。

我又在文件中加入了自己的图标资源{$R XXX.res},用eXeScope打开一看,也只有名字而没有标号。

最初我以为资源的标号和偏移量有一些对应关系(如标号为32761的光标资源偏移量是00054F90),
算了一下, 发现并不是16进制和10进制的对应。

现在我要在程序中引用图标资源的标号,在注册表中进行注册(试了一下引用名字不管用的),
请各位DFW帮忙指导!!! (NetAnts 和 FlashGet的都可以啊) 谢谢! 送分300。
 
Delphi 6/Demos/ResXplor/resxplor.dpr
研究一下.
 
to LeeChange 大侠:谢谢。
这个 resxplor.dpr DEMO看了,和eXeScope一样的。
我现在是要得到图标资源的标号,而不是相对的偏移量。
NetAnts的图标资源很多,并且都有资源的标号,可以引用此标号而达到引用资源的目的。
我现在不清楚的是为什么用Delphi编译的exe中,不管是系统自带的图标资源,
还是自己加入图标资源的都没有前面的那个“标号”,而光标资源就有“标号”??
这是delphi自身决定的吗???

我继续看这个DEMO。
 
请各位帮忙up一下! 谢谢!
 
TO:jrq
老兄!看了你在北京的照片,呵呵,与我一样都是苗条型!
你的问题我总是帮不上忙!只好up!!
我还没过试用期,每天都在研究串口通讯!以后还得向老兄请教!
 
首先在程序中定义一个值大于0的常量,因为Delphi本身用0-负16来索引默认的光标,所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码:
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量,mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标,例如Panel控件,只需在程序的适当处加入以下代码:
Panel1.cursor:=35;
 
to 哈利波特 : 兄弟,多谢多谢! [:)]
我也是一菜鸟,正在爬行!呵呵

上次就想给你要Q号码的。 这次如看到这条留言,请留下QQ号码,方便交流!
 
to forgot2002 老兄:
谢谢留言!
不过你写的东东我很久以前就看到了,我问的并不是资源文件在Delphi中的应用啊!
我是问关于图标的问题,不是光标。

参见DFW上很久以前的经典文章中-- 4.在Delphi程序中调用资源文件:
--------------------------------
谈资源文件在Delphi中的应用
鲸鱼工作室 陈经韬
资源文件一般为扩展名为res的文件。在VC中资源文件用得非常普遍,
但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的
资源编译工具BRCC32.EXE(一般位于/Delphi/BIN目录下),我们完全可
以做出跟VC一样效果的文件来。//
资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一
起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如
在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下
(通常是主程序所在路径),但如果用户路径误删你的图片文件,则可能
使程序找不到相应文件而出错崩溃。另外,如果你想自己的程序界面美观,
想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为:
1.编写rc脚本文本
用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如:
mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标
格式分别为在资源文件中的名称->类型->实际文件名称,例如上面
第一行 定义一个名为mycur的光标,实际名称为加入光标move.cur.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录,执行DOS命令。
格式为:Brcc32 脚本文件(回车),例如有一名为myfirst.rc的脚本文件,
则执行 Brcc32 myfirst.rc(回车)即可。如果你是懒人,也可新建一批
处理文件,内容 只有一行:Brcc32 mufist.rc.(因为Delphi安装后一般会
在自动批处理文件中指明搜索路径的。)如果编译成功,则会生成一个结尾
为res的文件,这个 文件就是我们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下,在单元文件
{$R *DFM}后加上一句{$R mufirst.res},则将res文件加入去,编译后资
源文件即已包含在可执行文件中了。若你有多个资源文件,也按上法依次
加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法
<1>光标的调用
首先在程序中定义一个值大于0的常量,因为Delphi本身用0-负
16来索引 默认的光标,所以我们制定的光标应从表面上1开始索引。然后
在窗口的Oncreat事件中添加以下代码:
screen.cursor[35]:Load cursor (hinstance,'mycur');
其中35为大于1的常量,mycur为光标在资源文件中的名字。如
果希望在 其他控件上使用定制光标,例如Panel控件,只需在程序的适当
处加入以下代码:
Panel1.cursor:=35;
<2>位图的调用
新建一项工程,添加一Timage控件,在需要显示的地方写以下代码:
Var mymap:Hbitmap;
begin
hmymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap;
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程,添加一Animate控件,在需要的地方加入:
animater1.resname:='myAVI';
animater1.Active:=true;
其中myAVI为视频文件在资源文件中的名称。
〈4〉调用WAV文件
在uses中加入mmsystm单元,以便在程序中播放WAV文件。播放时Playsound
(pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音
文件在资源中的名称。
〈5〉加入光标
加入光标比较容易,只要将res文件加入单元文件中即可。但需注意,名称
最好取"W"."WW"等,使第一个字母尽量靠后,以免与主程序的图标顺序颠倒。
补充:1.资源类型除上述类型外,还可以字体文件,字符串文件等。
2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。
下面我们来试验一下:
新建一工程,将唯一的一个Form删除,然后修改工程文件。增加一句
{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元
删掉。将Begin和end之间语句删掉。至此,我们就可和Turbo PASCAL
下编程序一样,且还可以调用windows的API和资源。将资源文件----
{$R myfist.res}加入。在Begin和end之间写下:
writeln('演示程序,按任意键开始!');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束!');
运行程序,将弹出一个标准DOS窗口,按任意键播放声音文件。是不是很COOL呢!
我曾下载过一个播放器,在其安装目录下我发现有一"DOS程序",用鼠标双击它
便弹出一个DOS窗口,显示DOS时代特有的画图,并有背景音乐!可能就是用这个
方法做的。
3.Delphi本身自带了一个叫Image Editor的工具,同样可以编辑资源文
本,但和本文的方法比较,可得出下表:

**************************************
Image Editor Brcc32

BMP 只支持16位色 任意色

光标 黑白两色 任意色

ICO 只支持16位色 任意色

AVI 不支持 支持

WAV 不支持 支持

字体
字符串 不支持 支持
其他
****************************************
★软件作者:

陈经韬

430074湖北省武汉市武昌民院路湖北经济管理大学计算机系(本)9803班
E-Mail: lovejingtao@21.cn.com
jingtao@990.net
 
帮忙提提吧。谢谢!
 
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
 
天崖无爱真乃高人也,jrq兄还不赶紧给分.
 
>>>首先在程序中定义一个值大于0的常量,因为Delphi本身用0-负
>>>16来索引 默认的光标,所以我们制定的光标应从表面上1开始索引。然后
>>>在窗口的Oncreat事件中添加以下代码:
>>> screen.cursor[35]:Load cursor (hinstance,'mycur');

老兄们,不要开玩笑。 [:(]
^^^^^^^^^^^^^^^^^^^^^^^^^^^
再说一边吧:我是想引用资源文件中的 ICO 图标资源的“标号”,而非cursor光标资源!
这样我可以用这个图标资源在IE上做外挂程序!

请用 Delphi 6/Demos/ResXplor/resxplor.dpr 这个DEMO随便打开一个delphi的exe文件,
可以看到众多的资源,可是 Icon 下的图标资源不象Cursor光标资源那样每个都带有一个“标号”,
如32761、32762等等。
但是,还是用这个DEMO 打开“网络蚂蚁”的exe文件,却可以在Icon 下看到图标资源有标号,
如101,137等等。

这是为何? 是因为Delphi自身编译引起的吗?
还是因为是自己加入的资源?可我在文件中加入了自己的图标资源{$R XXX.res},也是不行啊。
 
呵呵!
我的QQ10503283
up
up
 
还是问你MIDAS的一个问题:
当server 与 client (DCOM) 在同一台机器上测试运行,server 与 client均运行无误。
当server 与 client 不在同一台机器上(在同一局域网内的2台机器)测试,培植
DCOMCNFG以后, SERVER已启动, 可以访问, 却告诉我错误 'interface not supported'!
改换为 TSocketConnection 组件,一切OK, 这是为何?

 
呵呵,kevintxk 老兄 跑到我这帖子来啦~
你这个错误提示倒是没有遇到过。

这个提示是在IDE中配置时出现的,还是在运行程序后进行某项操作时出现的?
client端的登录是否用管理员administrator身份的?
一般情况,即使你不手动启动server,当client启动时,server也会自己激活运行的。
你可以继续测试,如有结果,请留言。
 
帮你up
看看这个怎样?
http://www.vckbase.com/vckbase/vckbase12/vc/nonctrls/gdi_17/1217001.htm
我听说netants是VC编的,是不是和这个原因有关系?
 
我仔细看了一下 它的VC源代码,发觉它完全能取得其它VC程序中Icon资源,并且能得到Icon的ID(不是名称,是资源的数字编号,与原来VC工程中定义的完全一致)
关键在这句:
if( ! EnumResourceNames( EDII.hInstance, RT_GROUP_ICON, (ENUMRESNAMEPROC )MyEnumProcedure, (LPARAM)GetSafeHwnd()) )

其中:
BOOL CALLBACK MyEnumProcedure( HANDLE hModule, LPCTSTR lpszType, LPTSTR lpszName, LONG lParam )
{
TCHAR szBuffer[256];
LONG nIndex = LB_ERR;
LPTSTR lpID = NULL;

// Name is from MAKEINTRESOURCE()
if( HIWORD(lpszName) == 0 )
{
wsprintf( szBuffer, "Icon [%d]", (DWORD)lpszName ); // 注意,这个lpszName 就是偏移量,我就是不懂,这个参数是怎么传进去的。回头发信问问作者吧。
lpID = lpszName;
}
else
{
// Name is string
lpID = strdup( lpszName );
wsprintf( szBuffer, "Icon [%s]", lpID );
}
// Add it to the listbox
nIndex = SendDlgItemMessage( (HWND)lParam, IDC_LIST1, LB_ADDSTRING, 0, (LPARAM)(szBuffer) );
// Set the item data to be the name of the resource so we can get it later
SendDlgItemMessage( (HWND)lParam, IDC_LIST1, LB_SETITEMDATA, (WPARAM)nIndex, (LPARAM)lpID );

return TRUE;
}

希望对你有用。
 
多谢wukw兄弟。
谢谢![:)]
 
jrq,不好意思,我不是来回答你的问题的。不知你还记不记得这个贴子:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=893284,兄弟现在也正被这个问题
弄得焦头烂额,今天查找论坛,偶然见到了您的贴子,即为您的敬业精神所折服,又为您
最终将问题解决而高兴。只是我现在还有几个问题不太清楚,尚请赐教:
1.在“来自:jrq, 时间:2002-1-29 17:18:00, ID:893284”的“问题1”中你说“
这个服务已经在server端注册的啊!”。请问你怎样在server端注册这个服务?是制成
安装文件后在server端运行,还是在server端也装了一个delphi,然后运行服务器端程序。
2.在制作安装文件时,我听说要把“midas.dll”文件也要加入进去,请问是不是这样,
如果是的话那应该放在服务端的程序中还是客户端的程序中?我的系统是:服务器端为
Win2000 Server + SQL Server 2000,客户端为Win98。
3.我现在程序是DCOM连接,在Server中的dcomcnfg中已经加了一个用户,那在客户端怎样
才能有一个登录窗口让我输入帐户。
4.如果是Socket连接的话,那在做安装文件时,scktsrvr.exe这个文件是不是要包含进去,
是放在服务器端还是放在客户端?
现在我这边的情况也是“RPC服务不可用”,要李维说你执行客户端程序时,服务器端的服务
会自动启动的呀。没办法我现在只能在客户端装了个delphi,然后把DCOM连接的计算机名设
成客户端的IP,相当于把一个分布式多层应用系统改成了一个C/S,幸亏做的程序是自己单位
使用,如果是发布到外面去的话岂不惨了。
以上问题已经缠绕了我三天三夜了,一直没有得到一个满意的答复,尚请老兄不吝赐教。
 
后退
顶部