私の関数ライブラリ

初めまして、ご利用誠にありがとうございます。
同時に、この機能パッケージを拡張して、拡張バージョンをリリースできることを願っています。
-------------------------------------------------- -------
^^
このコンポーネントパッケージはdelphi7にのみ正常にインストールできると記載されています。

delphi6 を使用している場合、インストール中にエラーが発生します。

--------------------------------------------------
著者: 李金豪
QQ:67260745
電子メール:[email protected]

関数パッケージ内の関数モジュールのほとんどは私自身が作成したものです。 。その一部には、私のネチズンの作品と、インターネット上のより古典的な番組セグメントのいくつかが含まれています。
関数 HexBCDToint(sHexBCD:Byte):整数;
関数 IntToBCD(Int:Byte):word;
Function MinuteToTime(Minute:Double):TdateTime;overload;//分を標準時間に変換 Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ ----------------------------------
Function GetWeekOfChina(dDay:TdateTime):string;//曜日を取得 Function GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ ----------------------------------
Function IsStrAsNumber(NumStr:string):Bool;//文字列が文字列内の有効な数値であるかどうかを判断する Function IsStrInOtherStr(mainStr,FindStr:string):Bool;//文字列に別の文字列が含まれているかどうかを検出する function IsCOMClassRegistered (GUID) :TGUID):Boolean;//COM オブジェクトが登録されているかどうかを判断する Function IsBDEInstalled:boolean;//BDE がインストールされているかどうかを確認する function GetPYIndexChar(hzchar:string):char;//漢字の最初の文字を取得する Function Squ(X ,Y:integer):integer;overload;//x の Y 乗を計算する Function Squ(X:Double;Y:integer):Double;overload;//x の Y 乗を計算する Function RandomNumByGUID:String;
//--------------システム関数-----------
Function AppRunOnce:Boolean;//プログラムにインスタンス プロシージャを 1 つだけ実行させます AutoRunByReg(FileName:string= );//プログラムにプロシージャを自動的に実行させます DelAutoRunByReg(KeyName:string= );//自己起動アイテム プロシージャを削除します MoveWindow( handle: Thandle);overload;//無題のフォームを駆動 Function GetAppPath(AddLastName:string= ):string;//プログラムの現在のディレクトリを取得 Procedure ReMoveWinTitle(Form:Tform);//フォームのタイトルを削除します。
プロシージャ BeepEx(Freq:Word;MSecs:LongInt); //DoBeep はプロシージャ ClickStartMenu を呼び出します。//コード OpenScreenSave を通じてスタート メニュー プロシージャをアクティブにします。//スクリーン セーバーをオンにします。//プロシージャ DelTree(DirName:String);//削除ディレクトリ プロシージャ 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);//ALT+F4 および ALT+Ctrl+Del をシールドする
Function GetTaskBarHeight:integer;//タスクバーの高さを取得する
//------------------------------------------------ ----------------------------------
function GetDesktopListViewHandle: THandle {デスクトップ リスト ビューのハンドルを取得}
プロシージャ MinWinAll;// すべてのフォームを最小化します プロシージャ CloseWinAll;// すべてのフォームを閉じます プロシージャ DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);// フォームに境界線を追加します プロシージャ SetParentWinDefFont (Sender:TObject) ;const defFont:Tfont=nil);//親フォームのデフォルトフォントを設定 {メモ内のカーソル位置、行番号、行長を取得}
プロシージャ GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);オーバーロード;
プロシージャ GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);オーバーロード;
//メモのページめくり手続き setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;

//指定されたフォームのサイズを取得するプロシージャ GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
process TimeDelay(DT:Dword);//正確なミリ秒遅延プロシージャ SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//ネットワーク IP アドレスを設定します Function GetLocalIP:string;//マシンの IP アドレスを取得します Procedure OpenURL(URL:string);//Web URL を開きます
//=============================================== ==============================
// この部分の関数は他の作者から引用されたものです。
//=============================================== ==============================
function GetDisplayFrequency: Integer; // ディスプレイのリフレッシュ レートを取得します function GetIdeSerialNumber: String; // 1 台目のハードディスクのシリアル番号を取得します function GetCPUSpeed: Double; // 現在の CPU 速度を取得します。 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):integer;
関数 ReadIniFile(const FileName,Section, Ident:string; デフォルト: Double):Double;
関数 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);オーバーロード;
プロシージャ WriteIniFile(const FileName,Section, Ident:string; Value:integer);オーバーロード;
プロシージャ WriteIniFile(const FileName,Section, Ident:string; Value:Double);オーバーロード;
プロシージャ WriteIniFile(const FileName,Section, Ident:string; Value:Boolean);オーバーロード;
プロシージャ WriteIniFile(const FileName,Section, Ident:string; Value:TdateTime);オーバーロード;
//--------------------------
(*マウスクリックをシミュレート*)
プロシージャ 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 文字をコピーします。