Firebird - Server: beenden?

[omata]

Ich starte den Firebird-Server folgendermaßen...

Delphi-Quellcode:

function ExecAndWait(const Filename, Params: string;
                     WindowState: word): TProcessInformation;
var SUInfo: TStartUpInfo;
    CmdLine: string;
    lpExitCode:dword;
begin
  CmdLine:='"'+Filename+'" '+Params;

  FillChar(SUInfo,SizeOf(SUInfo),#0);
  with SuInfo do begin
    cb:=SizeOf(SUInfo);
    dwFlags:=STARTF_USESHOWWINDOW;
    wShowWindow:=WindowState;
  end;

  CreateProcess(
    nil, PChar(CmdLine), nil, nil, FALSE,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
    PChar(ExtractFilePath(FileName)), SUInfo, Result
  );
end;

procedure TForm.ButtonClick(Sender: TObject);
begin
  ProcessInformation:=ExecAndWait(
    ExtractFilePath(ParamStr(0)) + 'bin\fbserver.exe',
    '-a -n -p 3000',
    SW_NORMAL
  );
end;

Also konkret: fbserver.exe -a -n -p 3000

Ist es möglich den Server auch wieder zu beenden? Ich meine nicht das Beenden über das TrayIcon!

Hoffe Ihr habe da eine Idee zu...