11.02.2005, 08:49
общий
это ответ
Здравствуйте, антон!
Попробуй динамически загружать библиотеку. Пример в приложении.
Приложение:
procedure TForm1.Button1Click(Sender: TObject);var Handle: LongWord; func: function (): integer;begin Handle := LoadLibrary( ‘ds.dll‘ ); if Handle <> 0 then begin @func := GetProcAddress( Handle, ‘init_dev()‘ ); end; func(); FreeLibrary( Handle );end;