1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

procedure DialogWithParam(aParam: PChar);export;
var
  test : string;
begin
   MessageDlg('Called DialogWithParam! Param: ' +  aParam, mtInformation, [mbOK], 0);
end;


exports
  DialogWithParam,

begin
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  
  HMODULE lTestDLL;
  tShowWithParam withp;

  char *s = "Test";

  lTestDLL = LoadLibrary("C:\\TestDLL.dll");  

  withp = (tShowWithParam)GetProcAddress(lTestDLL, "DialogWithParam");
  (*withp)(s);

  FreeLibrary(lTestDLL);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

library MyLib;

uses
  Dialogs;

procedure MyProcedure(MyString: PChar); stdcall;
begin
  MessageDlg(MyString, mtInformation, [mbOK], 0);
end;

exports
  MyProcedure;

begin
end.					

1:

typedef void (__stdcall *TMYPROCEDURE)(LPCSTR);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

    HMODULE      hMyLib;
    TMYPROCEDURE MyProcedure;

    hMyLib = LoadLibrary("MyLib.dll");

    if (!hMyLib == NULL)
    {
        MyProcedure = (TMYPROCEDURE)GetProcAddress(hMyLib, "MyProcedure");  
        if (!MyProcedure == NULL)
            MyProcedure("Test");
        FreeLibrary(hMyLib);
    }					

1:

typedef void (*tShowWithParam)(LPSTR aParam);