Membuat file dll

File Dll (Dynamic Library Link) adalah sebuah sumberdaya file exe yang memungkinkan program untuk berbagi perintah. Didalam file dll bisa menyimpan procedure atau function. Cara membuat DLL pada delphi embarcadero 10.3 adalah File New | Other | Dephi | windows | Dynamic Library

library mydll;

uses
  System.SysUtils,
  Winapi.Windows,
  Winapi.Messages,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs;

{$R *.res}

function Pesanku(isi:String):word; export;
Begin
    Application.RestoreTopMosts;
    MessageDlg(isi, mtInformation, [mbOK], 0);
    Application.RestoreTopMosts;
end;

function Peringatanku(isi:String):word; export;
Begin
    Application.RestoreTopMosts;
    MessageDlg(isi, mtInformation, [mbOk],0);
    Application.RestoreTopMosts;
end;

function Pertanyaanku(isi:String):word; export;
Begin
    Application.RestoreTopMosts;
    if MessageDlg(isi, mtConfirmation, [mbYes, mbNo],0) = mrYes Then
    begin
         Result := mryes;
    end else
    begin
         Result := mrNo;
    end;
    Application.RestoreTopMosts;
end;

exports Pesanku;
exports Peringatanku;
exports Pertanyaanku;

begin

end.

Simpan file programnya dengan nama mydll
Compile program tersebut sehingga menghasilkan nama file bernama mydll.dll. Sekarang bagaimana cara memanggil dan menggunakan file tersebut ?? Nah, sekarang silahkan new project seperti biasa, dan buatkan program seperti dibawah ini :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function Pesanku(isi:String):word; external 'mydll.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     pesanku('Tampilkan pesan');
end;

end.

Apakah error ?, jika error file DLL belum di kopi kedalam folder project\debug\
Dan Selamat mencoba.

Bila kesulitan kontak kami di Whatsapp Gan.