把exe文件当dll用,也可以在dll中调用exe中的函数

http://blog.sina.com.cn/s/blog_47108278010000hs.html

1. 被调用的exe文件
 
工程文件中
program Project1;
uses
   Forms,Dialogs,
   Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
 
function mymsgbox:Boolean;export;
begin
   showmessage('ok');
   result:=True;
end;

exports
   mymsgbox;
 
begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
end.
 
2.调用exe部分
 
在form1中添加一个按钮,单击调用exe的mymsgbox函数
 
unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls;
type
   TForm1 = class(TForm)
       btn1: TButton;
       procedure btn1Click(Sender: TObject);
   private
       { Private declarations }
   public
       { Public declarations }
   end;
var
   Form1: TForm1;
     //  function mymsgbox:Boolean;external 'project1.exe';     
implementation
{$R *.DFM}
procedure TForm1.btn1Click(Sender: TObject);
var
   mymsgbox: function: Boolean;
begin
  //动态调用
  @mymsgbox := GetProcAddress(GetModuleHandle(pchar(application.Exename)), 'mymsgbox');
  if Assigned(mymsgbox) then //找到
     mymsgbox;
 
  //静态调用,结合上面的声明语句
  //mymsgbox; 
end;
end.
 
3.dll调用部分
 
library Project2;
uses
   SysUtils,
   Classes,
   Windows;
{$R *.RES}
function dllcall:Boolean;export;
var
   mymsgbox: function: Boolean;
begin
   @mymsgbox := GetProcAddress(GetModuleHandle(pchar('project1.exe')), 'mymsgbox');
   if Assigned(mymsgbox) then //找到
       mymsgbox;
end;
exports
   dllcall;
begin
end.

 

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
智慧校园整体解决方案是响应国家教育信息化政策,结合教育改革和技术创新的产物。该方案以物联网、大数据、人工智能和移动互联技术为基础,旨在打造一个安全、高效、互动且环保的教育环境。方案强调从数字化校园向智慧校园的转变,通过自动数据采集、智能分析和按需服务,实现校园业务的智能化管理。 方案的总体设计原则包括应用至上、分层设计和互联互通,确保系统能够满足不同用户角色的需求,并实现数据和资源的整合与共享。框架设计涵盖了校园安全、管理、教学、环境等多个方面,构建了一个全面的校园应用生态系统。这包括智慧安全系统、校园身份识别、智能排课及选课系统、智慧学习系统、精品录播教室方案等,以支持个性化学习和教学评估。 建设内容突出了智慧安全和智慧管理的重要性。智慧安全管理通过分布式录播系统和紧急预案一键启动功能,增强校园安全预警和事件响应能力。智慧管理系统则利用物联网技术,实现人员和设备的智能管理,提高校园运营效率。 智慧教学部分,方案提供了智慧学习系统和精品录播教室方案,支持专业级学习硬件和智能化网络管理,促进个性化学习和教学资源的高效利用。同时,教学质量评估心和资源应用平台的建设,旨在提升教学评估的科学性和教育资源的共享性。 智慧环境建设则侧重于基于物联网的设备管理,通过智慧教室管理系统实现教室环境的智能控制和能效管理,打造绿色、节能的校园环境。电子班牌和校园信息发布系统的建设,将作为智慧校园的核心和入口,提供教务、一卡通、图书馆等系统的集成信息。 总体而言,智慧校园整体解决方案通过集成先进技术,不仅提升了校园的信息化水平,而且优化了教学和管理流程,为学生、教师和家长提供了更加便捷、个性化的教育体验。
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值