Viewing file: uMain.dcu (61.78 KB) -rw-rw-rw- Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
K ! B - uMain <r uMain.dfm[Bp uMain.pasXB dSystem fTObjecty{fBoolean8bfstring,f
UnicodeString,fIntegersgTObject.EqualsKgTObject.GetHashCodeLgTObject.ToStringMgTObject.DispatchQgTObject.NewInstanceSgTObject.FreeInstanceTgExit gFalse*gTrue*g
@UStrArrayClrg@UStrClr\>g@HandleFinally`pg@UStrCatZ3g @UStrCat3cgTObject.Free6g@HandleOnException`pg @UStrCatN`pg@DoneExcept`pg @UStrLAsgZ3f TDateTimeWg@UStrAddRef9ufTextFilegLength g@UStrLen06gCopy g @UStrCopyDg AssignFile g@AssignTextH~gAppend g@Appendm
gRewrite g@RewritTextm
gWriteln g@Write0UString%mAg@WriteLn.qg CloseFile g@Closem
f NativeIntv6fPLongInt2E4g@_IOTest`pg@UStrAsgZ3g@IsClass9Nܜg@AsClassQ\gSizeOf fPointer~gPosngPosDgDelete g@UStrDeleteg@HandleAnyException`pcdSysInit cd gnugettext g_oG-fTranslatedUnicodeString,gTranslateComponentWcdWinapi.Windows gSW_SHOW}1gSendMessagePo'gSendMessage<IfTOSVersionInfoEx:VfTOSVersionInfo<PgGetVersionEx$UgGetVersionEx cdWinapi.Messages fTWMQueryEndSessionbzgWM_QUERYENDSESSION}1gEM_SCROLLCARETQ1cdSystem.SysUtils f Exception;gFormatEgDirectoryExists#g FileExists#g .Exceptiong TimeToStr-͟?gNow{1ofTFormatSettings+F g TimeToStr;LgCurrencyString:"&gExtractFileName^g LowerCasec-gExtractFilePath^g
LastDelimitergTrim^gIncludeTrailingPathDelimiter^g FreeAndNil\ZcdSystem.Variants cdSystem.Classes fTStringListqgTComponent.CanObserveLgTComponent.ObserverAddedMgTComponent.GetObserversNgTComponent.UpdateRegistryXgTComponent.WriteState\gTComponent.SafeCallExceptionvgTComponent.UpdateActionwgTPersistent.Assigniug.TStringListT¹SgTStringList.CreatecdVcl.Graphics gclGrayB
:gclBlacka9gclBlue^<gclReda9gclSilverΣ;g
TFont.SetNamedSg
TFont.SetSizefScdVcl.Controls f TImageList?JygTWinControl.AssignTogTWinControl.CanAutoSizegTWinControl.CanResizegTWinControl.ConstrainedResizegTWinControl.CreateHandleg#TWinControl.CustomAlignInsertBeforegTWinControl.CustomAlignPositiongTWinControl.DestroyWndg!TWinControl.DockReplaceDockClientgTWinControl.GetClientOrigingTWinControl.GetControlExtentsgTWinControl.GetDeviceContextgTWinControl.SetParentBackground%g#TWinControl.SetParentDoubleBuffered&gTWinControl.ShowControl(g+TWinControl.UpdateControlOriginalParentSize*gTWinControl.InvalidatecgTWinControl.RepaintigTWinControl.SetBoundslgTWinControl.UpdateogTControl.CreateTouchManager||NgTControl.GetAction|NgTControl.GetEnabled|Ng!TControl.GetFloatingDockSiteClass|NgTControl.SetAutoSize|NgTControl.SetDragMode|NgTControl.SetEnabled|NgTControl.SetName|NgTControl.SetBiDiMode|NgTControl.GetDragImages|NgTControl.InitiateAction|Ng.TImageList"gmrYes}1gMouseAgTMouse.GetCursorPos\gTControl.GetTextLen}NgTWinControl.GetHandle`gTControl.SetPopupMenu5|NgTControl.SetWidth8|NgTControl.SetHeight*|NgTControl.SetTextf|Ncd Vcl.Forms fTFormX fTCloseActiongTCustomForm.AlignControls
gTCustomForm.ClientWndProcgTCustomForm.CreateParamsgTCustomForm.CreateWindowHandlegTCustomForm.CreateWndgTCustomForm.DefinePropertiesgTCustomForm.DestroyHandlegTCustomForm.DestroyWindowHandlegTCustomForm.DoCreategTCustomForm.DoDestroygTCustomForm.GetClientRect gTCustomForm.GetFloating!gTCustomForm.Loaded%gTCustomForm.Notification&gTCustomForm.PaintWindow(gTCustomForm.ReadState*gTCustomForm.RequestAlign+gTCustomForm.SetParentBiDiMode-gTCustomForm.SetParent/gTCustomForm.UpdateActions0gTCustomForm.ValidateRename2gTCustomForm.WndProc4gTCustomForm.Resizing5gTCustomForm.QueryInterface9gTCustomForm.CreatergTCustomForm.CreateNewsgTCustomForm.DestroytgTCustomForm.CloseQueryvgTCustomForm.DefaultHandlerwgTCustomForm.SetFocusgTCustomForm.SetFocusedControlgTCustomForm.ShowModalgTCustomForm.WantChildKeygTCustomForm.AfterConstructiongTCustomForm.BeforeDestructiong%TScrollingWinControl.AdjustClientRectWw$g&TScrollingWinControl.AutoScrollEnabledYw$g%TScrollingWinControl.AutoScrollInViewZw$gTScrollingWinControl.DoGesture_w$g(TScrollingWinControl.DoGetGestureOptions`w$g.TForm;rgTCustomForm.ShowgApplications}gTApplication.GetExeName߶ygTCustomForm.Hide}gwsMinimizedtgTCustomForm.SetWindowStategwsNormaltgTApplication.BringToFrontygTApplication.ProcessMessagesygTApplication.Terminate%ygcaHide;GgTCustomForm.SetLeftgTCustomForm.SetTopgTCustomForm.GetLeftgTCustomForm.GetTopgTCustomForm.WMQueryEndSessioncdVcl.Dialogs g MessageDlgߘwgmtError.qlZgmbOK IgmtConfirmation4qlZgmbYes IgmbNo IgMessageDlgPosHelpb;(gmbAbort IcdVcl.StdCtrls fTLabel"df TGroupBox.g.TLabelig .TGroupBoxgTCustomEdit.SetSelTextZgTCustomEdit.SelectAllZgTCustomEdit.CopyToClipboardZcdVcl.ExtCtrls fTImage.߿fTPanelqW"fTTimer sf TTrayIcon]qg.TImageWg.TPanelT+ &g.TTimerPg .TTrayIcon@EgTTimer.SetEnabled!HcdVcl.ComCtrls f TStatusBargRf TRichEditg.TStatusBarJrŤg .TRichEditqgTTextAttributes.SetColorxEcdVcl.Buttons fTBitBtn)pPg.TBitBtnD.cduTools ftLogTypeBCg ltDefault@xgltError@xg WinVersionW9gConfig[^PgBaseDir:"&gcrT
^gExecuteFileAgltDebug@xgltDebugDetails@xgltInfo@xgClosingFbgGlobalProgramversion:"&gcCompileDate%_gIsWindowsAdmin\gGetSubDirectories8▋g GetWinDirP!cg
FindMatchTextgSaveSettings`pcduTomcat ftTomcat0gtTomcat.CheckIsServicePwgtTomcat.AddLogPwg.tTomcat1gtTomcat.CreatePwcduApache ftApachegtApache.CheckIsService"ȴgtApache.AddLog#ȴg.tApachewngtApache.Create$ȴcduMySQL ftMySQL gtMySQL.CheckIsService5@g
tMySQL.AddLog6@g.tMySQLgog
tMySQL.Create7@cd uFileZilla f tFileZilla9`gtFileZilla.CheckIsServiceZgtFileZilla.AddLogZg.tFileZilla
qgtFileZilla.CreateZcduMercury ftMercuryLg .tMercury*AgtMercury.CreateacduNetstat gfNetstatJeѸgTfNetstat.RefreshTableuPcd
uNetstatTable gNetStatTableogtNetstatTable.UpdateTable *qcd Vcl.Menus f TPopupMenuBI!f TMenuItemog.TPopupMenu%Fg .TMenuItemMgTMenuItem.CreatekGgTMenuItem.SetCaption^Gg
TMenuItem.AddGgTMenuItem.FindrGgTMenuItem.ClearpGgTMenuItem.SetEnabledbGcdSystem.IniFiles cdVcl.AppEvnts fTApplicationEventsVsg.TApplicationEvents9hcdVcl.ImgList cdJclDebug gJclLastExceptStackListgTJclStackInfoList.AddToStringscd JclSysInfo gIsWindows64\gGetWindowsProductStringP!cg"GetWindowsServicePackVersionStringP!ccduProcesses_new g ProcessesgtProcesses.UpdateList>cdSystem.UITypes fTCloseActionfTMsgDlgTypenf TMsgDlgBtnUaKPfTMsgDlgButtonsOofTWindowState}ceuConfig gfConfigneceuHelp gfHelphKc5uMain _c5System 5UITypes 5c5IniFiles c5Classes c5Variants c5SysUtils cc5SysInit tc5 GnuGettext vc5Windows ~c5Messages c5SysUtils c5Variants c5Classes c5Graphics c5Controls c5Forms uc5Dialogs ec5StdCtrls c5ExtCtrls c5ComCtrls c5Buttons c5uTools c5uTomcat Ec5uApache ]c5uMySQL uc5 uFileZilla c5uMercury c5uNetstat c5
uNetstatTable c5Menus c5IniFiles c5AppEvnts c5ImgList c5JCLDebug
c5 JCLSysInfo c5uProcesses_new )c&.TfMain
X *TfMain *NZ fMain 8NZ7.2F \ 5uConfig Mc5uHelp Uc(TfMain.bApacheServiceClick = ^Z!Self Z!Sender oldIsService .f . P . T . .
|