Un ensemble de fonctions tres utiles

Soyez le premier à donner votre avis sur cette source.

Vue 5 578 fois - Téléchargée 698 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5 -
Il y a du code à moi que tu aurait pu traduire en Français : (

Mais bon, ça fait plaisir de voire que mes sources te furent utiles ...
cs_totalsigne
Messages postés
30
Date d'inscription
samedi 10 février 2007
Statut
Membre
Dernière intervention
24 avril 2007
1 -
slt je vouldrai savoir coment partager une procedure vec plusieures unites

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_solitair)