D2 TEKNIK KOMPUTER (BSI PROGRAMMER)
CARA MEMBUAT *.dll DALAM PROJECT DELPHI 2010 (Sharing By Ilmu Komputer)
Screen Shut Programnya :
*.DLL Project
Download Project *.DLL||Download_Project_DLL||
Source Code SumberDLL :
unit sumberDLL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFrmSumberDLL = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmSumberDLL: TFrmSumberDLL;
implementation
{$R *.dfm}
procedure ShowFormDLL;stdcall;
begin
Application.CreateForm(TfrmsumberDLL,frmsumberDLL);
//frmSumberDLL :=TfrmSumberDLL.Create(nil);
frmSumberDLL.Show;
end;
function ShowFormDLLModal:integer;stdcall;
begin
Application.CreateForm(TfrmsumberDLL,frmsumberDLL);
//frmsumberDLL := TfrmsumberDLL.Create(nil);
Result := frmsumberDLL.ShowModal;
end;
procedure TfrmSumberDLL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
Exports
ShowFormDLL,
ShowFormDLLModal;
begin
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFrmSumberDLL = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmSumberDLL: TFrmSumberDLL;
implementation
{$R *.dfm}
procedure ShowFormDLL;stdcall;
begin
Application.CreateForm(TfrmsumberDLL,frmsumberDLL);
//frmSumberDLL :=TfrmSumberDLL.Create(nil);
frmSumberDLL.Show;
end;
function ShowFormDLLModal:integer;stdcall;
begin
Application.CreateForm(TfrmsumberDLL,frmsumberDLL);
//frmsumberDLL := TfrmsumberDLL.Create(nil);
Result := frmsumberDLL.ShowModal;
end;
procedure TfrmSumberDLL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
Exports
ShowFormDLL,
ShowFormDLLModal;
begin
end.