Прежде всего, большое спасибо за ваше использование.
В то же время я надеюсь, что вы сможете расширить этот пакет функций... и выпустить расширенную версию.
-------------------------------------------------- -------
^^
Заявлено, что этот пакет компонентов можно нормально установить только на delphi7.
Если вы используете delphi6, во время установки возникнет ошибка.
--------------------------------------------------
Автор: Ли Цзиньхао
Вопрос: 67260745
Электронная почта:[email protected]
Большинство функциональных модулей в функциональном пакете написаны мной. . Часть его включает в себя работы моих пользователей сети и некоторые наиболее классические сегменты программ в Интернете.
Функция HexBCDToint(sHexBCD:Byte): целое число;
Функция IntToBCD(Int:Byte):слово;
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-объект. Функция IsBDEInstalled:boolean;//Проверить, установлена ли в BDE функция GetPYIndexChar(hzchar:string):char;//Получить первую букву китайского символа Функция Squ(X ,Y:integer):integer;overload;//Вычисляем степень Y x Function Squ(X:Double;Y:integer):Double;overload;//Вычисляем степень Y x Function RandomNumByGUID:String;
//--------------Системные функции------------
Function 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);//Удалить процедура каталога DeleteDir(SourcePath: String); //Удалить указанную папку (включая подпапки). Папка и файлы в ней могут иметь атрибуты только для чтения или скрытые атрибуты процедура DelSelfApp; //Программа удалит себя после запуска (*-). ----------------*)
процедура HideTaskBar(bHide:boolean=False);//Показать или скрыть панель задач
процедура DisplayOFFON(SW: boolean);//Выключаем и включаем процедуру отображения HideDesktop(sw:Boolean=false);//Показываем и скрываем рабочий стол панель задач одновременно с процедурой HideTrayNotify (sw:Boolean=false); //Скрываем область системных уведомлений Скрыть панель кнопок быстрого запуска//процедура HideAppInTastWin (sw:Boolean=False);//Скрыть программу в диспетчере задач процедурой DisbleQuikKey(sw:boolean=false);//Щит ALT+F4 и ALT+Ctrl+Del
Функция 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);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);//Точная задержка в миллисекундах OpenURL(URL:string);//Открываем веб-URL
//============================================== =============================
// Функции в этой части взяты у других авторов. Неизвестные имена.
//============================================== =============================
function GetDisplayFrequency: Integer; //Получаем частоту обновления дисплея function GetIdeSerialNumber: String //Получаем серийный номер первого жесткого диска function GetCPUSpeed: Double; //Получаем текущую скорость процессора Function GetCPUID:string; ИДЕНТИФИКАТОР
Function 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; По умолчанию: 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
//------------------------
{Нарисуйте прямую линию на указанном элементе управления диаграммой и верните индекс, в котором находится мышь}
Функция ChartMoveLine(Chart:Tobject;MousePos_X:Integer;LineColor:TColor=clRed):integer;
процедура 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;
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 //Копируем количество символов из правой позиции индекса;
