Показать сообщение отдельно
  #2  
Старый 15.04.2012, 00:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А в чем проблема?
Если не планируется использование в других языках, то вообще все без проблем:

Библиотека
Код:
library mydll;

function ExtractString(Str : String) : String; stdcall;
begin
  ...
end;
exports ExtractString;

begin
end.

Вызов ("статика")
Код:
...
fnction ExtractString(Str : String) : String; stdcall; external 'mydll.dll';
...
var
  S1, S2 : String;
begin
  S1 := 'before(in)after';
  S2 := ExtractString(S1);
  ShowMessage(S2);
end;
Ответить с цитированием