내 함수 라이브러리

우선, 이용해주셔서 진심으로 감사드립니다.
동시에 이 기능 패키지를 확장하고 확장 버전을 출시할 수 있기를 바랍니다.
------------------------------------- -------
^^
이 컴포넌트 패키지는 delphi7에서만 정상적으로 설치가 가능하다고 명시되어 있습니다.

delphi6을 사용하는 경우 설치 중에 오류가 발생합니다.

-------------------------------------
저자 : 리진하오
QQ:67260745
이메일:[email protected]

함수 패키지에 포함된 대부분의 함수 모듈은 제가 직접 작성한 것입니다. . 그 중 일부에는 내 네티즌의 작품과 인터넷의 좀 더 고전적인 프로그램 부분이 포함되어 있습니다.
함수 HexBCDToint(sHexBCD:Byte):정수;
함수 IntToBCD(Int:Byte):워드;
Function MinuteToTime(Minute:Double):TdateTime;overload;//분을 표준시로 변환 Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ ----------------------------------
함수 GetWeekOfChina(dDay:TdateTime):string;//요일 가져오기 함수 GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ ----------------------------------
함수 IsStrAsNumber(NumStr:string):Bool;//문자열이 문자열에서 유효한 숫자인지 확인 함수 IsStrInOtherStr(mainStr,FindStr:string):Bool;//문자열에 다른 문자열이 포함되어 있는지 감지 함수 IsCOMClassRegistered(GUID :TGUID):Boolean;//COM 객체 등록 여부 확인 Function IsBDEInstalled:boolean;//BDE 설치 여부 확인 기능 GetPYIndexChar(hzchar:string):char;//한자의 첫 글자 가져오기 Function Squ(X ,Y:integer):integer;overload;//x의 Y 거듭제곱을 계산합니다. 함수 Squ(X:Double;Y:integer):Double;overload;//x의 Y 거듭제곱을 계산합니다. Function RandomNumByGUID:String;
//---------------시스템 기능------------
Function AppRunOnce:Boolean;//프로그램이 하나의 인스턴스 프로시저만 실행하도록 허용 AutoRunByReg(FileName:string= );//프로그램이 자동으로 프로시저를 실행하도록 허용 DelAutoRunByReg(KeyName:string= );//자동 시작 항목 프로시저 삭제 MoveWindow( handler: Thandle);overload;//제목 없는 양식 구동 Function GetAppPath(AddLastName:string= ):string;//프로그램의 현재 디렉터리 가져오기 Procedure ReMoveWinTitle(Form:Tform);//양식 제목 제거;
Procedure BeepEx(Freq:Word;MSecs:LongInt); //DoBeep은 ClickStartMenu 프로시저를 호출합니다.//OpenScreenSave 코드를 통해 시작 메뉴 프로시저를 활성화합니다.//화면 보호기 켜기//Procedure DelTree(DirName:String);//Delete 디렉토리 프로시저 DeleteDir(SourcePath: String); //지정된 폴더(하위 폴더 포함)를 삭제합니다. 폴더와 그 안에 있는 파일은 읽기 전용 또는 숨겨진 속성을 가질 수 있습니다. //프로그램은 실행 후 자체적으로 삭제됩니다. --*)
절차 HideTaskBar(bHide:boolean=False);//작업 표시줄 표시 또는 숨기기
절차 DisplayOFFON(SW: boolean);//디스플레이 프로시저를 껐다가 켜십시오. HideDesktop(sw:Boolean=false);//데스크톱 프로시저 표시 및 숨기기 HideDesktopAndTaskBar(sw:Boolean=false);//데스크탑 및 디스플레이 숨기기 작업 표시줄 동시에 절차 HideTrayNotify(sw:Boolean=false);//시스템 알림 영역 숨기기 절차 HideWinButton(sw:Boolean=false);//시작 버튼 절차 숨기기 HideQuickLaunchBar(sw:Boolean=false);// 빠른 실행 버튼 표시줄 숨기기//HideAppInTastWin 절차(sw:Boolean=False);//작업 관리자 절차에서 프로그램 숨기기 DisbleQuikKey(sw:boolean=false);//Shield ALT+F4 및 ALT+Ctrl+Del
함수 GetTaskBarHeight:integer;//작업 표시줄 높이 가져오기
//------------------------------------------------ ----------------------------------
function GetDesktopListViewHandle: THandle {데스크톱 목록 보기 핸들 가져오기}
Procedure MinWinAll;//모든 양식 최소화 Procedure CloseWinAll;//모든 양식 닫기 Procedure DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//양식에 테두리 추가 Procedure SetParentWinDefFont(Sender:TObject ;const defFont:Tfont=nil);//상위 폼의 기본 글꼴 설정 {메모에서 커서 위치, 줄 번호, 줄 길이 가져오기}
절차 GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);overload;
절차 GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);overload;
//메모 페이지 넘김 절차 setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;

//지정된 양식의 크기를 가져옵니다. Procedure GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
절차 TimeDelay(DT:Dword);//정확한 밀리초 지연 절차 SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//네트워크 IP 주소 설정 Function GetLocalIP:string;//기기의 IP 주소 가져오기 절차 OpenURL(URL:string);//웹 URL 열기
//================================================ ==============================
// 이 부분의 기능은 이름을 알 수 없는 다른 작성자에게서 따왔습니다.
//================================================ ==============================
function GetDisplayFrequency: Integer; //디스플레이 새로 고침 빈도 가져오기 function GetIdeSerialNumber: String; //첫 번째 하드 디스크의 일련 번호 가져오기 function GetCPUSpeed: Double; //현재 CPU 속도 가져오기 Function GetCPUID:string; ID
Function GetCPUVendor: string; //CPU 유형 가져오기 Function GetFileLastAccessTime(sFileName:string):TDateTime; //파일의 마지막 액세스 날짜 및 시간 가져오기 Function GetFileCreateTime(const strFileName:string):TDateTime; time Function GetFileModifyTime(const strFileName:string):TDateTime; //파일 수정 시간 가져오기 Function GetDNSTOIP(DNSName:String):String; //도메인 이름을 IP 주소로 변환 Function GetDNSName(IPAddress:String):String; 도메인 이름에 대한 주소
//================================================ ==============================
// 발췌부분 끝
//================================================ ==============================
//--------------------------------
// 프로시저 GetNetConf
//------------INI 파일 연산 집합------------
(*_ini 파일 읽기_*)
함수 ReadIniFile(const FileName,Section, Ident:string; 기본값: string):string;
함수 ReadIniFile(const FileName,Section, Ident:string; 기본값: 정수):integer;
함수 ReadIniFile(const FileName,Section, Ident:string; 기본값: Double):Doubleoverload;
함수 ReadIniFile(const FileName,Section, Ident:string; 기본값: Boolean):Boolean;
함수 ReadIniFile(const FileName,Section, Ident:string; 기본값: TdateTime):TdateTime;
(*_INI 파일 쓰기_*)
프로시저 WriteIniFile(const FileName,Section, Ident:string; Value:string);overload;
프로시저 WriteIniFile(const FileName,Section, Ident:string; Value:integer);overload;
프로시저 WriteIniFile(const FileName,Section, Ident:string; Value:Double);overload;
프로시저 WriteIniFile(const FileName,Section, Ident:string; Value:Boolean);overload;
프로시저 WriteIniFile(const FileName,Section, Ident:string; Value:TdateTime);overload;
//-------------
(*마우스 클릭 시뮬레이션*)
절차 SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*키보드 키 시뮬레이션*)
절차 SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
절차 SendComBoKey(const CtrlKey,FnKey:word);//예: ALT+F4 보내기
//------------
{지정된 차트 컨트롤에 직선을 그리고 마우스가 위치한 인덱스를 반환}
함수 ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
절차 DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------소리 도삐소리---------*)

// 프로시저 파괴;
{-------------------------------------- ----------------------------------
작성자 : Phoenix ^^me 친한친구가 제공한 코드 일부 날짜 : 2004.03.31
------------------------------------- -------------}
//데이터를 Excel 파일로 변환합니다. TDataSet에서 표시되는 값이 False인 필드는 추가되지 않습니다. // function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; //소문자 금액을 대문자로 변환 function IsRightDate(mInputDate:String):Boolean;//입력한 날짜가 맞는지//함수 키=1일 때 문자열은 단순히 암호화 및 복호화됩니다. 암호화됨, 0 해독하려면 xor 연산 함수를 사용하십시오. Decrypt(const s: string; key:Byte=1): string;
function RightCopy(S: string; Index,count:Integer): string; //오른쪽 인덱스 위치에서 Count 문자를 복사합니다.