Primero que nada, muchas gracias por su uso.
Al mismo tiempo, espero que puedas ampliar este paquete de funciones... y lanzar tu versión ampliada.
-------------------------------------------------- -------
^^
Se indica que este paquete de componentes solo se puede instalar normalmente en delphi7.
Si está utilizando delphi6, se producirá un error durante la instalación.
--------------------------------------------------
Autor: Li Jinhao
QQ:67260745
Correo electrónico:[email protected]
La mayoría de los módulos de funciones del paquete de funciones los escribí yo mismo. . Parte de él incluye los trabajos de mis internautas y algunos de los segmentos de programas más clásicos de Internet.
Función HexBCDToint(sHexBCD:Byte):entero;
Función IntToBCD(Int:Byte):palabra;
Function MinuteToTime(Minute:Double):TdateTime;overload;//Conversión de minutos a hora estándar Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ ----------------------------------
Function GetWeekOfChina(dDay:TdateTime):string;//Obtener el día de la semana Function GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ ----------------------------------
Function IsStrAsNumber(NumStr:string):Bool;//Determinar si la cadena es un número válido en la cadena Function IsStrInOtherStr(mainStr,FindStr:string):Bool;//Detectar si otra cadena está incluida en una función de cadena IsCOMClassRegistered (GUID :TGUID):Boolean;//Determinar si se ha registrado un objeto COM Función IsBDEInstalled:boolean;//Verificar si el BDE tiene instalada la función GetPYIndexChar(hzchar:string):char;//Obtener la primera letra del carácter chino Función Squ(X, Y:integer):integer;overload;//Calcular la potencia Y de x Función Squ(X:Double;Y:integer):Double;overload;//Calcular la potencia Y de x Función RandomNumByGUID:String;
//--------------Funciones del sistema------------
Función AppRunOnce:Boolean;//Permitir que el programa ejecute solo un procedimiento de instancia AutoRunByReg(FileName:string= );//Permitir que el programa ejecute automáticamente el procedimiento DelAutoRunByReg(KeyName:string= );//Eliminar un procedimiento de elemento de inicio automático MoveWindow( handle: Thandle);overload;//Controla el formulario sin título Función GetAppPath(AddLastName:string= ):string;//Obtiene el directorio actual del programa Procedimiento ReMoveWinTitle(Form:Tform);//Elimina el título del formulario;
procedimiento BeepEx(Freq:Word;MSecs:LongInt); //DoBeep llama al procedimiento ClickStartMenu;//Activa el procedimiento del menú de inicio a través del código OpenScreenSave;//Activa el protector de pantalla//procedimiento DelTree(DirName:String);//Delete directorio procedimiento DeleteDir(SourcePath: String); //Eliminar la carpeta especificada (incluidas las subcarpetas). La carpeta y los archivos que contiene pueden tener atributos de solo lectura u ocultos. //El programa se eliminará solo después de ejecutarse (*-). -*)
procedimiento HideTaskBar(bHide:boolean=False);//Mostrar u ocultar la barra de tareas
procedimiento DisplayOFFON(SW: boolean);//Apagar y encender la pantalla procedimiento HideDesktop(sw:Boolean=false);//Mostrar y ocultar el escritorio procedimiento HideDesktopAndTaskBar(sw:Boolean=false);//Ocultar el escritorio y barra de tareas al mismo tiempo procedimiento HideTrayNotify (sw:Boolean=false);//Ocultar el procedimiento del área de notificación del sistema HideWinButton(sw:Boolean=false);//Ocultar el procedimiento del botón de inicio HideQuickLaunchBar(sw:Boolean=false);// Ocultar la barra de botones de inicio rápido//procedimiento HideAppInTastWin (sw:Boolean=False);//Ocultar el programa en el procedimiento del administrador de tareas DisbleQuikKey(sw:boolean=false);//Escudo ALT+F4 y ALT+Ctrl+Supr
Función GetTaskBarHeight:integer;//Obtener la altura de la barra de tareas
//------------------------------------------------ ----------------------------------
función GetDesktopListViewHandle: THandle {Obtener el identificador de la vista de lista del escritorio}
procedimiento MinWinAll;//Minimizar todos los formularios procedimiento CloseWinAll;//Cerrar todos los formularios procedimiento DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//Agregar un borde al formulario Procedimiento SetParentWinDefFont (Sender:TObject ;const defFont:Tfont=nil);//Establecer la fuente predeterminada del formulario principal {obtener la posición del cursor en la nota, número de línea, longitud de línea}
procedimiento GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);sobrecarga;
procedimiento GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);sobrecarga;
//Procedimiento de cambio de página de nota setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;
//Obtener el tamaño del procedimiento de formulario especificado GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
procedimiento TimeDelay(DT:Dword);//Retraso preciso de milisegundos procedimiento SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//Establecer la dirección IP de la red Función GetLocalIP:string;//Obtener la dirección IP de la máquina Procedimiento OpenURL(URL:string);//Abrir una URL web
//================================================== ===============================
// Las funciones de esta parte están tomadas de otros autores.
//================================================== ===============================
function GetDisplayFrequency: Integer; //Obtiene la frecuencia de actualización de la pantalla function GetIdeSerialNumber: String; //Obtiene el número de serie del primer disco duro function GetCPUSpeed: Double //Obtiene la velocidad actual de la CPU Function GetCPUID:string; IDENTIFICACIÓN
Función GetCPUVendor: string //Obtiene el tipo de CPU Function GetFileLastAccessTime(sFileName:string):TDateTime; //Obtiene la fecha y hora del último acceso al archivo Function GetFileCreateTime(const strFileName:string):TDateTime; time Función GetFileModifyTime(const strFileName:string):TDateTime; //Obtener hora de modificación del archivo Función GetDNSTOIP(DNSName:String):String //Convertir nombre de dominio a dirección IP Función GetDNSName(IPAddress:String):String; dirección al nombre de dominio
//================================================== ===============================
// Fin de la parte del extracto
//================================================== ===============================
//--------------------------------
// procedimiento GetNetConf
//----------Conjunto de operación de archivo INI-----------
(*_leer archivo ini_*)
Función ReadIniFile (const FileName, Sección, Ident: cadena; Predeterminado: cadena): sobrecarga;
Función ReadIniFile(const FileName,Section, Ident:string; Predeterminado: entero):entero;
Función ReadIniFile(const FileName,Section, Ident:string; Predeterminado: Double):Double;
Función ReadIniFile(const FileName,Section, Ident:string; Predeterminado: Boolean):Boolean;
Función ReadIniFile(const FileName,Section, Ident:string; Predeterminado: TdateTime):TdateTime;
(*_Escribir archivo INI_*)
procedimiento WriteIniFile(const FileName,Section, Ident:string; Value:string);overload;
procedimiento WriteIniFile(const FileName,Section, Ident:string; Value:integer);overload;
procedimiento WriteIniFile(const FileName,Section, Ident:string; Value:Double);sobrecarga;
procedimiento WriteIniFile(const FileName,Section, Ident:string; Value:Boolean);overload;
procedimiento WriteIniFile(const FileName,Section, Ident:string; Value:TdateTime);overload;
//--------------------------
(*Simular clic del mouse*)
procedimiento SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*Simular teclas del teclado*)
procedimiento SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
procedimiento SendComBoKey(const CtrlKey,FnKey:word);//Por ejemplo: enviar ALT+F4
//------------------------
{Dibuje una línea recta en el control de gráfico especificado y devuelva el índice donde se encuentra el mouse}
Función ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
procedimiento DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------Sonido Sonido DoBeep----------*)
// procedimiento Destruir;
{------------------------------------------------- ----------------------------------
Autor: Phoenix ^^me Parte del código proporcionado por un buen amigo Fecha: 2004.03.31
-------------------------------------------------- --------------------------}
//Convierte los datos a un archivo Excel. Los campos cuyo valor visible es False en TDataSet no se agregan // función DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string //Convierte la cantidad en minúsculas a mayúsculas function IsRightDate(mInputDate:String):Boolean;//Si la fecha ingresada es correcta//La cadena simplemente se cifra y descifra cuando la clave de función = 1 está cifrado, 0 Para descifrar, utilice la función de operación xor Decrypt(const s: string; key:Byte=1): string;
función RightCopy(S: string; Index,count:Integer): string //Copiar Contar caracteres desde la posición derecha del índice;
