Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # ¤@ w¹â6×0ù ComMain <r WindowsXP.res Pn3rComMain.DFMl 95pComMain.pasm 95 dSystem fTObject|ê®ìf |
2 | AnsiString¶+{fstring¶+{gTObject.Dispatchµ |
||
3 | ÄgTObject.NewInstance· |
||
4 | ÄgTObject.FreeInstance¸ |
||
5 | ÄfInteger fÂgExit fBooleanúef PAnsiCharu½RfLongBool;»ég @LStrCat3é`pÅg @LStrCatNé`pÅg@LStrToPChar$ÉÇg @LStrArrayClrüg@HandleFinallyé`pÅfTextFiles¾g |
||
6 | AssignFile g@AssignA#°ÀgReset g |
||
7 | @ResetTextðË gReadln g@ReadLString¹g@ReadLnÈg CloseFile g@CloseðË gRewrite g@RewritTextðË gAppend g@AppendðË gWriteln g@Write0LStringµTg@WriteLnÔ|| g@LStrAddRef`Eg@_IOTesté`pÅg @LStrLAsgÔgSeekEof g@SeekEof¥n³g@LStrCmpé`pÅgInc gParamStrrÅögTObject.Create¡ |
||
8 | Äg@LStrAsgÔgTObject.Free¢ |
||
9 | ÄfPCharu½Rg@LStrClr\ª«>cdSysInit cdWindows g |
||
10 | DeleteFile2å7cdMessages cdSysUtils gDirectoryExists'h'&g CreateDir'h'&g |
||
11 | FileExists'h'&gIntToStrñF¬g |
||
12 | DeleteFile'h';Z4@gStrToIntrÅögExtractFilePathÓ¢}GcdClasses gTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqfTStringsefTStringListôkPg.TStringList×dI¢cdGraphics cdControls gTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint<¾ßgTWinControl.SetBounds<¾ßgTWinControl.Update<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTWinControl.GetHandle;¾ßcdForms fTForm!³5fTCloseAction¿¬þg.TFormTgTCustomForm.AlignControls~C)gTCustomForm.CreateParams~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocus~C)gTCustomForm.SetFocusedControl~C)gTCustomForm.ShowModal~C)gTCustomForm.WantChildKey~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅcdDialogs g |
||
13 | MessageDlgãn~fTMsgDlgType²ÇnÇgmtError.qlZf |
||
14 | TMsgDlgBtn>aKPgmbOK½ |
||
15 | IãcdStdCtrls fTButtonä«IÝfTLabelÝ^Lf TComboBoxµ;g.TButtonÇ'/g.TLabelÀ2*Òg |
||
16 | .TComboBoxn÷cdGauges cdShellAPI gShellExecuteÙcdExtCtrls fTBevel£È¢Zg.TBevel¬cdComCtrls fTProgressBar×/fñg .TProgressBarºDCgTProgressBar.SetPosition P{gTProgressBar.GetPositionP{c5ComMain _¸Ïc5System c5SysInit bc5Windows dc5Messages hc5SysUtils jc5Classes zc5Graphics c5Controls c5Forms Êc5Dialogs 9c5StdCtrls Qc5Gauges mc5ShellAPI qc5ExtCtrls yc5ComCtrls c& |
||
17 | .TMainForm ì* * TMainForm !©Ê, MainFormæ /~ÂÊ,D mæ +J&.F7.2F 0 (TMainForm.RunClick O8¾b 12,!Self ,!Sender i . 4 |
||
18 | . |
||
19 |