Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

Динамическая загрузка DLL   Найти похожие ветки 

 
Ega23 ©   (2005-02-03 14:50) [0]

Есть DLL с экспортируемой функцией
function GetNewParam(Param1, Param2 : DWord):PChar; StdCall;

Как прописать динамическую загрузку этой библиотеки?

LoadLibrary, GetProcAddress, FreeLibrary - это я знаю. А вот что присвоить GetProcAddress ?


 
Lord Zmiy ©   (2005-02-03 14:52) [1]

...
var
  ...

procedure USE(Sender: TObject);
    type
  TNameFunction =  function(Par1: Par1Type; ...): ReturnType; stdcall;
 var
  FunctionName: TNameFunction;
     LibHandle: THandle;
   Begin
 @FunctionName := nil;
 LibHandle := LoadLibrary("DllName.dll");
 if LibHandle >= 32 then
    begin
  @FunctionName := GetProcAddress(LibHandle, "FunctionName");
  if @FunctionName <> nil then
    begin
     UseDllFunction;
    end;
   end;
 FreeLibrary(LibHandle);
  End;


 
Alx2 ©   (2005-02-03 14:54) [2]

>Ega23 ©   (03.02.05 14:50)

@MyFunc := GetProcAddress(Handle,"GetNewParam"); ?


 
Ega23 ©   (2005-02-03 14:54) [3]

Понял, спасибо.


 
Lord Zmiy ©   (2005-02-03 14:55) [4]

:)

@FunctionName := GetProcAddress(LibHandle, "FunctionName");

:) ну извините не стал переименовывать думал имя функции все поймут :)



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

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
4-1104936523
qwe
2005-01-05 17:48
2005.02.20
Инсталяция


14-1104829079
www.Vlad.uk
2005-01-04 11:57
2005.02.20
Винда требует диск...


1-1107720491
Layner
2005-02-06 23:08
2005.02.20
Здравствуйте! Посоветуйте плз, как так можно сделать,


1-1107383802
griban
2005-02-03 01:36
2005.02.20
Kartinka v Excel


1-1107427508
Артем К.
2005-02-03 13:45
2005.02.20
ПРОБЛЕМА. Делаю компонент PageControl (наследник TCustomControl)