function GetSysDirectory : string;
function GetIBRootDir: string;
function IsNT : boolean;
function IsAdmin: Boolean;
function ServiceCreate(sMachine, sService, sDisplayName, sBinFile : string; StartType : integer) : boolean;
function ServiceDelete(sMachine, sService : string) : boolean;
function ServiceStart(sMachine, sService : string ) : boolean;
function ServiceStop(sMachine, sService : string ) : boolean;
function GetInterbaseGuardianFile : String;
function InterbaseRunning : boolean;
function ShutDownInterbase : boolean;
function StartInterbase : boolean;
function InterbaseInstalled : boolean;
function Exememo(xnom , classexnom : pchar ) : boolean;
procedure Bouge(xcomp:TControl;FinX:Integer;FinY:Integer;Fin W:Integer;FinH:Integer;Temps:Integer);
procedure Enter(Sender: TControl; var Key: Char);
function convrsion( a00 : Real) : string ;
FUNCTION Lettres( valeur : integer ) : string ;
function myhint( vexp: string ) : string ;
function BDEexist : boolean ;
procedure Transfer_Table(xdbgrid :TDBGrid ; xdataset2 : TTable ;
xtype : TTableType ; xname : string ; xSauvgarde :TSaveDialog ;
xlmdstar : TLMDStarter );
procedure Transfer_Html(xdbgrid :TDBGrid ; xname : string ;
xSauvgarde : TSaveDialog ; xlmdstar : TLMDStarter);
procedure Transfer_TEXT(xdbgrid :TDBGrid ; xname : string ;
xSauvgarde : TSaveDialog ;xlmdstar : TLMDStarter);
function cherche_reg( xxRootkey : Cardinal ;xxValue , xxKey : String ) : string ;
procedure cree_lnk( edCible , Fichier_lnk : String ; ico_index : integer );
function LerFichIni(FichIni:String; Section: String; rubrique: String): AnsiString;
procedure EscreverFichIni(FichIni:String; Section: String; rubrique: String; NovoValor: AnsiString);
procedure changer_impremant_defaults(Imprimant: String);