UN ENSEMBLE DE FONCTIONS TRES UTILES

---

Auteur : solitair

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

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);

Télécharger le zip