CREATE DATABASE ¿Desde Delphi?

[ecfisa]

Hola champy.

Ejemplo:

Código Delphi [-]
procedure CreateIBDatabase(const DBName: string);
begin
  with TIBDatabase.Create(nil) do
  try
    DatabaseName := ChangeFileExt(DBName, '.FDB');
    Params.Add('USER ''SYSDBA''');
    Params.Add('PASSWORD ''masterkey''');
    Params.Add('PAGE_SIZE 4096');
    Params.Add('DEFAULT CHARACTER SET ISO8859_1');
    CreateDatabase;
  finally
    Free;
  end;
end;

Saludos