zoukankan      html  css  js  c++  java
  • 调用dll中form,太古老了,可是

    太古老了,可是用的不多。应该考虑商品化项目首选。

    library Prj_dll;
    
    { Important note about DLL memory management: ShareMem must be the
      first unit in your library's USES clause AND your project's (select
      Project-View Source) USES clause if your DLL exports any procedures or
      functions that pass strings as parameters or function results. This
      applies to all strings passed to and from your DLL--even those that
      are nested in records and classes. ShareMem is the interface unit to
      the BORLNDMM.DLL shared memory manager, which must be deployed along
      with your DLL. To avoid using BORLNDMM.DLL, pass string information
      using PChar or ShortString parameters. }
    
    uses
      SysUtils,
      Classes,
      Unit2 in 'Unit2.pas' {Form2};
    
    {$R *.res}
    
    exports  MyShow;
    
    begin
    end.
    unit Unit2;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, SHDocVw;
    
    type
      TForm2 = class(TForm)
        wb1: TWebBrowser;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    procedure MyShow; export;
    
    implementation
    
    {$R *.dfm}
    procedure MyShow;
    begin
      with TForm2.Create(Application) do
      begin
        ShowModal;
        Free;
      end;
    end;
    
    procedure TForm2.FormCreate(Sender: TObject);
    begin
      wb1.Navigate('www.zc99.com');
    end;
    program prj;
    
    uses
      Forms,
      Unit1 in 'Unit1.pas' {MainForm};
    
    {$R *.res}
    
    begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    end.

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TMainForm = class(TForm)
        btn1: TButton;
        procedure btn1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      MainForm: TMainForm;
    procedure MyShow; far; external 'E:prj_dll.dll';
    implementation
    
    {$R *.dfm}
    
    
    
    
    
    procedure TMainForm.btn1Click(Sender: TObject);
    begin
     MyShow;
    end;
    
    end.
  • 相关阅读:
    一秒 解决 ERROR 1044 (42000): Access denied for user ''@'localhost' to database 'mysql 问题
    30分钟让你学会 Spring事务管理属性
    判断是否是回文
    Linux自动获取IP地址 重启不会消失
    .The server quit without updating PID file (/var/lib/mysql/pc.pid).
    线程的状态
    linux vim基本操作
    C++ 函数重载和参数的缺省值
    C++ 类中的3种访问权限和继承方式
    C++ 内存管理
  • 原文地址:https://www.cnblogs.com/usegear/p/12195366.html
Copyright © 2011-2022 走看看