客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
delphi 能实现把别的DLL的窗体句柄查到后，贴到PANL之中，此类文章网上不少，而如果是delphi不同版本开发的DLL互调时，一些控件内部的定义有所区别，因为无法（至少目前我觉得理论上不可行）实现不同版本的DLL融合一体式的共用同一个appcation. 因此，跨版本的DLL调用，实际上也就是把DLL当做一个独立程序，而数据连接这些需要在DLL中自己再实现一套，会有一定的麻烦，但是如果不得不这样做，这样的牺牲也是没办法的事（如果谁实现了协调的跨版本数据连接共享，希望留言指点一二） Function GETInterfacedFunc(iApplication:TApplication;iScreen: TScreen;Imode:integer;Userinfo:String):IInterfacedFunc ;stdcall; 上面的代码，是常规的DELPHI 的DLL调用实现，也就是传入 iApplication:TApplication;iScreen: TScreen; 然后返回调用接口。 Function GETInterfacedFunc（Imode:integer;Userinfo:String):IInterfacedFunc ;stdcall; 跨版本相当于独立的程序调用，因此入口函数，就不能再处理 Application与 Screen了，咋们，就当这个DLL是一个独立EXE 如果传了 Application与 Screen ,就是建一个简单的FORM都会报地址错，因为相同的类在不同版本里面，其定义差异很大了。 加载DLL后 下面就是显示窗体了 直接上代码吧 function Tform.Showform(Parent: THandle;PHeight:integer;PWidth:integer ): boolean;
begin
frm:=TfrmMain.Create(nil); //
DM:=TDM.Create(application); //application
if WINAPI.Windows.SetParent(frm.Handle,Parent)=0 then
begin
Result:=False;
frm.Free;
Exit;
end;
SetWindowLong(frm.Handle,GWL_STYLE,GetWindowLong(frm.Handle,GWL_STYLE) and not (WS_CAPTION or WS_THICKFRAME));
// //WS_CAPTION和WS_THICKFRAME分别表示标题栏和边框
WINAPI.Windows.MoveWindow(frm.Handle,0,0,PWidth,PHeight,True);
frm.Show;
end;
使用winAPI 来实现窗体的处理，比直接用delphi 常规代码，更具有兼容性。 外部EXE中的调用代码，我想不需要特别列出，其实与同版本调用，已经是完样一样的了。 就是普通的接口调用了 IInterfacedFunc=interface
['{1440EC99-A782-4E12-9F82-3020C8D887B4}']
Function Showform(Parent: THandle;PHeight:integer;PWidth:integer):boolean;stdcall;
procedure Resize(PHeight:integer;PWidth:integer);stdcall;
procedure CloseForm ;stdcall;
procedure SetCloseProc(Proc:TCloseProc);stdcall;
end;
附：接口pas代码。
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论