50 简单有关问题,DLL里怎么头部申明.

50 简单问题,DLL里如何头部申明...............
DLL里

Procedure guocheng1;StdCall; 
begin
guocheng2; //这里就调用不到guocheng2了
end;
Procedure guocheng2;StdCall; 
begin
guocheng1,; //这里可以调用guocheng1,
end;

如何像单元文件里一样头部申明?

[解决办法]
DLL单元中不能使用interface和implementation的

使用PASCAL语言中的保留字forward, 对第二个函数进行前置申明:

Delphi(Pascal) code

library Project2;uses  Dialogs,  ExtCtrls,  SysUtils,  Classes,  windows;{$R *.res}Procedure guocheng2;  stdcall;  forward;Procedure guocheng1;  stdCall;begin  showmessage('过程1');  guocheng2;end;Procedure guocheng2;  stdCall;begin  showmessage('过程2');  guocheng1;end;exports guocheng1;exports guocheng2;beginend.
[解决办法]
探讨

DLL里

Procedureguocheng1;StdCall;
begin
guocheng2; //这里就调用不到guocheng2了
end;
Procedureguocheng2;StdCall;
begin
guocheng1,; //这里可以调用guocheng1,
end;

如何像单元文件里一样头部申明?

[解决办法]
探讨

DLL单元中不能使用interface和implementation的

使用PASCAL语言中的保留字forward, 对第二个函数进行前置申明:

Delphi(Pascal) code
library Project2;

uses
  Dialogs,
  ExtCtrls,
  SysUtils,
  Classes,
  windows;{$R *.res}

Procedure guocheng2;  stdcall;  forward;

Procedure guocheng1;  stdCall;begin
  showmessage('过程1');
  guocheng2;end;

Procedure guocheng2;  stdCall;begin
  showmessage('过程2');
  guocheng1;end;

exports guocheng1;
exports guocheng2;beginend.