文档章节

Delphi DLL 窗体

vga
 vga
发布于 2017/05/16 16:08
字数 90
阅读 25
收藏 0

Dll 导出:


{$R *.res}
exports
  ShowDataCheckForm;
begin
end.

DLL 实现:

  public
    { Public declarations }
  end;

  procedure ShowDataCheckForm(app: THandle; CheckStep: Integer); stdcall;


var
  FormMain: TFormMain;

implementation


procedure ShowDataCheckForm(app: THandle; CheckStep: Integer);
begin
  Application.Handle := app;
  FormMain := TFormMain.Create(Application);
  if CheckStep = 1 then
    FormMain.Caption := '参数一'
  else
    FormMain.Caption := '参数二';

  try

    FormMain.ShowModal;
  finally
    FormMain.Free;
  end;
end;

DLL 调用:

procedure ShowDataCheckForm(app: THandle; CheckStep: Integer);
  stdcall;
  external '.\dll\YCDataCHK.dll'; // 动态连接库


procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowDataCheckForm(Application.Handle, 1);
end;

© 著作权归作者所有

vga

vga

粉丝 23
博文 366
码字总数 26645
作品 0
佳木斯
私信 提问
聊天工具视频接口编写问题?求助

windows下实现一个聊天工具,支持视频。底下视频流和对接接口都是使用C/C++编写,提供dll接口。 UI考虑用delphi或者QT等其他语言编写。想问下,windows下使用directshow实现的话,怎么实现视...

拉菲一箱
2012/03/14
409
1
[开源项目-MyBean轻量级配置框架] 使用MyBean快速搭建分模块的应用程序(主页面的TAB)(DLL-MDI)

[概述] 抱歉由于上次开源比较匆忙,没有来的及做一个DEMO,里面也有些垃圾的文件没有及时清理。DEMO其实昨天晚上已经调通。相关说明文档今天晚上才说明好,欢迎大家继续关注和交流,和大家一...

天地弦
2014/05/20
0
0
Delphi调用 C# 写的webservice

Delphi调用 C# webservice总结 用delphi的THTTPRIO控件调用了c#写的webservice。 下面是我调试时遇到的一些问题: 1:导入wsdl文件:file--new----other----webservice---WSDLimporter---输入...

vga
2014/11/25
438
0
delphi fastMM 使用方法简介

delphi fastMM 使用方法简介 在 http://sourceforge.net/projects/fastmm 中可以下载到最新 stable 的 FastMM,当前推荐的是 4.62,主要特点包括: 1、彻底实现了 Borland 的内存管理器,可以...

vga
2014/08/26
1K
0
Delphi 编写ActiveForm窗体工程知识和样例(开发浏览器客户端应用程序)

Delphi 编写ActiveForm窗体工程知识和样例(开发浏览器客户端应用程序) 目录(?)[+] 一基础知识介绍 二 ActiveForm工程 一、基础知识介绍: 1、ActiveForm的基础知识介绍: 在Delphi中,Act...

vga
2014/03/06
672
0

没有更多内容

加载失败,请刷新页面

加载更多

Spring Boot + Mybatis-Plus 集成与使用(二)

前言: 本章节介绍MyBatis-Puls的CRUD使用。在开始之前,先简单讲解下上章节关于Spring Boot是如何自动配置MyBatis-Plus。 一、自动配置 当Spring Boot应用从主方法main()启动后,首先加载S...

伴学编程
昨天
7
0
用最通俗的方法讲spring [一] ──── AOP

@[TOC](用最通俗的方法讲spring [一] ──── AOP) 写这个系列的目的(可以跳过不看) 自己写这个系列的目的,是因为自己是个比较笨的人,我曾一度怀疑自己的智商不适合干编程这个行业.因为在我...

小贼贼子
昨天
7
0
Flutter系列之在 macOS 上安装和配置 Flutter 开发环境

本文为Flutter开发环境在macOS下安装全过程: 一、系统配置要求 想要安装并运行 Flutter,你的开发环境需要最低满足以下要求: 操作系统:macOS(64位) 磁盘空间:700 MB(不包含 IDE 或其余...

過愙
昨天
6
0
OSChina 周六乱弹 —— 早上儿子问我他是怎么来的

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 @凉小生 :#今日歌曲推荐# 少点戾气,愿你和这个世界温柔以待。中岛美嘉的单曲《僕が死のうと思ったのは (曾经我也想过一了百了)》 《僕が死の...

小小编辑
昨天
2.7K
16
Excption与Error包结构,OOM 你遇到过哪些情况,SOF 你遇到过哪些情况

Throwable 是 Java 中所有错误与异常的超类,Throwable 包含两个子类,Error 与 Exception 。用于指示发生了异常情况。 Java 抛出的 Throwable 可以分成三种类型。 被检查异常(checked Exc...

Garphy
昨天
42
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部