Em primeiro lugar, muito obrigado pelo seu uso.
Ao mesmo tempo, espero que você possa expandir este pacote de recursos... e lançar sua versão expandida.
-------------------------------------------------- -------
^^
Afirma-se que este pacote de componentes só pode ser instalado normalmente no delphi7.
Se você estiver usando delphi6, ocorrerá um erro durante a instalação.
--------------------------------------------------
Autor: Li Jinhao
PQ:67260745
E-mail: [email protected]
A maioria dos módulos de função no pacote de funções foi escrita por mim. . Parte dele inclui os trabalhos dos meus internautas e alguns dos segmentos de programas mais clássicos da Internet.
Função HexBCDToint(sHexBCD:Byte):integer;
Função IntToBCD(Int:Byte):palavra;
Função MinuteToTime(Minute:Double):TdateTime;overload;//Conversão de minutos para tempo padrão Função MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ ----------------------------------
Function GetWeekOfChina(dDay:TdateTime):string;//Obter o dia da semana Function GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ ----------------------------------
Function IsStrAsNumber(NumStr:string):Bool;//Determina se a string é um número válido na string Function IsStrInOtherStr(mainStr,FindStr:string):Bool;//Detecta se outra string está incluída em uma string function IsCOMClassRegistered (GUID :TGUID):Boolean;//Determina se um objeto COM foi registrado Function IsBDEInstalled:boolean;//Verifica se o BDE instalou a função GetPYIndexChar(hzchar:string):char;//Obtém a primeira letra do caractere chinês Function Squ(X ,Y:integer):integer;overload;//Calcula a potência Y de x Function Squ(X:Double;Y:integer):Double;overload;//Calcula a potência Y de x Function RandomNumByGUID:String;
//--------------Funções do sistema-----------
Function AppRunOnce:Boolean;//Deixa o programa executar apenas um procedimento de instância AutoRunByReg(FileName:string= );//Deixa o programa executar automaticamente o procedimento DelAutoRunByReg(KeyName:string= );//Exclui um procedimento de item de inicialização automática MoveWindow( handle: Thandle);overload;//Dirige o formulário sem título Function GetAppPath(AddLastName:string= ):string;//Obtém o diretório atual do programa Procedure ReMoveWinTitle(Form:Tform);//Remove o Título do formulário;
procedimento BeepEx(Freq:Word;MSecs:LongInt); //DoBeep chama o procedimento ClickStartMenu;//Ativa o procedimento do menu iniciar através do código OpenScreenSave;//Ativa o protetor de tela//procedimento DelTree(DirName:String);//Excluir procedimento de diretório DeleteDir(SourcePath: String); //Exclui a pasta especificada (incluindo subpastas). A pasta e os arquivos dentro dela podem ter atributos somente leitura ou ocultos procedimento DelSelfApp; ----------------*)
procedimento HideTaskBar(bHide:boolean=False);//Mostra ou oculta TaskBar
procedimento DisplayOFFON(SW: boolean); //Desliga e liga o procedimento de exibição HideDesktop(sw:Boolean=false); //Mostra e oculta o procedimento da área de trabalho HideDesktopAndTaskBar(sw:Boolean=false); //Oculta a área de trabalho e barra de tarefas ao mesmo tempo procedimento HideTrayNotify (sw:Boolean=false);//Ocultar o procedimento da área de notificação do sistema HideWinButton(sw:Boolean=false);//Ocultar o procedimento do botão Iniciar HideQuickLaunchBar(sw:Boolean=false);// Ocultar a barra de botões de inicialização rápida//procedimento HideAppInTastWin (sw:Boolean=False);//Ocultar o programa no procedimento do gerenciador de tarefas DisbleQuikKey(sw:boolean=false);//Escudo ALT+F4 e ALT+Ctrl+Del
Function GetTaskBarHeight:integer;//Obtém a altura da barra de tarefas
//------------------------------------------------ ----------------------------------
function GetDesktopListViewHandle: THandle; {Obter o identificador da visualização de lista da área de trabalho}
procedure MinWinAll;//Minimiza todos os formulários procedure CloseWinAll;//Fecha todos os formulários procedure DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//Adiciona uma borda ao formulário Procedure SetParentWinDefFont (Sender:TObject ;const defFont:Tfont=nil);//Define a fonte padrão do formulário pai {obtém a posição do cursor no memorando, número da linha, comprimento da linha}
procedimento GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);sobrecarga;
procedimento GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);sobrecarga;
//Procedimento de virada de página do memorando setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;
//Obtém o tamanho do procedimento de formulário especificado GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
procedimento TimeDelay(DT:Dword);//Procedimento de atraso preciso em milissegundos SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//Define o endereço IP da rede Function GetLocalIP:string;//Obtém o endereço IP da máquina Procedimento OpenURL(URL:string); //Abre uma URL da web
//============================================== ==============================
// As funções nesta parte foram retiradas de outros autores.
//============================================== ==============================
function GetDisplayFrequency: Integer; //Obtém a taxa de atualização do display function GetIdeSerialNumber: String; //Obtém o número de série do primeiro disco rígido function GetCPUSpeed: Double; EU IA
Function GetCPUVendor: string; //Obtém o tipo de CPU Function GetFileLastAccessTime(sFileName:string):TDateTime; //Obtém a data e hora do último acesso ao arquivo Function GetFileCreateTime(const strFileName:string):TDateTime; time Function GetFileModifyTime(const strFileName:string):TDateTime; //Obter o horário de modificação do arquivo Function GetDNSTOIP(DNSName:String):String //Converter nome de domínio em endereço IP Function GetDNSName(IPAddress:String):String; endereço para nome de domínio
//============================================== ==============================
//Fim da parte do trecho
//============================================== ==============================
//--------------------------------
// procedimento GetNetConf
//---------- Conjunto de operações do arquivo INI -----------
(*_ler arquivo ini_*)
Função ReadIniFile(const FileName,Section, Ident:string; Padrão: string):string sobrecarga;
Função ReadIniFile(const FileName,Section, Ident:string; Padrão: inteiro):integer sobrecarga;
Função ReadIniFile(const FileName,Section, Ident:string; Padrão: Double):Double sobrecarga;
Função ReadIniFile(const FileName,Section, Ident:string; Padrão: Boolean):Boolean sobrecarga;
Função ReadIniFile(const FileName,Section, Ident:string; Padrão: TdateTime):TdateTime sobrecarga;
(*_Escrever arquivo INI_*)
procedimento WriteIniFile(const FileName,Seção, Ident:string; Valor:string);sobrecarga;
procedimento WriteIniFile(const FileName,Seção, Ident:string; Valor:inteiro);sobrecarga;
procedimento WriteIniFile(const FileName,Seção, Ident:string; Valor:Double);sobrecarga;
procedimento WriteIniFile(const FileName,Seção, Ident:string; Valor:Boolean);sobrecarga;
procedimento WriteIniFile(const FileName,Seção, Ident:string; Valor:TdateTime);sobrecarga;
//--------------------------
(*Simular clique do mouse*)
procedimento SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*Simular teclas do teclado*)
procedimento SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
procedimento SendComBoKey(const CtrlKey,FnKey:word);//Por exemplo: enviar ALT+F4
//------------------------
{Desenhe uma linha reta no controle gráfico especificado e retorne o índice onde o mouse está localizado}
Função ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
procedimento DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------Som DoBeep som----------*)
// procedimento Destruir;
{------------------------------------------------- ----------------------------------
Autor: Phoenix ^^me Parte do código fornecido por um bom amigo Data: 31/03/2004
-------------------------------------------------- --------------------------}
//Converter os dados para um arquivo Excel. Os campos cujo valor visível é False em TDataSet não são adicionados. // function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; //Converter valor em minúsculas para maiúsculas function IsRightDate(mInputDate:String):Boolean;//Se a data inserida está correta//A string é simplesmente criptografada e descriptografada quando a tecla de função=1 está criptografado, 0 Para descriptografar, use a função de operação xor Decrypt(const s: string; key:Byte=1): string;
function RightCopy(S: string; Index,count:Integer): string; //Copia Contar caracteres da posição direita do índice
