Como saber se um PDB está aberto

Visitas

A função DmOpenDatabaseInfo retorna informações de uma base de dados aberta. Se a base de dados não estiver aberta, ela retorna um erro.

A função encontrasse dentro de PalmOS/DataMgr.pas ou seja na Unit DataMgr.

Sua declaração é:

function DmOpenDatabaseInfo(dbP: DmOpenRef; var dbIDP: LocalID; var openCountP, modeP, cardNoP: UInt16; var resDBP: Boolean): Err; external sysTrapDmOpenDatabaseInfo;


Logo a função seria:

function DBIsOpen (dbP: DmOpenRef): boolean;
var
   d: LocalID;
   o, m, c: UInt16;
   r: Boolean
begin
   result := (dmOpenDatabaseInfo(dbP, d, o, m, c, r) = 0)
end;