Firebird über NTService (Dienst) zugreifen funkt nicht

[Union]

Du kannst das in der dpr programmieren:

Delphi-Quellcode:

begin
  if ParamStr(1) = '/EXE' then
  begin
    // Das musst Du hinzufügen mit einem entsprechenden Formular aus dem Du die Aktionen aufrufst wie im Service (normalerweise in ServiceExecute. Am besten ServiceExecute besteht nur aus einer Zeile...)
    Forms.Application.Initialize;
    Forms.Application.CreateForm(TfrmDeinFormular, frmDeinFormular);
    Forms.Application.Run;
  end
  else
  begin
    // Das hier ist der automatisch erzeugte Block einer Dienstanwendung
    SvcMgr.Application.Initialize;
    SvcMgr.Application.CreateForm(TSrvDeinService, SrvDeinService);
    SvcMgr.Application.Run;
  end;
end.