咋样从一个delphi程序访问另外一个delphi程序中的对象。(100分)

M

midas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #1

有一个用delphi编写的程序正在应用，但有一些个别界面不满意，而我又无法直接修改，
咋样再写一个delphi程序，可以直接访问第一个程序中的object. 如form等。
例如，如有格用delphi写的程序中的一个form的formstyle 是ｓｔａｙｏｎｔｏｐ，
我想些另外一个程序能够访问到第一个程序的ｆｏｒｍ，然后将其ｆｏｒｍｓｔｙｌｅ设置即可
当然我可以通过ｈｏｏｋ实现，但如能直接访问就更好了。
絮絮叨叨，不知说清了吗？

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #2

如果第一个程序中的组件写成COM对象，第二个引用其类型库就行。
但目前这种状况看起来不容易

 

M

MaoSheng lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #3

分发送与接收
发送:新建一个工程,并在其窗体中加一个EDIT和一个BUTTON
procedure TForm1.button1click(sender:TObject);
var
ds:TCopydatastruct;
hd:THandle;
begin
ds.cbData:=Length(Edit1.Text)+1;
GetMem(ds.lpData,ds.cbData); //为传递数据分配内存
StrCopy(ds.lpdata,PChar(edit1.Text));
hd:=Findwindow(nil,'Form2'); //获得按受窗口的句柄
if HD<>0 then
SendMessage(Hd,WM_COPYDATA,Handle,Cardinal(@ds); //发送WM_COPYDATA消息
else
Showmessage('No found!');
FreeMem(ds.lpData); //释放资源
end;

接收:再建一个工程,并在其窗体中加一个EDIT
unit unit2;
....
public
{Public declarations}
procedure Mymessage(var t:TWmCopyData);message WM_COPYDATA;
...
procedure TForm2.Mymessage(var t:TWmCopyData);
begin
edit1.text:=Strpas(t.CopyDataStruct^.lpData); //接受并显示
end;

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #4

>>>>

 

M

midas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #5

呵呵，第一个程序我是控制不了的，如果能控制，我只要修改一下其属性值即可，
第一个是已经写好的，我没有源代码，只有执行程序。
望各位大虾继续支招

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #6

取第一个程序的resource, 然后找出delphi的form resource, 分析你要修改的属性的位置
然后直接改变它, 再写回第一个程序的resource中.

 

老

老屯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-27

• #7

有一个叫做ResHacker的程序,可以直接修改Delphi编译的Exe文件的Resource

 

M

midas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-28

• #8

这也算是个办法。但是第一个程序已经加密，我不能直接修改其资源，所以我想动态修改

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-28

• #9

真的很难到一些黑客网站问问

 

M

midas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #10

没有更好的答案了吗？各位大虾

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-22

• #11

附加功能 将问题提前

 

X

xin_kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-22

• #12

>>

 

J

JJams_King

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #13

listen.

 

A

akju

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #14

这是可以的，exex上有人回答过这个问题，好像你写一个新的xxx.dll还是
什么东东的就可以（名字没记住），所有的dephi 程序都会自动加载这个东东
然后你就可以得到那个delphi程序的ａｎｙｔｈｉｎｇ了，呵呵，你还是上
ｅｘｅｘ上查一下吧

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-29

• #15

midas:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-30

• #16

多人接受答案了。