library MyLibrary;

{$mode objfpc}{$H+}

uses
  Classes, MainUnit;

exports
  GetCRMUserGuid;

begin

end.

-----------------------------------------------------------------------

unit MainUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

procedure GetCRMUserGuid(ADBName, AHost, AUser, APass: PChar; var AResult: PChar); stdcall;

implementation

procedure GetCRMUserGuid(ADBName, AHost, AUser, APass: PChar; var AResult: PChar); stdcall;
var
  S: string;
begin
  S := String(ADBName) + String(AHost) + String(AUser) + String(APass);
  StrPCopy(AResult, S);
end;

end.

-----------------------------------------------------------------------

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "MyLibrary.dll"; Flags: dontcopy

[Code]
procedure GetCRMUserGuid(ADBName, AHost, AUser, APass: AnsiString; var AResult: AnsiString);
  external 'GetCRMUserGuid@files:mylibrary.dll stdcall';

procedure InitializeWizard;
var
  S: AnsiString;
begin
  SetLength(S, 255);
  GetCRMUserGuid('DBName', 'Host', 'User', 'Pass', S);
  MsgBox(S, mbInformation, MB_OK);
end;