Почему повторный вызов dll вызывает ошибку? [D6, WinXP]
dim- © (2004-08-27 10:53:00)
Почему повторный вызов 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:00) [1]
AboutShow:procedure();
stdcall;
Наверх 
ЧАТ |
Орешник |
|
