Cоздание dll и использование

[xGroupers]

Вообщем так создаю я dll в "Dll Wizard" вписываю код

library Project77;

uses
  SysUtils,
  Classes;

{$R *.res}

function GetMessage(mess:String):String;
begin
Result:= mess;
end;

begin
GetMessage('hehe');
end.

Он даёт ошибку Run/Parameters делаю я ссылку к ехе проекта1
Потом компилит и всё ок ...

а как использовать dll в своём проекте например в Project2

[mihali4]

Просто объявляете в Project2:
function GetMessage(mess:String):String; external 'Project77';

[xGroupers]

не работает !!! в проект2 по нажатию на кнопку делаю ShowMessage(GetMessage('ddd')) и не работает

[xGroupers]

скиньте лучше пример а то чтото я туплю наверно

[B_N]

1. Что не работает?
2. Не нужно в глобальном пространстве имён (а лучше вообще нигде) дублировать имена системных функций. (GetMessage)

[xGroupers]

1. Всё не работает , функция ошибку даёт
2. После этого пишу функцию implementation function GetMessage(mess:String):String; external 'Project77';

[alexBlack]

Что-то не видно в коде dll секции exports.
По-моему должно быть:

function GetMessage(mess:String):String; export;  
begin  
Result:= mess;   
end;   
  
exports
  GetMessage index 1 name 'GetMessage';

Нужно же как-то указать какие функции доступны.

function GetMessage(mess:String):String; external 'Project77' name 'GetMessage';

и прислушайтесь к B_N, замените имя функции.

[SunKnight]

Вот почитай Delphi Book - Глава 18-DLL.rar

[xGroupers]

SunKnight дрянь но alexBlack'у спасибо всё работает кроме index я его убрал и всё ок