Zunächst einmal vielen Dank für Ihre Nutzung.
Gleichzeitig hoffe ich, dass Sie dieses Funktionspaket erweitern und Ihre erweiterte Version veröffentlichen können.
-------------------------------------------------- -------
^^
Es wird angegeben, dass dieses Komponentenpaket nur auf delphi7 normal installiert werden kann.
Wenn Sie delphi6 verwenden, tritt während der Installation ein Fehler auf.
--------------------------------------------------
Autor: Li Jinhao
QQ:67260745
E-Mail:[email protected]
Die meisten Funktionsmodule im Funktionspaket wurden von mir selbst geschrieben. . Ein Teil davon umfasst die Werke meiner Internetnutzer und einige der klassischeren Programmsegmente im Internet.
Funktion HexBCDToint(sHexBCD:Byte):integer;
Funktion IntToBCD(Int:Byte):word;
Function MinuteToTime(Minute:Double):TdateTime;overload;//Konvertierung von Minuten in Standardzeit Function MinuteToTime(Minute:Double;var DayCount:integer):TdateTime;overload;
//------------------------------------------------ ----------------------------------
Function GetWeekOfChina(dDay:TdateTime):string;//Den Wochentag abrufen Function GetWeekOfNum(dDay:TdateTime):integer;
//------------------------------------------------ ----------------------------------
Funktion IsStrAsNumber(NumStr:string):Bool;//Bestimmen Sie, ob die Zeichenfolge eine gültige Zahl in der Zeichenfolge ist. Funktion IsStrInOtherStr(mainStr,FindStr:string):Bool;//Ermitteln Sie, ob eine andere Zeichenfolge in einer Zeichenfolge enthalten ist. Funktion IsCOMClassRegistered (GUID :TGUID):Boolean;//Bestimmen Sie, ob ein COM-Objekt registriert wurde Function IsBDEInstalled:boolean;//Überprüfen Sie, ob die BDE die Funktion installiert hat GetPYIndexChar(hzchar:string):char;//Den ersten Buchstaben des chinesischen Zeichens abrufen Funktion Squ(X ,Y:integer):integer;overload;//Berechnen Sie die Y-Potenz von x Function Squ(X:Double;Y:integer):Double;overload;//Berechnen Sie die Y-Potenz von x Function RandomNumByGUID:String;
//--------------Systemfunktionen------------
Funktion AppRunOnce:Boolean;//Das Programm nur eine Instanzprozedur ausführen lassen AutoRunByReg(FileName:string= );//Das Programm automatisch die Prozedur DelAutoRunByReg(KeyName:string= );//Löschen einer selbststartenden Elementprozedur MoveWindow( handle: Thandle);overload;//Das Formular ohne Titel steuern Function GetAppPath(AddLastName:string= ):string;//Das aktuelle Verzeichnis des Programms abrufen Procedure ReMoveWinTitle(Form:Tform);//Den Titel des Formulars entfernen;
procedure BeepEx(Freq:Word;MSecs:LongInt); //DoBeep ruft die Prozedur ClickStartMenu auf;//Aktivieren Sie die Startmenüprozedur über den Code OpenScreenSave;//Schalten Sie den Bildschirmschoner ein//procedure DelTree(DirName:String);//Delete Verzeichnisprozedur DeleteDir(SourcePath: String); //Löschen Sie den angegebenen Ordner (einschließlich Unterordnern). Der Ordner und die darin enthaltenen Dateien können schreibgeschützte oder versteckte Attribute haben. //Das Programm löscht sich selbst nach der Ausführung (*-). ----------------*)
procedure HideTaskBar(bHide:boolean=False);//TaskBar anzeigen oder ausblenden
procedure DisplayOFFON(SW: boolean);//Anzeigeprozedur aus- und einschalten HideDesktop(sw:Boolean=false);//Desktopprozedur anzeigen und ausblenden HideDesktopAndTaskBar(sw:Boolean=false);//Desktop ausblenden und Taskleiste gleichzeitig procedure HideTrayNotify (sw:Boolean=false);//Systembenachrichtigungsbereich ausblenden procedure HideWinButton(sw:Boolean=false);//Startschaltfläche ausblenden procedure HideQuickLaunchBar(sw:Boolean=false);// Blenden Sie die Schnellstart-Schaltflächenleiste aus//Prozedur HideAppInTastWin (sw:Boolean=False);//Verstecken Sie das Programm in der Task-Manager-Prozedur DisbleQuikKey(sw:boolean=false);//Schild ALT+F4 und ALT+Strg+Entf
Funktion GetTaskBarHeight:integer;//Ermitteln Sie die Höhe der Taskleiste
//------------------------------------------------ ----------------------------------
function GetDesktopListViewHandle: THandle {Den Handle der Desktop-Listenansicht abrufen}
procedure MinWinAll;//Alle Formulare minimieren procedure CloseWinAll;//Alle Formulare schließen procedure DrawWindowRect(handle: Thandle;wColor: Tcolor=clBlack;PenWidth:integer=1);//Einen Rahmen zum Formular hinzufügen Procedure SetParentWinDefFont (Sender:TObject ;const defFont:Tfont=nil);//Legen Sie die Standardschriftart des übergeordneten Formulars fest {ermitteln Sie die Position des Cursors im Memo, Zeilennummer, Zeilenlänge}
procedure GetMemoMousePos(m:Tmemo;var posValue:TmemoPos);overload;
procedure GetMemoMousePos(m:TRichEdit;var posValue:TmemoPos);overload;
//Memo-Umblättervorgang setScrollPos(MHandle:Thandle;const pos:TClickType=PageDown);overload;
//Größe der angegebenen Formularprozedur abrufen GetWinRect(const WinHandle:HWND;var winRect:TwinRect);
procedure TimeDelay(DT:Dword);//Genaue Millisekunden-Verzögerung procedure SetIPaddress(SIP: TNetValue;const isAuto:boolean=false);//Setzen Sie die Netzwerk-IP-Adresse ein Function GetLocalIP:string;//Rufen Sie die IP-Adresse der Maschine ab Prozedur OpenURL(URL:string);//Eine Web-URL öffnen
//============================================= ==============================
// Die Funktionen in diesem Teil stammen von anderen Autoren. Unbekannte Namen
//============================================= ==============================
function GetDisplayFrequency: Integer; //Ermitteln Sie die Aktualisierungsrate der Anzeige. function GetIdeSerialNumber: //Erhalten Sie die Seriennummer der ersten Festplatte. function GetCPUSpeed: Double; //Erhalten Sie die aktuelle CPU-Geschwindigkeit AUSWEIS
Function GetCPUVendor: string; // Den CPU-Typ abrufen Function GetFileLastAccessTime(sFileName:string):TDateTime; //Das letzte Zugriffsdatum und die Uhrzeit der Datei abrufen Function GetFileCreateTime(const strFileName:string):TDateTime; time Function GetFileModifyTime(const strFileName:string):TDateTime; //Dateiänderungszeit abrufen Function GetDNSTOIP(DNSName:String); //Domänennamen in IP-Adresse konvertieren Function GetDNSName(IPAddress:String); Adresse zum Domainnamen
//============================================= ==============================
// Ende des Auszugsteils
//============================================= ==============================
//--------------------------------
// Prozedur GetNetConf
//----------INI-Datei-Operationssatz-----------
(*_INI-Datei lesen_*)
Function ReadIniFile(const FileName,Section, Ident:string; Default: string):string overload;
Function ReadIniFile(const FileName,Section, Ident:string; Default: integer):integer;
Funktion ReadIniFile(const FileName,Section, Ident:string; Default: Double):Double-Überladung;
Function ReadIniFile(const FileName,Section, Ident:string; Default: Boolean):Boolean;
Funktion ReadIniFile(const FileName,Section, Ident:string; Standard: TdateTime):TdateTime-Überladung;
(*_INI-Datei schreiben_*)
procedure WriteIniFile(const FileName,Section, Ident:string; Value:string);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:integer);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:Double);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:Boolean);overload;
procedure WriteIniFile(const FileName,Section, Ident:string; Value:TdateTime);overload;
//------------
(*Mausklick simulieren*)
procedure SendMouseClick(const WinHandle:HWND;const PosX,PosY:integer;const ClickFlag:TClickType=vKeyclick);
(*Tastaturtasten simulieren*)
procedure SendKey(const WinHandle:HWND;const Vkey:word;const KeyClickFlag:TClickType=vkeyDown);
procedure SendComBoKey(const CtrlKey,FnKey:word);//Zum Beispiel: send ALT+F4
//----------
{Zeichnen Sie eine gerade Linie auf dem angegebenen Diagrammsteuerelement und geben Sie den Index zurück, an dem sich die Maus befindet}
Funktion ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
procedure DataToExcelCSV(SaveFileName:string;DataSet:TDataSet;ShowCompleteBoX:Boolean=True;GroupCount:integer=1);
(*---------Sound DoBeep-Sound----------*)
// procedure Destroy;
{---------------------------------------------------------------- ----------------------------------
Autor: Phoenix ^^me Teil des Codes, bereitgestellt von einem guten Freund Datum: 31.03.2004
-------------------------------------------------- -----------}
//Konvertieren Sie die Daten in eine Excel-Datei. Felder, deren sichtbarer Wert in TDataSet ist, werden nicht hinzugefügt. // function DataToExcel(myExcelName: String; myDataSet: TDataSet): Boolean;
function ToBigRMB(RMB: string): string; // Kleinbuchstaben in Großbuchstaben umwandeln function IsRightDate(mInputDate:String):Boolean;//Ob das eingegebene Datum korrekt ist//Die Zeichenfolge wird einfach verschlüsselt und entschlüsselt, wenn der Funktionsschlüssel = 1 ist ist verschlüsselt, 0 Zum Entschlüsseln verwenden Sie die xor-Operationsfunktion Decrypt(const s: string; key:Byte=1): string;
function RightCopy(S: string; Index,count:Integer): string; //Copy Anzahl der Zeichen ab der rechten Indexposition
