Скачать: CL | DM;

Почему повторный вызов dll вызывает ошибку?   Найти похожие ветки 

← →
dim- ©   (2004-08-27 10:53) [0]

Почему повторный вызов dll вызывает ошибку?
library abouts;
uses
 SysUtils,
 Classes,
 main in "main.pas" {About};
{$R *.res}
exports ShowAbout ;
begin
end.

unit main;
...
Procedure ShowAbout() stdcall;export;
var
 About: TAbout;

implementation

{$R *.dfm}
Procedure ShowAbout() ;
Begin
About:=TAbout.Create(nil);
About.ShowModal;
About.free;
end;
------------------------------------------
Вызываю ее так:
var
  AboutShow:procedure();
  libhande:tHandle;
begin
@AboutShow:=nil;
libhande:=loadLibrary("Abouts.dll");
try
if libhande>=32 then begin
@AboutShow:=GetProcAddress(libhande,"ShowAbout");
if @AboutShow<>nil then
   AboutShow();
end;
finally
 FreeLibrary(libhande);
end;

---

← →
Digitman ©   (2004-08-27 10:58) [1]

AboutShow:procedure(); stdcall;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c