Hello

I prepared the following procedure for future use in demo applications:

procedure Start_IB;
var ServerHandle : THandle;
begin
ServerHandle := FindWindow('IB_Server',nil);
if not (ServerHandle<>0)
then if fileexists(Dir+'IB\BIN\IBGuard.exe')
then
ShellExecute(0,'Open',PChar(Dir+'IB\BIN\IBGuard.exe'),nil,nil,SW_Minimize);
end;

The only thing to improve is to get proper directories (Interbase Root) from
registry.
Don't ask how to close IB after closing application. I tried various paths
but without succes.

Regards
Marcin