Parent Directory | Revision Log
move delphiscanner to seperate dir
1 | E {_~F# Main? <rMain.dfm{pFpMain.pasu_~F dSystem f UnicodeStringO]fstringO]fInteger ffBooleanefTDateXfPCharf TDateTimekKSfChari?1f PWideCharfTObject<(gTObject.Equals\gTObject.GetHashCode\gTObject.ToString\gTObject.Dispatch\gTObject.NewInstance\gTObject.FreeInstance\fCardinalIKfByteg @UStrCatN`pg @UStrArrayClrg@HandleFinally`pgCopy g @UStrCopy%E g@UStrAddRefIg @UStrCat3 g@UStrClr\>gTruevɚgFalsesɚgLength g@DynArrayLength`pf |
2 | WideString䠝g |
3 | @UStrEqual`pg@UStrAsgB,g @WStrFromUStraWeg |
4 | @WStrEqual`pg@UStrCatB,g @WStrArrayClrgChr gParamStro>g SetLength g@UStrLeno>GDgExit gTObject.Free\fPLongintˊg@HandleAnyException`pg@DoneExcept`pg@DynArraySetLength`pg @UStrToPWCharg@TryFinallyExit`pg @UStrLAsgB,fExtendedEgVal g@ValExt`pgPosFqgPosPg @CallDynaInst`pg@HandleOnException`pg@UStrFromWCharV>g @UStrFromWStrg |
5 | @IntfClear-\g@RaiseExcept`pg@EnsureUnicodeStringF$lџ| |
6 | (fPointerfPWord!fWordNf |
7 | AnsiStringajbg@InternalUStrFromLStrFM gConcat gInc fLongBool;g@InitializeRecord9Y:g@FinalizeRecord9Y:gDec gPred gHigh g @DynArrayHigh`pgSucc gBreak g@DynArrayClearaXgOdd g@AsClassΉgGetMem g@GetMem+gFreeMem g@FreeMem+gStr g @Str0Longmg@UStrFromStringCf |
8 | OleVariant&YGg@FinalizeArray*g@UStrCmp`pgDelete g@UStrDelete~{fTextFilesg |
9 | AssignFile g@Assign |
10 | gReset g |
11 | @ResetText]gEof g@EofTexti gReadln g@ReadUStringag@ReadLn`g CloseFile g@Close]g@_IOTest`pgAppend g@Append]gWriteln g@Write0UStringQg@WriteLnbgRewrite g@RewritText]gAssigned gAllocMem5qg@UStrFromPWChar{cdSysInit g HInstanceW6KcdWindows fTHandleIKf TFileTimefTRectuf _FILETIMEfTOwnerDrawStatekNg GetRValueu|Cg GetGValueu|C אg GetBValueu|Cp^}gRGB-")VfTSystemTimeggFileTimeToLocalFileTimetNgFileTimeToSystemTime*f_WIN32_FIND_DATAW&yg |
12 | DeleteFile%g |
13 | MessageBoxҿgMB_OK}1f:1EXg |
14 | odSelected}gFillRectnJg SW_SHOWNORMAL}1fDWORDIKgGetFileVersionInfoSize^#gGetFileVersionInfoSag VerQueryValuep4gHiWordCޱU-fPVSFixedFileInfoʣftagVS_FIXEDFILEINFO(\fLOWORDNgHKEY_LOCAL_MACHINEy^fHRGNIKgCreateRoundRectRgnnXfLPARAM fgInflateRectCgSetWindowRgn*cdMessages g |
15 | EM_GETRECTB1gEM_SETRECTNPH1cdSysUtils gIntToHex8rgStrToIntެ |
16 | g StringReplace{2>f:55-XgrfReplaceAll.grfIgnoreCase.gDirectoryExists$g ChangeFileExtAgFormatDateTimeZGRpgNowkgFormat gTrimYLg |
17 | FileExists$gDateTimeToStringzQf ExceptionK |
18 | إg |
19 | .Exception.gExtractFileNameYLgIntToStrXzgException.CreateFmt}*=g TimeToStrT6PgLongTimeFormat]wgSystemTimeToDateTimef |
20 | TSearchRecg FindFirstg faAnyFile*1gfaDirectory}1gFileDateToDateTimeczg |
21 | DeleteFile$w gFindNext'g FindCloseWg GetModuleNameRgStrToIntDef4g GetCurrentDirsrgg CreateDir$g StrToDateTimeT6ZgLongDayNamesA$cg DayOfWeekTdgRaiseLastWin32Error`pgIntToStr`!Dg LowerCase[cdVariants g VarIsNull?g@OleVarFromInt?/Vg |
22 | @VarToUStrf-g@VarClrcdClasses fTStringsgTComponent.UpdateRegistrycgTComponent.WriteStatecgTComponent.SafeCallExceptioncgTComponent.UpdateActioncgTPersistent.AssignfTStringListᧅg.TStringList{cgTStringList.Create Ț,gTStrings.GetValueԱRgTStrings.SetValueٱRcdGraphics fTColorIcg clBtnFacea6fTFontH}gTFont.SetColorhgclWindowTextڋa6gclWhitea<gclGreenc9gclInactiveCaptionˋa6gclReda9fTCanvas35g TFont.SetSizehfTBrushEBSg.TBrush(g TBrush.CreatetbgclSilverΣ;gclBlacka9gTBrush.SetStylesbfTBrushStylewgbsSolid5!gTBrush.SetColorobgTCanvas.GetHandleTJcgTBrush.GetHandlepbgbsClear8!f TCustomCanvasqgTCustomCanvas.TextWidth<rcdControls fTWinControl<Z9gTWinControl.AssignToogTWinControl.CanAutoSizeogTWinControl.CanResizeogTWinControl.ConstrainedResizeogTWinControl.CreateHandleog#TWinControl.CustomAlignInsertBefore!ogTWinControl.CustomAlignPosition"ogTWinControl.DestroyWnd&og!TWinControl.DockReplaceDockClient)ogTWinControl.GetClientOrigin6ogTWinControl.GetControlExtents8ogTWinControl.GetDeviceContext9ogTWinControl.SetParentBackgroundYog#TWinControl.SetParentDoubleBufferedZogTWinControl.ShowControl\og+TWinControl.UpdateControlOriginalParentSize^ogTWinControl.InvalidateogTWinControl.RepaintogTWinControl.SetBoundsogTWinControl.UpdateogTControl.CreateTouchManagerKgTControl.GetActionŏKgTControl.GetEnabledˏKg!TControl.GetFloatingDockSiteClass͏KgTControl.SetAutoSizeᏡKgTControl.SetDragMode⏡KgTControl.SetEnabled㏡KgTControl.SetName䏡KgTControl.SetBiDiMode珡KgTControl.GetDragImagesKgTControl.InitiateAction*KgTControl.SetTextKgTControl.SetColor[KgTControl.SetVisiblelKfTControlngTControl.BringToFrontKgTControl.GetTextKgTWinControl.GetHandleogmrOk}1gTControl.Perform0KcdForms fTFormfgTCustomForm.AlignControlsI\gTCustomForm.CreateParamsM\gTCustomForm.CreateWindowHandleN\gTCustomForm.CreateWndO\gTCustomForm.DefinePropertiesQ\gTCustomForm.DestroyHandleR\gTCustomForm.DestroyWindowHandleS\gTCustomForm.DoCreateU\gTCustomForm.DoDestroyV\gTCustomForm.GetClientRect[\gTCustomForm.GetFloating\\gTCustomForm.Loaded`\gTCustomForm.Notificationa\gTCustomForm.PaintWindowc\gTCustomForm.ReadStatee\gTCustomForm.RequestAlignf\gTCustomForm.SetParentBiDiModeh\gTCustomForm.SetParentj\gTCustomForm.UpdateActionsk\gTCustomForm.ValidateRenamem\gTCustomForm.WndProco\gTCustomForm.Resizingp\gTCustomForm.QueryInterfacet\gTCustomForm.Create\gTCustomForm.CreateNew\gTCustomForm.Destroy\gTCustomForm.CloseQuery\gTCustomForm.DefaultHandler\gTCustomForm.SetFocus\gTCustomForm.SetFocusedControl\gTCustomForm.ShowModal\gTCustomForm.WantChildKey\gTCustomForm.AfterConstruction\gTCustomForm.BeforeDestruction\g%TScrollingWinControl.AdjustClientRectVg&TScrollingWinControl.AutoScrollEnabledVg%TScrollingWinControl.AutoScrollInViewVgTScrollingWinControl.DoGestureVg(TScrollingWinControl.DoGetGestureOptionsVg.TFormIgApplication~ffTApplicationMgTApplication.SetShowHint8bgTCustomForm.SetClientWidth\gTCustomForm.SetClientHeight\gTApplication.GetExeName}8bgTApplication.Terminate8bgTCustomForm.FocusControl\cdDialogs gShowMessageJg |
23 | InputQueryqNg |
24 | MessageDlg%0̟}RfTMsgDlgTypengmtConfirmation4qlZf |
25 | TMsgDlgBtnUaKPg |
26 | mbOKCancelK'fTMsgDlgButtonsOogMessageDlgPosHelpU+fTOpenDialogVxg.TOpenDialog*VdgTOpenDialog.CreatevgTOpenDialog.SetInitialDirvfTOpenOption)gofFileMustExistbgTOpenDialog.GetFileNamevcdStdCtrls fTStaticText#lf TCheckBoxEjbfTRadioButtonjfTButtonCfTListBox g.TStaticTextJ?g |
27 | .TCheckBox(>@g .TRadioButtonHg.TButton^=g .TListBoxf TCustomButton)fTCheckBoxStateZg cbChecked7gTCustomCheckBox.SetStateA3_gcbUnchecked7fTCustomListBox |
28 | wgTCustomListBox.SetScrollWidthc pg TCustomStaticText.SetTransparent"pDcdPrinters gPrinter7ufTPrintergTPrinter.GetPrinters7ugTPrinter.SetPrinterIndex7ugTPrinter.BeginDoc7ugTPrinter.GetCanvas7ugTPrinter.EndDoc7ugTPrinter.GetPrinter7ucdIdBaseComponent cdIdComponent cdIdTCPConnection gTIdTCPConnection.Disconnect@kcdIdTCPClient cdIdHTTP fTIdHTTP1g.TIdHTTPgTIdCustomHTTP.Getcdxmldom cdXMLIntf fIXMLNode9XfIXMLNodeListef TNodeTypeJlg ntElementivcdmsxmldom cdXMLDoc fTXMLDocument=Og .TXMLDocument xԡgTXMLDocument.LoadFromXMLgTXMLDocument.GetChildNodesgTXMLDocument.GetDocumentElementcdIniFiles fTIniFileEfTCustomIniFile"^gg .TIniFile(ygTCustomIniFile.CreateJ~cdAppEvnts fTApplicationEventsVsg.TApplicationEvents9hcdMenus f TMainMenu4f TMenuItemn_Zg |
29 | .TMainMenu;g |
30 | .TMenuItemQc=gTMenuItem.SetEnabledtgTMenuItem.SetCheckedtgTMenuItem.SetVisibletcdExtCtrls fTPanelqW"fTImage`[,fTTimer2g.TPanelT+ &g.TImageC/~g.TTimermcdComCtrls fTOwnerDrawStatekNcdStrUtils gRightStrBgRightStrKgLeftStrBgLeftStrKgPosEx\cdMMSystem gsndPlaySound5g SND_NODEFAULT}1g SND_ASYNC}1cd DateUtils gDaysBetweengIncDayW0igcdIdExplicitTLSClientServerBase cdIdFTP fTIdFTPjӲg.TIdFTPMSgTIdFTP.SetPassiveǙg |
31 | TIdFTP.GetǙgTIdFTP.ChangeDirǙg |
32 | TIdFTP.Put/Ǚcdpngimage cdGIFImg cdIdException fEIdConnClosedGracefullyg.EIdConnClosedGracefullyv#cdWinSpool gOpenPrinter{f |
33 | JOB_INFO_1f_JOB_INFO_1WgEnumJobsVhgClosePrinterBcdRegistry f TRegistry g |
34 | .TRegistryZgTRegistry.Create6UgTRegistry.SetRootKey,UgTRegistry.KeyExistsEUcdShellAPI gShellExecute{cdClipbrd g Clipboard*(f |
35 | TClipboardnwgTClipboard.GetAsText5(cdButtons cdWinInet f HINTERNETgInternetOpen7gINTERNET_OPEN_TYPE_PRECONFIG}1gInternetOpenUrlJ_dgINTERNET_FLAG_RELOADԍrbg HttpQueryInfoa}gHTTP_QUERY_STATUS_CODE}1gInternetCloseHandledGVcdTypes fTRectuc5Main _c5System c5SysInit c5Windows c5Messages qc5SysUtils }c5Variants !c5Classes 5c5Graphics ec5Controls c5Forms uc5Dialogs =c5StdCtrls c5Printers c5IdBaseComponent c5IdComponent c5IdTCPConnection c5IdTCPClient c5IdHTTP c5xmldom c5XMLIntf c5msxmldom -c5XMLDoc 1c5IniFiles Ic5AppEvnts ]c5Menus ic5ExtCtrls c5ComCtrls c5StrUtils c5MMSystem c5 DateUtils c5IdExplicitTLSClientServerBase c5IdFTP c5pngimage c5GIFImg c5IdException c5Winspool c5Registry -c5ShellApi Ec5ClipBrd Mc5Buttons ]c5wininet ac* TStrArray o* :TMainForm.:1 9 * :TMainForm.:2 = & |
36 | .TMainForm d * TMainForm MainForm / ruteHverdagArray v*:2 @] ruteLordagArray v*:3 @] ruteArray v!*:4 @] korelisteArray v%*:5 @] stregkoderMedTjekkodeArray v)*:6 @]7.7F (TMainForm.TColorToHex *2 i!Self !Color T#Result |
37 | cy (TMainForm.HexToTColor *2 AT!Self !sColorf Result T . .f . . c (TMainForm.InitForm *2 A)ƴ!Self !Farvef !Titelf !Urlf c (%TMainForm.Altidprintepakkelabel1Click ,*2 \ƴ!Self !Sender c ( TMainForm.ApplicationEvents1Idle *2 $ƴ!Self !Sender "Done c ()TMainForm.Automatisktjekkodestyring1Click 5*2 ƴ!Self !Sender c (TMainForm.Automatiskvalg1Click 7*2 jƴ!Self !Sender c (TMainForm.FormCreate *2 ƴ!Selff !Sender %crlf |
38 |