добавить ресурс

[Человек_Борща]

Пишу на коленке, допускаю грубые ошибки:

library SomeLib;

uses {Same uses}

{
Экспортируемая функция из dll
}
function WhatYourName:PChar; stdcall;
begin
Result:='EPICFAIL PLUG-IN';
end;

exports WhatYourName;

Аппликэйшен:

procedure GetMeaDLLName;
type
  TSomeFunc=function:PChar; //Указываем на функцию не забываем что онпавозвращает 
var
 hDLL:THandle; //хэндл dll
 Func:TSomeFunc; //Наша функция
begin
  hDLL:=LoadLibrary(<path to file>);//грузим библу
 if hDLL <> 0 then// если удачно
 begin
 Func:=GetProcAddress(hDLL,'WhatYourName'); //Получаем адрес функции
 if @Func <> nil then//если получили
 begin
 ShowMessage(StrPas(Func));//вызываем функцию
 end else
 begin
 <epic fail actions>//Есои не нашли функцию в библе
end;
 end else
begin
<epic fail actions> //Если получился фэил с загрузкой библы
end;
end;

Ну как-то так

[Михаил Юрьевич]

Спасибо! Посижу поразбираюсь