مكتبة وظيفتي

أولا وقبل كل شيء، شكرا جزيلا لاستخدامك.
وفي الوقت نفسه، آمل أن تتمكن من توسيع حزمة الميزات هذه... وإصدار نسختك الموسعة.
-------------------------------------------------- -------
^^
يُذكر أنه لا يمكن تثبيت حزمة المكونات هذه إلا بشكل طبيعي على دلفي 7.

إذا كنت تستخدم delphi6، فسيحدث خطأ أثناء التثبيت.

--------------------------------------------------
المؤلف: لي جينهاو
س:67260745
البريد الإلكتروني:[email protected]

تمت كتابة معظم الوحدات الوظيفية الموجودة في حزمة الوظائف بنفسي. . يتضمن جزء منه أعمال مستخدمي الإنترنت وبعض مقاطع البرامج الأكثر كلاسيكية على الإنترنت.
الدالة HexBCDToint(sHexBCD:Byte):عدد صحيح؛
الدالة IntToBCD(Int:Byte):word;
الوظيفة MinuteToTime(Minute: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):Boolean;// تحديد ما إذا تم تسجيل كائن COM الوظيفة IsBDEInstalled:boolean;// تحقق مما إذا كان BDE قد قام بتثبيت الوظيفة GetPYIndexChar(hzchar:string):char;// احصل على الحرف الأول من الحرف الصيني Function Squ(X ,Y:integer):integer;overload;// احسب قوة Y لوظيفة x Squ(X:Double;Y:integer):Double;overload;// احسب قوة Y لـ x Function RandomNumByGUID:String;
//--------------وظائف النظام------------
وظيفة AppRunOnce:Boolean;// اسمح للبرنامج بتشغيل إجراء مثيل واحد فقط AutoRunByReg(FileName:string= );// دع البرنامج يقوم تلقائيًا بتشغيل الإجراء DelAutoRunByReg(KeyName:string= );//حذف إجراء عنصر ذاتي التشغيل MoveWindow( Handle: Thandle);overload;// قيادة النموذج بدون عنوان Function GetAppPath(AddLastName:string= ):string;// احصل على الدليل الحالي للبرنامج الإجراء ReMoveWinTitle(Form:Tform);// إزالة عنوان النموذج;
الإجراء BeepEx(Freq:Word;MSecs:LongInt); // إجراء مكالمات DoBeep ClickStartMenu;// تنشيط إجراء قائمة البداية من خلال الكود OpenScreenSave;// تشغيل شاشة التوقف // الإجراء DelTree(DirName:String);//حذف إجراء الدليل RemoveDir(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(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);// أضف حدًا إلى إجراء النموذج 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;

// احصل على حجم إجراء النموذج المحدد 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 على الويب
//================================================================================================ ==============================================================
// الوظائف في هذا الجزء مأخوذة من مؤلفين آخرين
//================================================================================================ ==============================================================
function GetDisplayFrequency: Integer; // احصل على وظيفة معدل تحديث العرض GetIdeSerialNumber: String; // احصل على الرقم التسلسلي لوظيفة القرص الصلب الأول GetCPUSpeed: Double; // احصل على سرعة وحدة المعالجة المركزية الحالية Function GetCPUID:string; بطاقة تعريف
الوظيفة GetCPUVendor: string; // احصل على نوع وحدة المعالجة المركزية 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; Default: string):string;
الوظيفة ReadIniFile(const FileName,Section, Ident:string; Default: integer):integer overload;
وظيفة ReadIniFile(const FileName,Section, Ident:string; Default: Double):Double;
الوظيفة ReadIniFile(const FileName,Section, Ident:string; Default: Boolean):Boolean overload;
وظيفة ReadIniFile(const FileName,Section, Ident:string; Default: 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):عدد صحيح;
الإجراء DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------صوت DoBeep -----------*)

// الإجراء تدمير؛
{------------------------------------------------- ----------------------------------
المؤلف: Phoenix ^^me جزء من الكود مقدم من صديق جيد التاريخ: 2004.03.31
-------------------------------------------------- -------------------------- }
// تحويل البيانات إلى ملف Excel لا تتم إضافة الحقول ذات القيمة المرئية False في TDataSet // function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
وظيفة ToBigRMB(RMB: سلسلة): سلسلة // تحويل المبلغ الصغير إلى وظيفة كبيرة IsRightDate(mInputDate:String):Boolean;// ما إذا كان التاريخ المدخل صحيحًا// يتم تشفير السلسلة وفك تشفيرها ببساطة عندما يكون مفتاح الوظيفة = 1 مشفر، 0 لفك التشفير، استخدم وظيفة التشغيل xor Decrypt(const s: string; key:Byte=1): string;
وظيفة RightCopy(S: string; Index,count:Integer): string; // نسخ عدد الأحرف من موضع الفهرس الصحيح