#sha
Add(DLL,5050313,224,168)
{
 EventPoints=#6:Zapros|
 link(Zapros,8944637:doTimer,[])
}
Add(Timer,8944637,287,168)
{
 link(onTimer,8426931:doBeep,[])
}
Add(Beep,8426931,357,168)
{
}

#pas
var    fn : string;    // ----
       FID: Cardinal;  // --
...
  fn := 'C:\Program Files\HiAsm\Примеры программ\DLL\PervaiaDLL.dll';       //-
  if FileExists(fn) then                                                    //--
    begin                                                                   //--
     FID := LoadLibrary(PChar(fn));                                         //--
    end;                                                                    //-

#pas
FWork := TdllProc(GetProcAddress(FID,'doWork'));
     FVar := TdllProc(GetProcAddress(FID,'GetVar'));
     di := tdllInit(GetProcAddress(FID,'DllInit'));
     if Assigned(di) then
      di(dll_Event,dll_Data,self);

#pas
program ProjectX;

uses
  Windows, KOL;

type
  PData = ^TData;
  TData = record
    Data_type: byte;
    idata: integer;
    sdata: string;
    rdata: real;
    Next, ldata: pointer;
  end;

type
  T_hi_dllInitProc = procedure(var _Data: TData; Index:word; DLL_Param:pointer);
  T_hi_dllProc = procedure(var Data:TData; Index:word;_Param:pointer);
  T_hi_DllInit = procedure(_onEvent,GetData:T_hi_dllProc; _Param:pointer; var DLL_Param:pointer);

procedure dll_Event(var _Data: TData; Index:word; Param:pointer);
begin
  ShowMessage('[Input] Index: ' + int2str(Index) + ' , data: ' + _Data.sdata);
end;

procedure dll_Data(var _Data:TData; Index:word; Param:pointer);
begin end;

procedure doSomething(const DllName: string);
var
  dll: cardinal;
  InitProc: T_hi_DllInit;  
  p: pointer;
  DoWork: T_hi_dllInitProc;
  FData: TData;
  s, dllfile: string;
begin
  dllfile := DllName; //ReadString(_Data, DllName, '');
  s := '<<<!!!TEXT!!!>>>'; //ReadString(_Data, Text, '');
  FillChar(FData, SizeOf(FData), 0);
  FData.data_type := 2{data_str};
  FData.sdata := s;  // _DoData(s);
  
  dll := LoadLibrary(PChar(dllfile));
  if dll = 0 then exit;
  InitProc := GetProcAddress(dll,'_hi_DllInit');
  if Assigned(InitProc) then
    begin
      InitProc(dll_Event, dll_Data, nil, p);
      @DoWork := GetProcAddress(dll, '_hi_doWork');
      if Assigned(doWork) then DoWork(FData, 0, p);
    end;
  FreeLibrary(dll);
end;

begin
  doSomething('project1.dll');
end.

Add(CallDLL,7804711,203,329)
{
}