ไลบรารีฟังก์ชันของฉัน

ก่อนอื่นขอขอบคุณมากสำหรับการใช้งานของคุณ
ในเวลาเดียวกัน ฉันหวังว่าคุณจะขยายแพ็คเกจฟีเจอร์นี้ได้... และเผยแพร่เวอร์ชันขยายของคุณ
-------------------------------------------------- -------------------------------------------------- -------
-
มีการระบุว่าแพ็คเกจส่วนประกอบนี้สามารถติดตั้งได้ตามปกติบน delphi7 เท่านั้น

หากคุณใช้ delphi6 จะเกิดข้อผิดพลาดระหว่างการติดตั้ง

-
ผู้เขียน: หลี่ จินห่าว
ถาม:67260745
อีเมล: [email protected]

โมดูลฟังก์ชันส่วนใหญ่ในแพ็คเกจฟังก์ชันนั้นเขียนด้วยตัวเอง - ส่วนหนึ่งรวมถึงผลงานของชาวเน็ตของฉันและบางส่วนของโปรแกรมคลาสสิกบนอินเทอร์เน็ต
ฟังก์ชัน HexBCDToint(sHexBCD:ไบต์):จำนวนเต็ม;
ฟังก์ชั่น IntToBCD(Int:Byte):คำ;
ฟังก์ชัน MinuteToTime(นาที:Double):TdateTime;overload;//การแปลงนาทีเป็นเวลามาตรฐาน ฟังก์ชัน 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):บูลีน;//ตรวจสอบว่าวัตถุ COM ได้รับการลงทะเบียนแล้ว ฟังก์ชัน IsBDEInstalled:boolean;//ตรวจสอบว่า BDE ได้ติดตั้งฟังก์ชัน GetPYIndexChar(hzchar:string):char;//รับอักษรตัวแรกของอักขระจีน ฟังก์ชัน Squ(X ,Y:integer):จำนวนเต็ม;โอเวอร์โหลด;//คำนวณกำลัง Y ของ x ฟังก์ชัน Squ(X:Double;Y:integer):Double;overload;//คำนวณกำลัง Y ของฟังก์ชัน x RandomNumByGUID:String;
//--------------ฟังก์ชั่นระบบ------------
ฟังก์ชัน AppRunOnce:Boolean;//ให้โปรแกรมรันโพรซีเดอร์อินสแตนซ์เดียวเท่านั้น AutoRunByReg(FileName:string= );//ให้โปรแกรมรันโพรซีเดอร์อัตโนมัติ DelAutoRunByReg(KeyName:string= );//ลบโพรซีเดอร์ไอเท็มที่เริ่มต้นเอง MoveWindow( หมายเลขอ้างอิง: Thandle);overload;//ขับแบบฟอร์มที่ไม่มีชื่อ Function GetAppPath(AddLastName:string= ):string;//รับไดเรกทอรีปัจจุบันของโปรแกรม ขั้นตอน ReMoveWinTitle(Form:Tform);//ลบชื่อเรื่องของแบบฟอร์ม;
ขั้นตอน BeepEx (ความถี่: Word; MSecs: LongInt); // ขั้นตอนการโทร DoBeep ClickStartMenu; // เปิดใช้งานขั้นตอนเมนูเริ่มต้นผ่านรหัส OpenScreenSave; // เปิดโปรแกรมรักษาหน้าจอ // ขั้นตอน DelTree (DirName: String); // ลบ ขั้นตอนไดเรกทอรี DeleteDir (SourcePath: String); // ลบโฟลเดอร์ที่ระบุ (รวมถึงโฟลเดอร์ย่อย) โฟลเดอร์และไฟล์ภายในสามารถมีขั้นตอนแอตทริบิวต์แบบอ่านอย่างเดียวหรือซ่อนไว้ DelSelfApp; -----------------*)
ขั้นตอน 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;//รับความสูงของแถบงาน
//------------------------------------------------ ----------------------------------
ฟังก์ชั่น GetDesktopListViewHandle: THandle {รับที่จับของมุมมองรายการเดสก์ท็อป}
ขั้นตอน MinWinAll;//ย่อขนาดแบบฟอร์มทั้งหมด ขั้นตอน CloseWinAll;//ปิดแบบฟอร์มทั้งหมด ขั้นตอน DrawWindowRect(หมายเลขอ้างอิง: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//เพิ่มเส้นขอบให้กับแบบฟอร์ม ขั้นตอน SetParentWinDefFont (ผู้ส่ง:TObject ;const defFont:Tfont=nil);//ตั้งค่าแบบอักษรเริ่มต้นของแบบฟอร์มหลัก {รับตำแหน่งของเคอร์เซอร์ในบันทึกช่วยจำ หมายเลขบรรทัด ความยาวบรรทัด}
ขั้นตอน GetMemoMousePos (m: Tmemo; var posValue: TmemoPos); โอเวอร์โหลด;
ขั้นตอน GetMemoMousePos (m: TRichEdit; var posValue: TmemoPos); โอเวอร์โหลด;
// ขั้นตอนการเปลี่ยนหน้าบันทึก setScrollPos (MHandle: Thandle; const pos: TClickType = PageDown); โอเวอร์โหลด;

//รับขนาดของขั้นตอนแบบฟอร์มที่ระบุ GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
ขั้นตอน TimeDelay(DT:Dword);//ขั้นตอนการหน่วงเวลามิลลิวินาทีที่แม่นยำ SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//ตั้งค่าที่อยู่ IP ของเครือข่าย ฟังก์ชัน GetLocalIP:string;//รับที่อยู่ IP ของเครื่อง ขั้นตอน OpenURL(URL:string);//เปิด URL ของเว็บ
//================================================ ==============================
// ฟังก์ชั่นในส่วนนี้นำมาจากผู้เขียนท่านอื่นที่ไม่ทราบชื่อ
//================================================ ==============================
ฟังก์ชัน GetDisplayFrequency: Integer; // รับฟังก์ชันอัตราการรีเฟรชการแสดงผล GetIdeSerialNumber: String; // รับหมายเลขซีเรียลของฟังก์ชันฮาร์ดดิสก์ตัวแรก GetCPUSpeed: Double; // รับฟังก์ชันความเร็ว CPU ปัจจุบัน GetCPUID: string; บัตรประจำตัวประชาชน
ฟังก์ชัน GetCPUVendor: string; // รับฟังก์ชันประเภท CPU GetFileName:string):TDateTime; // รับวันที่และเวลาเข้าถึงล่าสุดของฟังก์ชัน GetFileCreateTime(const strFileName:string):TDateTime; // รับการสร้างไฟล์ ฟังก์ชั่นเวลา GetFileModifyTime (const strFileName: string): TDateTime; // รับเวลาแก้ไขไฟล์ GetDNSTOIP (DNSName: String): String; // แปลงชื่อโดเมนเป็นที่อยู่ IP ฟังก์ชั่น GetDNSName (IPAddress: String): String; ที่อยู่ของชื่อโดเมน
//================================================ ==============================
//จบส่วนที่ตัดตอนมา
//================================================ ==============================
-
// ขั้นตอน GetNetConf
//----------ชุดการทำงานของไฟล์ INI-----------
(*_อ่านไฟล์ ini_*)
ฟังก์ชัน ReadIniFile(const FileName,Section, Ident:string; Default: string):string;
ฟังก์ชัน ReadIniFile (const FileName, Section, Ident:string; ค่าเริ่มต้น: จำนวนเต็ม): จำนวนเต็ม;
ฟังก์ชัน 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);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
-
{วาดเส้นตรงบนตัวควบคุมแผนภูมิที่ระบุและส่งกลับดัชนีที่เมาส์อยู่}
Function ChartMoveLine(แผนภูมิ:Tobject;MousePos_X:จำนวนเต็ม;LineColor:TColor=clRed):จำนวนเต็ม;
ขั้นตอน DataToExcelCSV (SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------เสียงเสียงบี๊บ----------*)

// ขั้นตอนการทำลาย;
{------------------------------------------------ ----------------------------------
ผู้แต่ง: Phoenix ^^me ส่วนหนึ่งของรหัสที่ได้รับจากเพื่อนที่ดี วันที่: 2004.03.31
-------------------------------------------------- -------------------------------------------------- --------------------------}
// แปลงข้อมูลเป็นไฟล์ Excel ช่องที่มีค่าที่มองเห็นเป็นเท็จใน TDataSet จะไม่ถูกเพิ่ม // ฟังก์ชั่น DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; // แปลงจำนวนตัวพิมพ์เล็กเป็นฟังก์ชันตัวพิมพ์ใหญ่ IsRightDate(mInputDate:String):Boolean;//วันที่ที่ป้อนถูกต้องหรือไม่//สตริงถูกเข้ารหัสและถอดรหัสเมื่อคีย์ฟังก์ชัน=1 ถูกเข้ารหัส 0 ในการถอดรหัส ให้ใช้ฟังก์ชันการดำเนินการ xor ถอดรหัส(const s: string; key:Byte=1): string;
ฟังก์ชั่น RightCopy(S: string; Index,count:Integer): string; //Copy Count อักขระจากตำแหน่งดัชนีที่ถูกต้อง