| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Unit1.pas |
|---|
| File deleted |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Project1.cfg |
|---|
| File deleted |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Unit1.dfm |
|---|
| File deleted |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Project1.dof |
|---|
| File deleted |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Unit1.ddp |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Deleted: svn:mime-type |
| -application/octet-stream |
| \ No newline at end of property |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/BitBucketReader.dpr |
|---|
| 2,7 → 2,7 |
| uses |
| Forms, |
| Unit1 in 'Unit1.pas' {Form1}, |
| Main in 'Main.pas' {MainForm}, |
| Functions in 'Functions.pas'; |
| {$R *.res} |
| 9,6 → 9,6 |
| begin |
| Application.Initialize; |
| Application.CreateForm(TForm1, Form1); |
| Application.CreateForm(TMainForm, MainForm); |
| Application.Run; |
| end. |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/BitBucketReader.dof |
|---|
| 0,0 → 1,83 |
| [FileVersion] |
| Version=6.0 |
| [Compiler] |
| A=8 |
| B=0 |
| C=1 |
| D=1 |
| E=0 |
| F=0 |
| G=1 |
| H=1 |
| I=1 |
| J=0 |
| K=0 |
| L=1 |
| M=0 |
| N=1 |
| O=1 |
| P=1 |
| Q=0 |
| R=0 |
| S=0 |
| T=0 |
| U=0 |
| V=1 |
| W=0 |
| X=1 |
| Y=1 |
| Z=1 |
| ShowHints=1 |
| ShowWarnings=1 |
| UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
| [Linker] |
| MapFile=0 |
| OutputObjs=0 |
| ConsoleApp=1 |
| DebugInfo=0 |
| RemoteSymbols=0 |
| MinStackSize=16384 |
| MaxStackSize=1048576 |
| ImageBase=4194304 |
| ExeDescription= |
| [Directories] |
| OutputDir= |
| UnitOutputDir= |
| PackageDLLOutputDir= |
| PackageDCPOutputDir= |
| SearchPath= |
| Packages= |
| Conditionals= |
| DebugSourceDirs= |
| UsePackages=0 |
| [Parameters] |
| RunParams= |
| HostApplication= |
| Launcher= |
| UseLauncher=0 |
| DebugCWD= |
| [Version Info] |
| IncludeVerInfo=0 |
| AutoIncBuild=0 |
| MajorVer=1 |
| MinorVer=0 |
| Release=0 |
| Build=0 |
| Debug=0 |
| PreRelease=0 |
| Special=0 |
| Private=0 |
| DLL=0 |
| Locale=1031 |
| CodePage=1252 |
| [Version Info Keys] |
| CompanyName= |
| FileDescription= |
| FileVersion=1.0.0.0 |
| InternalName= |
| LegalCopyright= |
| LegalTrademarks= |
| OriginalFilename= |
| ProductName= |
| ProductVersion=1.0.0.0 |
| Comments= |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Main.pas |
|---|
| 0,0 → 1,80 |
| unit Main; |
| interface |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, registry, ExtCtrls; |
| type |
| TMainForm = class(TForm) |
| Memo1: TMemo; |
| Timer1: TTimer; |
| Memo2: TMemo; |
| Splitter1: TSplitter; |
| procedure Timer1Timer(Sender: TObject); |
| private |
| procedure GetDump; |
| end; |
| var |
| MainForm: TMainForm; |
| implementation |
| {$R *.dfm} |
| uses |
| Functions; |
| procedure TMainForm.GetDump; |
| var |
| reg: tregistry; |
| i: integer; |
| oldr, r: string; |
| lw: char; |
| begin |
| reg := tregistry.create; |
| try |
| reg.RootKey := HKEY_LOCAL_MACHINE; |
| if reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\BitBucket') then |
| begin |
| oldr := memo1.text; |
| if reg.ValueExists('PurgeInfo') then |
| r := 'PurgeInfo = ' + BinaryStringToHexDump(RegistryReadDump(reg, 'PurgeInfo')) |
| else |
| r := 'No PurgeInfo'; |
| for lw := 'A' to 'Z' do |
| begin |
| if reg.ValueExists(lw) then |
| begin |
| r := r + #13#10#13#10 + lw + ' = ' + BinaryStringToHexDump(RegistryReadDump(reg, lw)); |
| end; |
| end; |
| if oldr <> '' then |
| begin |
| for i := 1 to length(oldr) do |
| begin |
| if oldr[i] <> r[i] then |
| memo2.Lines.Add(inttostr(i)+': '+oldr[i]+' -> '+r[i]); |
| end; |
| end; |
| memo1.Text := r; |
| reg.CloseKey; |
| end; |
| finally |
| reg.free; |
| end; |
| end; |
| procedure TMainForm.Timer1Timer(Sender: TObject); |
| begin |
| GetDump; |
| end; |
| end. |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Main.dfm |
|---|
| 0,0 → 1,56 |
| object MainForm: TMainForm |
| Left = 204 |
| Top = 143 |
| Width = 659 |
| Height = 485 |
| Caption = 'BitBucket Reader' |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -11 |
| Font.Name = 'MS Sans Serif' |
| Font.Style = [] |
| OldCreateOrder = False |
| PixelsPerInch = 96 |
| TextHeight = 13 |
| object Splitter1: TSplitter |
| Left = 0 |
| Top = 253 |
| Width = 651 |
| Height = 4 |
| Cursor = crVSplit |
| Align = alBottom |
| end |
| object Memo1: TMemo |
| Left = 0 |
| Top = 0 |
| Width = 651 |
| Height = 253 |
| Align = alClient |
| Font.Charset = ANSI_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -20 |
| Font.Name = 'Courier' |
| Font.Style = [] |
| ParentFont = False |
| ReadOnly = True |
| ScrollBars = ssVertical |
| TabOrder = 0 |
| end |
| object Memo2: TMemo |
| Left = 0 |
| Top = 257 |
| Width = 651 |
| Height = 201 |
| Align = alBottom |
| ReadOnly = True |
| ScrollBars = ssVertical |
| TabOrder = 1 |
| end |
| object Timer1: TTimer |
| Interval = 300 |
| OnTimer = Timer1Timer |
| Left = 16 |
| Top = 16 |
| end |
| end |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/Main.ddp |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |
| Property changes: |
| Added: svn:mime-type |
| +application/octet-stream |
| \ No newline at end of property |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/BitBucketReader.cfg |
|---|
| 0,0 → 1,35 |
| -$A8 |
| -$B- |
| -$C+ |
| -$D+ |
| -$E- |
| -$F- |
| -$G+ |
| -$H+ |
| -$I+ |
| -$J- |
| -$K- |
| -$L+ |
| -$M- |
| -$N+ |
| -$O+ |
| -$P+ |
| -$Q- |
| -$R- |
| -$S- |
| -$T- |
| -$U- |
| -$V+ |
| -$W- |
| -$X+ |
| -$YD |
| -$Z1 |
| -cg |
| -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
| -H+ |
| -W+ |
| -M |
| -$M16384,1048576 |
| -K$00400000 |
| -LE"e:\borland software\borland\delphi6\Projects\Bpl" |
| -LN"e:\borland software\borland\delphi6\Projects\Bpl" |
| /trunk/Recycle Bin Unit/Windows 95 Bit Bucket Reader/BitBucketReader.exe |
|---|
| Cannot display: file marked as a binary type. |
| svn:mime-type = application/octet-stream |