Pertama-tama, terima kasih banyak atas penggunaannya.
Pada saat yang sama, saya harap Anda dapat memperluas paket fitur ini... dan merilis versi yang diperluas.
--------------------------------------------------- -------
^^
Dinyatakan bahwa paket komponen ini hanya dapat diinstal secara normal di delphi7.
Jika Anda menggunakan delphi6. akan terjadi kesalahan saat instalasi.
---------------------------------------------------
Penulis: Li Jinhao
QQ:67260745
Email:[email protected]
Sebagian besar modul fungsi dalam paket fungsi ditulis sendiri. . Sebagian mencakup karya netizen saya dan beberapa segmen program klasik di Internet.
Fungsi HexBCDToint(sHexBCD:Byte):integer;
Fungsi IntToBCD(Int:Byte):kata;
Fungsi MinuteToTime(Minute:Double):TdateTime;overload;//Konversi menit ke waktu standar Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ -----------------------------------
Fungsi GetWeekOfChina(dDay:TdateTime):string;//Dapatkan hari dalam seminggu Fungsi GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ -----------------------------------
Fungsi IsStrAsNumber(NumStr:string):Bool;//Menentukan apakah string merupakan angka yang valid dalam string Fungsi IsStrInOtherStr(mainStr,FindStr:string):Bool;//Mendeteksi apakah string lain disertakan dalam string function IsCOMClassRegistered (GUID :TGUID):Boolean;//Tentukan apakah objek COM telah terdaftar Fungsi IsBDEInstalled:boolean;//Periksa apakah BDE telah menginstal fungsi GetPYIndexChar(hzchar:string):char;//Dapatkan huruf pertama dari karakter Cina Fungsi Squ(X ,Y:integer):integer;overload;//Hitung pangkat Y dari x Fungsi Squ(X:Double;Y:integer):Double;overload;//Hitung pangkat Y dari x Function RandomNumByGUID:String;
//--------------Fungsi sistem------------
Fungsi AppRunOnce:Boolean;//Biarkan program berjalan hanya satu prosedur instance AutoRunByReg(NamaFile:string= );//Biarkan program secara otomatis menjalankan prosedur DelAutoRunByReg(NamaKey:string= );//Menghapus prosedur item yang dimulai sendiri MoveWindow( handle: Thandle);overload;//Drive formulir tanpa judul Function GetAppPath(AddLastName:string= ):string;//Dapatkan direktori program saat ini Procedure ReMoveWinTitle(Form:Tform);//Hapus Judul formulir;
procedure BeepEx(Freq:Word;MSecs:LongInt); //DoBeep memanggil prosedur ClickStartMenu;//Aktifkan prosedur menu mulai melalui kode OpenScreenSave;//Menghidupkan screen saver//prosedur DelTree(DirName:String);//Hapus prosedur direktori DeleteDir(SourcePath: String); //Menghapus folder tertentu (termasuk subfolder). Folder dan file di dalamnya dapat memiliki atribut read-only atau tersembunyi procedure DelSelfApp; --*)
procedure HideTaskBar(bHide:boolean=False);//Tampilkan atau sembunyikan TaskBar
procedure DisplayOFFON(SW: boolean);//Mematikan dan menghidupkan prosedur tampilan HideDesktop(sw:Boolean=false);//Menampilkan dan menyembunyikan prosedur desktop HideDesktopAndTaskBar(sw:Boolean=false);//Menyembunyikan desktop dan bilah tugas sekaligus prosedur HideTrayNotify (sw:Boolean=false);//Menyembunyikan prosedur area notifikasi sistem HideWinButton(sw:Boolean=false);//Menyembunyikan prosedur tombol mulai HideQuickLaunchBar(sw:Boolean=false);// Menyembunyikan bilah tombol luncur cepat//prosedur HideAppInTastWin (sw:Boolean=False);//Menyembunyikan program dalam prosedur pengelola tugas DisbleQuikKey(sw:boolean=false);//Perisai ALT+F4 dan ALT+Ctrl+Del
Fungsi GetTaskBarHeight:integer;//Mendapatkan tinggi taskbar
//------------------------------------------------ -----------------------------------
function GetDesktopListViewHandle: THandle; {Dapatkan pegangan tampilan daftar desktop}
procedure MinWinAll;//Minimalkan semua form procedure CloseWinAll;//Tutup semua form procedure DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//Tambahkan batas ke form Procedure SetParentWinDefFont (Sender:TObject ;const defFont:Tfont=nil);//Setel font default formulir induk {dapatkan posisi kursor di memo, nomor baris, panjang baris}
prosedur GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);kelebihan beban;
prosedur GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);kelebihan beban;
//Prosedur pembalikan halaman memo setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;
//Dapatkan ukuran prosedur formulir yang ditentukan GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
procedure TimeDelay(DT:Dword);//Prosedur penundaan milidetik yang akurat SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//Mengatur alamat IP jaringan Fungsi GetLocalIP:string;//Mendapatkan alamat IP mesin Prosedur OpenURL(URL:string);//Buka URL web
//------------------------------------------------ ===============
// Fungsi di bagian ini diambil dari penulis lain
//------------------------------------------------ ===============
function GetDisplayFrequency: Integer; //Dapatkan fungsi kecepatan refresh tampilan GetIdeSerialNumber: String; //Dapatkan nomor seri fungsi hard disk pertama GetCPUSpeed: Double; //Dapatkan kecepatan CPU saat ini Fungsi GetCPUID:string; PENGENAL
Fungsi GetCPUVendor: string; //Dapatkan tipe CPU Function GetFileLastAccessTime(sFileName:string):TDateTime; //Dapatkan tanggal dan waktu akses terakhir file Function GetFileCreateTime(const strFileName:string):TDateTime; //Dapatkan pembuatan file time Fungsi GetFileModifyTime(const strFileName:string):TDateTime; //Dapatkan waktu modifikasi file Fungsi GetDNSTOIP(DNSName:String):String //Konversi nama domain ke alamat IP Fungsi GetDNSName(IPAddress:String):String; alamat ke nama domain
//------------------------------------------------ ===============
// Akhir dari bagian kutipan
//------------------------------------------------ ===============
//--------------------------------
// prosedur GetNetConf
//----------Set operasi file INI-----------
(*_baca file ini_*)
Fungsi ReadIniFile(const Nama File,Bagian, Identitas:string; Default: string):string kelebihan beban;
Fungsi ReadIniFile(const Nama File,Bagian, Identitas:string; Default: integer):integer kelebihan beban;
Fungsi ReadIniFile(const Nama File,Bagian, Identitas:string; Default: Ganda):Double kelebihan beban;
Fungsi ReadIniFile(const Nama File,Bagian, Identitas:string; Default: Boolean):Boolean kelebihan beban;
Fungsi ReadIniFile(const Nama File,Bagian, Identitas:string; Default: TdateTime):TdateTime kelebihan beban;
(*_Tulis file INI_*)
prosedur WriteIniFile(const Nama File,Bagian, Identitas:string; Nilai:string);kelebihan beban;
prosedur WriteIniFile(const Nama File,Bagian, Identitas:string; Nilai:integer);kelebihan beban;
prosedur WriteIniFile(const Nama File,Bagian, Identitas:string; Nilai:Double);kelebihan beban;
prosedur WriteIniFile(const Nama File,Bagian, Identitas:string; Nilai:Boolean);kelebihan beban;
prosedur WriteIniFile(const Nama File,Bagian, Identitas:string; Nilai:TdateTime);kelebihan beban;
//-----------
(*Simulasikan klik mouse*)
prosedur SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*Simulasikan tombol keyboard*)
prosedur SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
prosedur SendComBoKey(const CtrlKey,FnKey:word);//Misalnya: kirim ALT+F4
//---------
{Gambar garis lurus pada kontrol grafik yang ditentukan dan kembalikan indeks tempat mouse berada}
Fungsi ChartMoveLine(Bagan:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
procedure DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------Suara DoBeep----------*)
// prosedur Hancurkan;
{------------------------------------------------- -----------------------------------
Penulis: Phoenix ^^me Bagian dari kode yang diberikan oleh teman baik Tanggal: 2004.03.31
--------------------------------------------------- --------------------------}
//Mengonversi data ke file Excel. Bidang yang nilai terlihatnya False di TDataSet tidak ditambahkan. // function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; //Ubah jumlah huruf kecil menjadi huruf besar fungsi IsRightDate(mInputDate:String):Boolean;//Apakah tanggal yang dimasukkan benar//String hanya dienkripsi dan didekripsi ketika tombol fungsi=1 dienkripsi, 0 Untuk mendekripsi, gunakan fungsi operasi xor Decrypt(const s: string; key:Byte=1): string;
function RightCopy(S: string; Index,count:Integer): string; //Salin Hitung karakter dari posisi Indeks kanan
