program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

const
  isc_dpb_version1               =          1;
  isc_dpb_user_name              =         28;
  isc_dpb_password               =         29;

type
  TISC_DB_HANDLE       = PVoid;
  PISC_DB_HANDLE       = ^TISC_DB_HANDLE;
  ISC_STATUS           = LongInt; // 32 bit signed
  PISC_STATUS          = ^ISC_STATUS;
  Tisc_attach_database = function (status_vector            : PISC_STATUS;
                                   db_name_length           : Short;
                                   db_name                  : PAnsiChar;
                                   db_handle                : PISC_DB_HANDLE;
                                   parm_buffer_length	      : Short;
                                   parm_buffer              : PAnsiChar): ISC_STATUS; stdcall;

var
  ADataBase1,
  ADataBase2: TISC_DB_HANDLE;

function AttachDatabase(const ALibName: String; const AName, AUserName, AUserPassword: AnsiString): TISC_DB_HANDLE;
var
  AHandle: HMODULE;
  Aisc_attach_database: Tisc_attach_database;
  AStatus: PISC_STATUS;
  AErrCode: ISC_STATUS;
  dbp: AnsiString;
begin
  Result := nil;
  AHandle := LoadLibrary(PChar(ALibName));
  if not(AHandle > HINSTANCE_ERROR) then
    Exit;
  Aisc_attach_database := GetProcAddress(AHandle, 'isc_attach_database');
  if not Assigned(Aisc_attach_database) then
    RaiseLastOSError;
  dbp := AnsiChar(isc_dpb_version1);
  dbp := dbp + AnsiChar(isc_dpb_user_name);
  dbp := dbp + AnsiChar(Length(AUserName));
  dbp := dbp + AUserName;
  dbp := dbp + AnsiChar(isc_dpb_password);
  dbp := dbp + AnsiChar(Length(AUserPassword));
  dbp := dbp + AUserPassword;
  AErrCode := Aisc_attach_database(@AStatus, Length(AName), PAnsiChar(AName), @Result, Length(dbp), PAnsiChar(dbp));
  if AErrCode <> 0 then
    Result := nil;
  WriteLn(AErrCode);
end;

begin
  try
    ADataBase1 := AttachDatabase('C:\Program Files (x86)\FB25\fbclient.dll', '192.168.1.12:C:\Cashs2\DB\cashs.FDB', 'SYSDBA', 'masterkey');
    ADataBase2 := AttachDatabase('C:\Cashs2.FB3\fbclient.dll', 'C:\Cashs2.FB3\DB\cashs.FDB', 'SYSDBA', 'masterkey');
    ReadLn;
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
end.