Viewing file: uTools.dcu (28.48 KB) -rw-rw-rw- Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
K q B - uTools <p uTools.pasiB dSystem fstring,f
UnicodeString,fByte&fCardinalfTObjecty{fBoolean8bfIntegersgTObject.EqualsKgTObject.GetHashCodeLgTObject.ToStringMgTObject.SafeCallExceptionNgTObject.AfterConstructionOgTObject.BeforeDestructionPgTObject.DispatchQgTObject.DefaultHandlerRgTObject.NewInstanceSgTObject.FreeInstanceTg.TObjectWf PCardinalyfLongWordfWord~fLongIntsgFalse*gTrue*gTObject.Free6g@UStrAsgZ3g@HandleOnException`pg @UStrCatN`pg@DoneExcept`pg
@UStrArrayClrg@UStrClr\>g@HandleFinally`pg@HandleAnyException`pgExit g @UStrLAsgZ3fCharo?1f PWideCharD?g SetLength g@UStrSetLength6?g @PWCharLen+{0g@UStrFromWArrayQg@InitializeRecordYg@UStrCatZ3g@TryFinallyExit`pg @UStrEqual`pg@FinalizeRecordYgLength g@UStrLen06gInc g@UniqueStringUGf NativeIntv6fPLongInt2E4gPosngPosDg@UStrAddRef9ufPCharD?g@UStrFromPWChar223gFillChar gSizeOf g @FillCharjf WideStringݗgChr g
@UStrToPWChar-g @UStrCat3cg@ClassCreate;{g@AfterConstructionWqgTObject.DestroyUfPointer~g@BeforeDestruction:g
@ClassDestroyXcdSysInit cd gnugettext g_oG-cdSystem.Classes fTStringListqfTStringsٍgTStrings.SetDelimitedText;/gTStrings.GetDelimitedText6/g.TStringListT¹SgTStringList.CreatefTDuplicates*g dupIgnore;/gTStrings.SetDelimiter@/gTStringList.SetSortedgTStrings.GetCommaText5/cdVcl.Graphics gclYellowd9g clBtnFacea6gclReda9cdWinapi.Windows fDWORDfTHandleMjgOpenProcessFJgPROCESS_TERMINATE}1gTerminateProcessHgCloseHandleKp2gMAX_PATH91gGetWindowsDirectoryW#sg
FormatMessageBgFORMAT_MESSAGE_ALLOCATE_BUFFER-1gFORMAT_MESSAGE_FROM_SYSTEM-"1g LocalFreeԴfTStartupInfo@fTProcessInformation(gSTARTF_USESHOWWINDOW}1gSTARTF_FORCEONFEEDBACKl~1g
CreateProcessigCREATE_NEW_CONSOLE}1gNORMAL_PRIORITY_CLASS~1gGetExitCodeProcess;ogWaitForSingleObjectGCgINFINITElgWAIT_TIMEOUT31gGetLastError g
GetLocaleInfoL]gGetSystemDefaultLCID gLOCALE_SENGLANGUAGE0"1cdSystem.SysUtils f Exception;g .ExceptiongFormatEgStrLenIgStrLensf TSearchRecjg FindFirst? _gIncludeTrailingPathDelimiter^gfaDirectory}1gFindNextV>Qg FindClosey gTrim^g
StringReplace, f:85`XgrfReplaceAll.gStrToIntfwegStrPCopy?gStrPCopyrjgIntToStrT|gIntToStr2g UpperCasec-g FreeAndNil\ZcdWinapi.TlHelp32 cdWinapi.ShellAPI gShellExecute[K!fTShellExecuteInfoVJgSEE_MASK_NOCLOSEPROCESSl~1gShellExecuteExFfPShellExecuteInfoJ{f_SHELLEXECUTEINFOWVJcd Vcl.Forms gApplications}gTApplication.ProcessMessagesygTApplication.GetExeName߶ycdVcl.Dialogs g MessageDlgߘwgmtError.qlZgmbOK IgMessageDlgPosHelpb;(cdSystem.IniFiles fTMemIniFilehg.TMemIniFileKggTMemIniFile.Create03cdSystem.Character f TCharacterg.TCharactergogTCharacter.IsWhiteSpace឵cdJclSecurity gIsAdministrator\cdSystem.StrUtils gContainsTextlj%[AȶgAnsiContainsTextlj%cdJclFileUtils fTJclFileVersionInfo/ikg.TJclFileVersionInfo=I/gTJclFileVersionInfo.Createxug'TJclFileVersionInfo.GetFileVersionMajoroug'TJclFileVersionInfo.GetFileVersionMinorpug)TJclFileVersionInfo.GetFileVersionReleasequceuMain gfMain8Ng
TfMain.AddLog=ceSystem.UITypes fTMsgDlgTypenf TMsgDlgBtnUaKPfTMsgDlgButtonsOoceVcl.Controls gTWinControl.GetHandle`c5uTools _c5System 5UITypes c5StrUtils c5 Character c5IniFiles c5SysUtils c5Classes cc5SysInit c5 GnuGettext c5Classes c5Graphics c5Windows c5SysUtils c5TlHelp32 =c5ShellAPI Ac5Forms ]c5Dialogs mc5IniFiles c5 Character c5JCLSecurity c5StrUtils c5JCLFileUtils c%
cRunningColor qBL %
cPartialColor эuN %
cStoppedColor rN %cErrorColor ѐrN %cCompileDate %_ L M a y
|