Tout d'abord, merci beaucoup pour votre utilisation.
En même temps, j'espère que vous pourrez étendre ce package de fonctionnalités... et publier votre version étendue.
-------------------------------------------------- -------
^^
Il est indiqué que ce package de composants ne peut être installé normalement que sur Delphi7.
Si vous utilisez Delphi6, une erreur se produira lors de l'installation.
--------------------------------------------------
Auteur : Li Jinhao
QQ:67260745
Courriel :[email protected]
La plupart des modules fonction du package de fonctions sont écrits par moi-même. . Une partie comprend les travaux de mes internautes et certains des segments de programmes les plus classiques sur Internet.
Fonction HexBCDToint(sHexBCD:Byte):integer;
Fonction IntToBCD(Int:Byte):mot;
Function MinuteToTime(Minute:Double):TdateTime;overload;//Conversion des minutes en heure standard Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ ----------------------------------
Function GetWeekOfChina(dDay:TdateTime):string;//Obtenir le jour de la semaine Function GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ ----------------------------------
Function IsStrAsNumber(NumStr:string):Bool;//Déterminer si la chaîne est un nombre valide dans la chaîne Function IsStrInOtherStr(mainStr,FindStr:string):Bool;//Détecter si une autre chaîne est incluse dans une fonction de chaîne IsCOMClassRegistered (GUID :TGUID):Boolean;//Déterminer si un objet COM a été enregistré Function IsBDEInstalled:boolean;//Vérifier si le BDE a installé la fonction GetPYIndexChar(hzchar:string):char;//Obtenir la première lettre du caractère chinois Function Squ(X ,Y:integer):integer;overload;//Calculer la puissance Y de x Function Squ(X:Double;Y:integer):Double;overload;//Calculer la puissance Y de x Function RandomNumByGUID:String;
//-------------Fonctions système------------
Function AppRunOnce:Boolean;//Laisser le programme exécuter une seule procédure d'instance AutoRunByReg(FileName:string= );//Laisser le programme exécuter automatiquement la procédure DelAutoRunByReg(KeyName:string= );//Supprimer une procédure d'élément à démarrage automatique MoveWindow( handle: Thandle);overload;//Driver le formulaire sans titre Function GetAppPath(AddLastName:string= ):string;//Obtenir le répertoire courant du programme Procedure ReMoveWinTitle(Form:Tform);//Supprimer le titre du formulaire;
procédure BeepEx(Freq:Word;MSecs:LongInt); //DoBeep appelle la procédure ClickStartMenu;//Activer la procédure du menu démarrer via le code OpenScreenSave;//Activer l'économiseur d'écran//procédure DelTree(DirName:String);//Supprimer procédure de répertoire DeleteDir(SourcePath: String); //Supprime le dossier spécifié (y compris les sous-dossiers). Le dossier et les fichiers qu'il contient peuvent avoir des attributs en lecture seule ou cachés. procédure DelSelfApp; //Le programme se supprimera après son exécution (*- -***)
procédure HideTaskBar(bHide:boolean=False);//Afficher ou masquer la barre des tâches
procédure DisplayOFFON(SW: boolean);//Désactiver et activer la procédure d'affichage HideDesktop(sw:Boolean=false);//Afficher et masquer le bureau procédure HideDesktopAndTaskBar(sw:Boolean=false);//Cacher le bureau et barre des tâches en même temps, procédure HideTrayNotify (sw:Boolean=false);//Masquer la procédure de la zone de notification du système HideWinButton(sw:Boolean=false);//Masquer la procédure du bouton de démarrage HideQuickLaunchBar(sw:Boolean=false);// Masquer la barre des boutons de lancement rapide//procédure HideAppInTastWin (sw:Boolean=False);//Masquer le programme dans la procédure du gestionnaire de tâches DisbleQuikKey(sw:boolean=false);//Bouclier ALT+F4 et ALT+Ctrl+Del
Fonction GetTaskBarHeight:integer;//Obtenir la hauteur de la barre des tâches
//------------------------------------------------ ----------------------------------
function GetDesktopListViewHandle : THandle ; {Obtenir le handle de la vue de liste du bureau}
procédure MinWinAll;//Réduire tous les formulaires procédure CloseWinAll;//Fermer tous les formulaires procédure DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//Ajouter une bordure au formulaire Procedure SetParentWinDefFont (Sender:TObject ;const defFont:Tfont=nil);//Définir la police par défaut du formulaire parent {obtenir la position du curseur dans le mémo, le numéro de ligne, la longueur de la ligne}
procédure GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);overload;
procédure GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);overload;
//Procédure de rotation des pages du mémo setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;
//Obtient la taille de la procédure de formulaire spécifiée GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
procédure TimeDelay(DT:Dword);//Procédure de délai précise en millisecondes SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//Définir l'adresse IP du réseau Fonction GetLocalIP:string;//Obtenir l'adresse IP de la machine Procédure OpenURL(URL:string);//Ouvrir une URL Web
//================================================= ==============================
// Les fonctions de cette partie proviennent d'autres auteurs Noms inconnus.
//================================================= ==============================
function GetDisplayFrequency: Integer; //Obtenir le taux de rafraîchissement de l'affichage function GetIdeSerialNumber: String; //Obtenir le numéro de série du premier disque dur function GetCPUSpeed: Double; //Obtenir la vitesse actuelle du CPU Function GetCPUID:string; IDENTIFIANT
Function GetCPUVendor: string; //Obtenir le type de CPU Function GetFileLastAccessTime(sFileName:string):TDateTime; //Obtenir la date et l'heure du dernier accès au fichier Function GetFileCreateTime(const strFileName:string):TDateTime; time Function GetFileModifyTime(const strFileName:string):TDateTime; //Obtenir l'heure de modification du fichier Function GetDNSTOIP(DNSName:String):String; //Convertir le nom de domaine en adresse IP Function GetDNSName(IPAddress:String):String; adresse au nom de domaine
//================================================= ==============================
// Fin de la partie extrait
//================================================= ==============================
//--------------------------------
// procédure GetNetConf
//--------------Ensemble d'opérations sur le fichier INI---------------
(*_lire le fichier ini_*)
Fonction ReadIniFile(const FileName,Section, Ident:string; Par défaut:string):string surcharge;
Fonction ReadIniFile(const FileName,Section, Ident:string; Par défaut : entier):integer surcharge;
Fonction ReadIniFile(const FileName,Section, Ident:string; Par défaut : Double):Double surcharge;
Fonction ReadIniFile(const FileName,Section, Ident:string; Par défaut : Boolean):Boolean surcharge;
Fonction ReadIniFile(const FileName,Section, Ident:string; Par défaut : TdateTime):TdateTime surcharge;
(*_Écrire le fichier INI_*)
procédure WriteIniFile(const FileName,Section, Ident:string; Value:string);overload;
procédure WriteIniFile(const FileName,Section, Ident:string; Value:integer);overload;
procédure WriteIniFile(const FileName,Section, Ident:string; Value:Double);overload;
procédure WriteIniFile(const FileName,Section, Ident:string; Value:Boolean);overload;
procédure WriteIniFile(const FileName,Section, Ident:string; Value:TdateTime);overload;
//-------------------------------
(*Simuler un clic de souris*)
procédure SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*Simuler les touches du clavier*)
procédure SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
procédure SendComBoKey(const CtrlKey,FnKey:word);//Par exemple : envoyer ALT+F4
//-----------------------------
{Trace une ligne droite sur le contrôle graphique spécifié et renvoie l'index où se trouve la souris}
Fonction ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
procédure DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*--------------Son DoBeep---------------*)
// procédure Détruire ;
{---------------------------------------------------------------- ----------------------------------
Auteur : Phoenix ^^me Une partie du code fourni par un bon ami Date : 2004.03.31
-------------------------------------------------- --------------------------}
//Convertissez les données en fichier Excel. Les champs dont la valeur visible est False dans TDataSet ne sont pas ajoutés // function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; //Convertir le montant minuscule en majuscule function IsRightDate(mInputDate:String):Boolean;//Si la date saisie est correcte//La chaîne est simplement cryptée et déchiffrée lorsque la touche de fonction = 1 est chiffré, 0 Pour déchiffrer, utilisez la fonction d'opération xor Decrypt(const s: string; key:Byte=1): string;
function RightCopy(S: string; Index,count:Integer): string; //Copier le nombre de caractères à partir de la position droite de l'index
