DLL 指點一二

Question

各位仁兄，如何把程序編譯成DLL，希望實例!~~~~~

Answer 1

Delphi内不是有个DLL Wizard可以创建DLL吗？
你要实例又是要哪些？

Answer 2

對delphi不太懂，難免說出一些不專業的話，見諒

Answer 3

其实你可以看看Delphi6开发人员指南，里面有你要找的东西。

Answer 4

会用不难
去载个Delphi超级猛料里面有相应案列

Answer 5

type
  TShowProcess = procedure ();Stdcall;
procedure TForm1.Button1Click(Sender: TObject);
var
  DLLHand: THandle;
  ShowProcess: TShowProcess;
begin
  DLLHand :=0;
  DLLHand := LoadLibrary('TreahDLL.dll');
  if (DLLHand <> 0 )then
   @ShowProcess := GetProcAddress(DllHand,'ShowProgress');  if (@ShowProcess <> 0) then
     ShowProcess;
  FreeLibrary(DLLHand);
end;library TreahDLL;uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}
procedure ShowProgress;
begin
  Form1.Create(Nil);
  Form1.ShowModal;
    Form1.Free;
end;exports
  ShowProgress;
begin
end.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzPrgres;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    RzProgressBar1: TRzProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;Resourcestring
  Demo = 'Demo';var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  RzProgressBar1.Percent :=0;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
;
end;procedure TForm1.FormShow(Sender: TObject);
begin
;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   RzProgressBar1.Percent := RzProgressBar1.Percent+1;
end;end.

Answer 6

一、创建链接库：File--new--other--dll    写好后，就Ctrl+F9就编译了！library aa;//库名aauses
  SysUtils,
  Classes;{$R *.res}
function wang(var x,y:integer):integer;//下面是Function函数
var s:integer;
begin
s:=x+y;
result:=s;//此函数返回值，固定放在result中
end;exports   //向外部声明函数wang 
     wang;begin
end.