/trunk/Build-Res.bat |
---|
1,6 → 1,8 |
brc32 Quelltext\Coder.rc |
brc32 Quelltext\Activator.rc |
brc32 Quelltext\ShlExt.rc |
brc32 Quelltext\ShlErase.rc |
brc32 Quelltext\SecureMoveExt.rc |
pause |
@echo off |
cd /d %~dp0 |
brcc32 Quelltext\Coder.rc |
brcc32 Quelltext\Activator.rc |
brcc32 Quelltext\ShlExt.rc |
brcc32 Quelltext\ShlErase.rc |
brcc32 Quelltext\SecureMoveExt.rc |
pause. |
/trunk/INCLUDES/base64.pas |
---|
75,7 → 75,7 |
{$ENDIF} |
uses SysUtils; |
uses AnsiStrings, SysUtils; |
// codiert einen String in die zugehörige Base64-Darstellung |
function Base64Encode(const InText: AnsiString): AnsiString; overload; |
115,12 → 115,12 |
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'; |
Base64Filler = '='; |
function Base64Encode(const InText: string): string; overload; |
function Base64Encode(const InText: AnsiString): AnsiString; overload; |
begin |
Base64Encode(InText, Result); |
end; |
function Base64Decode(const InText: string): string; overload; |
function Base64Decode(const InText: AnsiString): AnsiString; overload; |
begin |
Base64Decode(InText, Result); |
end; |
498,7 → 498,7 |
// calculate size for destination |
OutSize := CalcEncodedSize(InSize); |
// reserve memory |
OutText := StrAlloc(Succ(OutSize)); |
OutText := AnsiStrAlloc(Succ(OutSize)); |
OutText[OutSize] := #0; |
// encode ! |
Base64Encode(InText, InSize, OutText); |
532,7 → 532,7 |
// calculate size for destination |
OutSize := CalcDecodedSize(InText, InSize); |
// reserve memory |
OutText := StrAlloc(Succ(OutSize)); |
OutText := AnsiStrAlloc(Succ(OutSize)); |
OutText[OutSize] := #0; |
// encode ! |
{$IFDEF SpeedDecode} |
/trunk/INCLUDES |
---|
Property changes: |
Added: svn:global-ignores |
+__history |
+*.dcu |
/trunk/Quelltext/Activator.dproj |
---|
3,26 → 3,147 |
<ProjectGuid>{14cd9141-d204-4e28-bfbf-98c371c80f2c}</ProjectGuid> |
<MainSource>Activator.dpr</MainSource> |
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> |
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> |
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> |
<DCC_DependencyCheckOutputName>Activator.exe</DCC_DependencyCheckOutputName> |
<FrameworkType>None</FrameworkType> |
<ProjectVersion>19.5</ProjectVersion> |
<Base>True</Base> |
<Config Condition="'$(Config)'==''">Debug</Config> |
<Platform Condition="'$(Platform)'==''">Win32</Platform> |
<TargetedPlatforms>1</TargetedPlatforms> |
<AppType>Console</AppType> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> |
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''"> |
<Base_Android>true</Base_Android> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='iOSDevice32' and '$(Base)'=='true') or '$(Base_iOSDevice32)'!=''"> |
<Base_iOSDevice32>true</Base_iOSDevice32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''"> |
<Base_iOSDevice64>true</Base_iOSDevice64> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''"> |
<Base_iOSSimulator>true</Base_iOSSimulator> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> |
<Base_Win32>true</Base_Win32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''"> |
<Base_Win64>true</Base_Win64> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> |
<Cfg_1>true</Cfg_1> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
<Cfg_2>true</Cfg_2> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base)'!=''"> |
<SanitizedProjectName>Activator</SanitizedProjectName> |
<VerInfo_Locale>1031</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> |
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace> |
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon> |
<Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Android)'!=''"> |
<Android_LauncherIcon36>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36> |
<Android_LauncherIcon48>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48> |
<Android_LauncherIcon72>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72> |
<Android_LauncherIcon96>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96> |
<Android_LauncherIcon144>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144> |
<Android_SplashImage426>$(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png</Android_SplashImage426> |
<Android_SplashImage470>$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png</Android_SplashImage470> |
<Android_SplashImage640>$(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png</Android_SplashImage640> |
<Android_SplashImage960>$(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png</Android_SplashImage960> |
<AUP_ACCESS_COARSE_LOCATION>true</AUP_ACCESS_COARSE_LOCATION> |
<AUP_ACCESS_FINE_LOCATION>true</AUP_ACCESS_FINE_LOCATION> |
<AUP_CALL_PHONE>true</AUP_CALL_PHONE> |
<AUP_CAMERA>true</AUP_CAMERA> |
<AUP_INTERNET>true</AUP_INTERNET> |
<AUP_READ_CALENDAR>true</AUP_READ_CALENDAR> |
<AUP_READ_EXTERNAL_STORAGE>true</AUP_READ_EXTERNAL_STORAGE> |
<AUP_WRITE_CALENDAR>true</AUP_WRITE_CALENDAR> |
<AUP_WRITE_EXTERNAL_STORAGE>true</AUP_WRITE_EXTERNAL_STORAGE> |
<AUP_READ_PHONE_STATE>true</AUP_READ_PHONE_STATE> |
<Android_NotificationIcon24>$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png</Android_NotificationIcon24> |
<Android_NotificationIcon36>$(BDS)\bin\Artwork\Android\FM_NotificationIcon_36x36.png</Android_NotificationIcon36> |
<Android_NotificationIcon48>$(BDS)\bin\Artwork\Android\FM_NotificationIcon_48x48.png</Android_NotificationIcon48> |
<Android_NotificationIcon72>$(BDS)\bin\Artwork\Android\FM_NotificationIcon_72x72.png</Android_NotificationIcon72> |
<Android_NotificationIcon96>$(BDS)\bin\Artwork\Android\FM_NotificationIcon_96x96.png</Android_NotificationIcon96> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_iOSDevice32)'!=''"> |
<iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120> |
<iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80> |
<iPhone_Notification40>$(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png</iPhone_Notification40> |
<iPhone_Notification60>$(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png</iPhone_Notification60> |
<iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80> |
<iPad_Notification40>$(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png</iPad_Notification40> |
<iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''"> |
<iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120> |
<iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80> |
<iPhone_Notification40>$(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png</iPhone_Notification40> |
<iPhone_Notification60>$(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png</iPhone_Notification60> |
<iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80> |
<iPad_Notification40>$(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png</iPad_Notification40> |
<iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_iOSSimulator)'!=''"> |
<iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120> |
<iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80> |
<iPhone_Notification40>$(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png</iPhone_Notification40> |
<iPhone_Notification60>$(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png</iPhone_Notification60> |
<iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80> |
<iPad_Notification40>$(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png</iPad_Notification40> |
<iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win32)'!=''"> |
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> |
<BT_BuildType>Debug</BT_BuildType> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
<VerInfo_Locale>1033</VerInfo_Locale> |
<Icon_MainIcon>Activator_Icon.ico</Icon_MainIcon> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win64)'!=''"> |
<Icon_MainIcon>Activator_Icon.ico</Icon_MainIcon> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1)'!=''"> |
<Version>7.0</Version> |
<DCC_DebugInformation>False</DCC_DebugInformation> |
<DCC_DebugInformation>0</DCC_DebugInformation> |
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> |
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> |
<DCC_Define>RELEASE</DCC_Define> |
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> |
<PropertyGroup Condition="'$(Cfg_2)'!=''"> |
<Version>7.0</Version> |
<DCC_Define>DEBUG</DCC_Define> |
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<ProjectExtensions> |
<Borland.Personality>Delphi.Personality</Borland.Personality> |
<Borland.Personality>Delphi.Personality.12</Borland.Personality> |
<Borland.ProjectType /> |
<BorlandProject> |
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> |
<Delphi.Personality> |
<Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters> |
43,27 → 164,52 |
<VersionInfo Name="CodePage">1252</VersionInfo> |
</VersionInfo> |
<VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"/> |
<VersionInfoKeys Name="FileDescription"/> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"/> |
<VersionInfoKeys Name="LegalCopyright"/> |
<VersionInfoKeys Name="LegalTrademarks"/> |
<VersionInfoKeys Name="OriginalFilename"/> |
<VersionInfoKeys Name="ProductName"/> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
<VersionInfoKeys Name="Comments"/> |
</VersionInfoKeys> |
<Source> |
<Source Name="MainSource">Activator.dpr</Source> |
</Source> |
</Delphi.Personality> </BorlandProject></BorlandProject> |
</Delphi.Personality> |
<Platforms> |
<Platform value="Android">False</Platform> |
<Platform value="iOSDevice32">False</Platform> |
<Platform value="iOSDevice64">False</Platform> |
<Platform value="iOSSimulator">False</Platform> |
<Platform value="Linux64">False</Platform> |
<Platform value="OSX32">False</Platform> |
<Platform value="Win32">True</Platform> |
<Platform value="Win64">False</Platform> |
</Platforms> |
</BorlandProject> |
<ProjectFileVersion>12</ProjectFileVersion> |
</ProjectExtensions> |
<ItemGroup /> |
<ItemGroup> |
<DelphiCompile Include="Activator.dpr"> |
<DelphiCompile Include="$(MainSource)"> |
<MainSource>MainSource</MainSource> |
</DelphiCompile> |
<BuildConfiguration Include="Base"> |
<Key>Base</Key> |
</BuildConfiguration> |
<BuildConfiguration Include="Release"> |
<Key>Cfg_1</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
<BuildConfiguration Include="Debug"> |
<Key>Cfg_2</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
</ItemGroup> |
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
</Project> |
<ItemGroup/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> |
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> |
</Project> |
/trunk/Quelltext/Activator_Icon.ico |
---|
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/Quelltext/Coder.dproj |
---|
3,40 → 3,123 |
<ProjectGuid>{330de6b7-a3d3-4ba5-8a58-a9c03f32cc41}</ProjectGuid> |
<MainSource>Coder.dpr</MainSource> |
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> |
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> |
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> |
<DCC_DependencyCheckOutputName>Coder.exe</DCC_DependencyCheckOutputName> |
<FrameworkType>VCL</FrameworkType> |
<ProjectVersion>19.5</ProjectVersion> |
<Base>True</Base> |
<Config Condition="'$(Config)'==''">Debug</Config> |
<Platform Condition="'$(Platform)'==''">Win32</Platform> |
<TargetedPlatforms>1</TargetedPlatforms> |
<AppType>Application</AppType> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> |
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> |
<Base_Win32>true</Base_Win32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''"> |
<Base_Win64>true</Base_Win64> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> |
<Cfg_1>true</Cfg_1> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''"> |
<Cfg_1_Win32>true</Cfg_1_Win32> |
<CfgParent>Cfg_1</CfgParent> |
<Cfg_1>true</Cfg_1> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
<Cfg_2>true</Cfg_2> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> |
<Cfg_2_Win32>true</Cfg_2_Win32> |
<CfgParent>Cfg_2</CfgParent> |
<Cfg_2>true</Cfg_2> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base)'!=''"> |
<SanitizedProjectName>Coder</SanitizedProjectName> |
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;FireDAC.VCLUI;$(DCC_Namespace)</DCC_Namespace> |
<VerInfo_MajorVer>4</VerInfo_MajorVer> |
<VerInfo_MinorVer>1</VerInfo_MinorVer> |
<VerInfo_Locale>1031</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=(De)Coder 4.1;FileVersion=4.1.0.0;InternalName=DeCoder41;LegalCopyright=© Copyright 2001 - 2007 ViaThinkSoft;LegalTrademarks=Keine;OriginalFilename=Coder.exe;ProductName=(De)Coder;ProductVersion=4.1.0.0;Projektleiter=Daniel Marschall - www.daniel-marschall.de;Webseite=www.viathinksoft.de</VerInfo_Keys> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win32)'!=''"> |
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> |
<BT_BuildType>Debug</BT_BuildType> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
<VerInfo_Locale>1033</VerInfo_Locale> |
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> |
<Debugger_CWD>C:\Dokumente und Einstellungen\Daniel Marschall.NEW\Desktop\(De)Coder 4.1</Debugger_CWD> |
<Icon_MainIcon>Coder_Icon.ico</Icon_MainIcon> |
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> |
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150> |
<PreBuildEvent><![CDATA[..\Build-Res.bat |
$(PreBuildEvent)]]></PreBuildEvent> |
<VerInfo_MajorVer>1</VerInfo_MajorVer> |
<VerInfo_MinorVer>0</VerInfo_MinorVer> |
<AppDPIAwarenessMode>none</AppDPIAwarenessMode> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win64)'!=''"> |
<Icon_MainIcon>Coder_Icon.ico</Icon_MainIcon> |
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> |
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1)'!=''"> |
<Version>7.0</Version> |
<DCC_DebugInformation>False</DCC_DebugInformation> |
<DCC_DebugInformation>0</DCC_DebugInformation> |
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> |
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> |
<DCC_UnitSearchPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_IncludePath> |
<DCC_Define>RELEASE</DCC_Define> |
<DCC_UnitSearchPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_ResourcePath)</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_ObjPath)</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_IncludePath)</DCC_IncludePath> |
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> |
<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM> |
<DCC_BOUNDS_ERROR>False</DCC_BOUNDS_ERROR> |
<DCC_Description>(De)Coder 4.1</DCC_Description> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> |
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''"> |
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_2)'!=''"> |
<Version>7.0</Version> |
<DCC_UnitSearchPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES</DCC_IncludePath> |
<DCC_Define>DEBUG</DCC_Define> |
<DCC_UnitSearchPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_ResourcePath)</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_ObjPath)</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_KAZIP;..\VCL_DRAGDROP;..\VCL_DEC;..\INCLUDES;$(DCC_IncludePath)</DCC_IncludePath> |
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> |
<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM> |
<DCC_BOUNDS_ERROR>False</DCC_BOUNDS_ERROR> |
<DCC_Description>(De)Coder 4.1</DCC_Description> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> |
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_MajorVer>1</VerInfo_MajorVer> |
<VerInfo_MinorVer>0</VerInfo_MinorVer> |
<VerInfo_Locale>1033</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
</PropertyGroup> |
<ProjectExtensions> |
<Borland.Personality>Delphi.Personality</Borland.Personality> |
<Borland.Personality>Delphi.Personality.12</Borland.Personality> |
<Borland.ProjectType /> |
<BorlandProject> |
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> |
<Delphi.Personality> |
<Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="DebugCWD">C:\Dokumente und Einstellungen\Daniel Marschall.NEW\Desktop\(De)Coder 4.1</Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
71,50 → 154,69 |
<VersionInfoKeys Name="Webseite">www.viathinksoft.de</VersionInfoKeys> |
</VersionInfoKeys> |
<Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIndyProtocols100.bpl">Indy 10 Protocols Design Time</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart-Komponenten</Excluded_Packages> |
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k280.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages> |
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages> |
</Excluded_Packages> |
<Source> |
<Source Name="MainSource">Coder.dpr</Source> |
</Source> |
</Delphi.Personality> </BorlandProject></BorlandProject> |
</Delphi.Personality> |
<Platforms> |
<Platform value="Win32">True</Platform> |
<Platform value="Win64">False</Platform> |
</Platforms> |
</BorlandProject> |
<ProjectFileVersion>12</ProjectFileVersion> |
</ProjectExtensions> |
<ItemGroup /> |
<ItemGroup> |
<DelphiCompile Include="Coder.dpr"> |
<DelphiCompile Include="$(MainSource)"> |
<MainSource>MainSource</MainSource> |
</DelphiCompile> |
<DCCReference Include="About.pas"> |
<Form>AboutForm</Form> |
<DCCReference Include="Warten.pas"> |
<Form>WartenForm</Form> |
</DCCReference> |
<DCCReference Include="Main.pas"> |
<Form>MainForm</Form> |
</DCCReference> |
<DCCReference Include="Config.pas"> |
<Form>ConfigForm</Form> |
</DCCReference> |
<DCCReference Include="About.pas"> |
<Form>AboutForm</Form> |
</DCCReference> |
<DCCReference Include="Elemente.pas"> |
<Form>ElementeForm</Form> |
</DCCReference> |
<DCCReference Include="Main.pas"> |
<Form>MainForm</Form> |
</DCCReference> |
<DCCReference Include="Warten.pas"> |
<Form>WartenForm</Form> |
</DCCReference> |
<BuildConfiguration Include="Base"> |
<Key>Base</Key> |
</BuildConfiguration> |
<BuildConfiguration Include="Release"> |
<Key>Cfg_1</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
<BuildConfiguration Include="Debug"> |
<Key>Cfg_2</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
</ItemGroup> |
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
</Project> |
<ItemGroup/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> |
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> |
<PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win32'"> |
<PreBuildEvent>..\Build-Res.bat</PreBuildEvent> |
<PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode> |
<PreLinkEvent/> |
<PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode> |
<PostBuildEvent/> |
<PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win32'"> |
<PreBuildEvent>..\Build-Res.bat</PreBuildEvent> |
<PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode> |
<PreLinkEvent/> |
<PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode> |
<PostBuildEvent/> |
<PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode> |
</PropertyGroup> |
</Project> |
/trunk/Quelltext/Coder_Icon.ico |
---|
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/Quelltext/Main.dfm |
---|
4,8 → 4,8 |
BorderIcons = [biSystemMenu, biMinimize] |
BorderStyle = bsSingle |
Caption = '#' |
ClientHeight = 298 |
ClientWidth = 492 |
ClientHeight = 297 |
ClientWidth = 488 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
13,13 → 13,11 |
Font.Name = 'MS Sans Serif' |
Font.Style = [] |
Menu = mainmenu |
OldCreateOrder = False |
Position = poDesktopCenter |
Position = poScreenCenter |
OnClose = form_close |
OnCloseQuery = form_closequery |
OnCreate = form_create |
OnShow = form_show |
PixelsPerInch = 96 |
TextHeight = 13 |
object img_type: TImage |
Left = 8 |
318,9 → 316,6 |
Width = 169 |
Height = 25 |
Caption = '#' |
TabOrder = 8 |
Visible = False |
OnClick = m_encrypt_execute |
Glyph.Data = { |
F6000000424DF600000000000000760000002800000010000000100000000100 |
04000000000080000000120B0000120B00001000000000000000000000000000 |
330,6 → 325,9 |
7703330888800088880333077770007777033308888888888803333000000000 |
0033333308033308033333330803330803333333080333080333333377800087 |
7333333330888880333333333300000333333333333333333333} |
TabOrder = 8 |
Visible = False |
OnClick = m_encrypt_execute |
end |
object b_decrypt: TBitBtn |
Left = 304 |
337,9 → 335,6 |
Width = 169 |
Height = 25 |
Caption = '#' |
TabOrder = 7 |
Visible = False |
OnClick = m_decrypt_execute |
Glyph.Data = { |
F6000000424DF600000000000000760000002800000010000000100000000100 |
04000000000080000000120B0000120B00001000000000000000000000000000 |
349,6 → 344,9 |
770333088880008888033307777000777703B3088888888888033B3000000000 |
003333BBBB3333080333BBBB707BB308033333BB0803330803333B3B08033308 |
0333B33B778000877333333B308888803333333B330000033333} |
TabOrder = 7 |
Visible = False |
OnClick = m_decrypt_execute |
end |
object b_direct: TBitBtn |
Left = 128 |
356,9 → 354,6 |
Width = 169 |
Height = 25 |
Caption = '#' |
TabOrder = 6 |
Visible = False |
OnClick = m_direct_execute |
Glyph.Data = { |
36040000424D3604000000000000360000002800000010000000100000000100 |
2000000000000004000000000000000000000000000000000000FF00FF00FF00 |
394,6 → 389,9 |
FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF0000000000FF00 |
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00 |
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000} |
TabOrder = 6 |
Visible = False |
OnClick = m_direct_execute |
end |
object b_open: TBitBtn |
Left = 129 |
401,8 → 399,6 |
Width = 169 |
Height = 25 |
Caption = '#' |
TabOrder = 4 |
OnClick = m_open_execute |
Glyph.Data = { |
F6000000424DF600000000000000760000002800000010000000100000000100 |
04000000000080000000130B0000130B00001000000000000000000000000000 |
412,6 → 408,8 |
07333330F00F000F07333330FFFFFFFF0733BBB0F0000F0F0BB33BB0FFFFFFFF |
0BBB3330F00F000003333330FFFF0FF033333330F08F0F0B33333330FFFF003B |
B33333B000000333BB333BB3333BB3333BB3B333333B3333333B} |
TabOrder = 4 |
OnClick = m_open_execute |
end |
object b_folder: TBitBtn |
Left = 304 |
419,8 → 417,6 |
Width = 169 |
Height = 25 |
Caption = '#' |
TabOrder = 5 |
OnClick = m_folder_execute |
Glyph.Data = { |
36040000424D3604000000000000360000002800000010000000100000000100 |
2000000000000004000000000000000000000000000000000000FF00FF00FF00 |
456,6 → 452,8 |
00000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 |
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 |
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} |
TabOrder = 5 |
OnClick = m_folder_execute |
end |
object chk_compress: TCheckBox |
Left = 8 |
496,136 → 494,8 |
Top = 144 |
Bitmap = { |
494C010113001800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
0000000000003600000028000000400000006000000001002000000000000060 |
0000000000003600000028000000400000005000000001002000000000000050 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
00000000000000000000000000000000000000FFFF0000000000000000000000 |
000000000000000000000000000000FFFF000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
1266,12 → 1136,8 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
000000000000000000000000000000000000424D3E000000000000003E000000 |
2800000040000000600000000100010000000000000300000000000000000000 |
000000000000000000000000FFFFFF0000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000000000000000000000000000000000000000000000000000000000000000 |
00000000000000000000000000000000FF7EFFFFFFFF00009001FC00F7FF0000 |
2800000040000000500000000100010000000000800200000000000000000000 |
000000000000000000000000FFFFFF00FF7EFFFFFFFF00009001FC00F7FF0000 |
C003FC00F3FF0000E003FC00F1FF0000E003FC0000FF0000E003EC00000F0000 |
E003E400000700000001E000000300008000000000010000E0070001C0000000 |
E00F0003C00F0000E00F0007C00F0000E027000FC00F0000C073E3FFE3FF0000 |
/trunk/Quelltext/Main.pas |
---|
7,7 → 7,7 |
DECHash, DECCipher, registry, KAZip, shlobj, StdCtrls, math, |
shellapi, Buttons, ComCtrls, ExtCtrls, inifiles, DragDropFile, DragDrop, |
ImgList, base64, ZLib, wininet, OneInst, DCConst, Dialogs, |
Menus{, XPMenu}; |
Menus, System.ImageList{, XPMenu}; |
type |
TCase = (tcUnknown, tcEncrypted, tcDecrypted); |
302,7 → 302,7 |
while GetTickCount-nStart < nDelay do |
begin |
Application.ProcessMessages; |
Sleep(0); |
Sleep(10); |
end; |
end; |
592,10 → 592,10 |
// http://www.swissdelphicenter.ch/torry/showcode.php?id=144 |
function GetTempDir: string; |
var |
Buffer: array[0..MAX_PATH] of Char; |
tempFolder: array[0..MAX_PATH] of Char; |
begin |
GetTempPath(SizeOf(Buffer) - 1, Buffer); |
Result := StrPas(Buffer); |
GetTempPath(MAX_PATH, @tempFolder); |
result := StrPas(tempFolder); |
end; |
// http://www.delphipraxis.net/post50248.html |
623,7 → 623,7 |
function Differency: Extended; |
var |
S: String; |
S: AnsiString; |
L,I: Integer; |
begin |
Result := 0.0; |
639,7 → 639,7 |
const |
Table = '^1234567890ß´qwertzuiopü+asdfghjklöä#<yxcvbnm,.-°!"§$%&/()=?`QWERTZUIOPÜ*ASDFGHJKLÖÄ''>YXCVBNM;:_'; |
var |
S: String; |
S: AnsiString; |
L,I,J: Integer; |
begin |
Result := 0.0; |
650,7 → 650,7 |
for I := 1 to L do |
begin |
J := Pos(S[I], Table); |
if J > 0 then S[I] := Char(J); |
if J > 0 then S[I] := AnsiChar(J); |
end; |
for I := 2 to L do |
Byte(S[I-1]) := Byte(S[I-1]) - Byte(S[I]); |
/trunk/Quelltext/SecureMoveExt.dproj |
---|
3,34 → 3,74 |
<ProjectGuid>{281d38ce-12fe-4572-9616-b700222e76ca}</ProjectGuid> |
<MainSource>SecureMoveExt.dpr</MainSource> |
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> |
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> |
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> |
<DCC_DependencyCheckOutputName>SecureMoveExt.dll</DCC_DependencyCheckOutputName> |
<FrameworkType>None</FrameworkType> |
<ProjectVersion>19.5</ProjectVersion> |
<Base>True</Base> |
<Config Condition="'$(Config)'==''">Debug</Config> |
<Platform Condition="'$(Platform)'==''">Win32</Platform> |
<TargetedPlatforms>1</TargetedPlatforms> |
<AppType>Library</AppType> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> |
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> |
<Base_Win32>true</Base_Win32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> |
<Cfg_1>true</Cfg_1> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
<Cfg_2>true</Cfg_2> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base)'!=''"> |
<GenDll>true</GenDll> |
<SanitizedProjectName>SecureMoveExt</SanitizedProjectName> |
<VerInfo_Locale>1030</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> |
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;System.Win;Winapi;Vcl;$(DCC_Namespace)</DCC_Namespace> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win32)'!=''"> |
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> |
<BT_BuildType>Debug</BT_BuildType> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
<VerInfo_Locale>1033</VerInfo_Locale> |
<Debugger_HostApplication>c:\winnt\explorer.exe</Debugger_HostApplication> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1)'!=''"> |
<Version>7.0</Version> |
<DCC_DebugInformation>False</DCC_DebugInformation> |
<DCC_DebugInformation>0</DCC_DebugInformation> |
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> |
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> |
<DCC_UnitSearchPath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_IncludePath> |
<DCC_Define>RELEASE</DCC_Define> |
<DCC_UnitSearchPath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_ResourcePath)</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_ObjPath)</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_IncludePath)</DCC_IncludePath> |
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> |
<PropertyGroup Condition="'$(Cfg_2)'!=''"> |
<Version>7.0</Version> |
<DCC_UnitSearchPath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_DRAGDROP;..\VCL_DEC</DCC_IncludePath> |
<DCC_Define>DEBUG</DCC_Define> |
<DCC_UnitSearchPath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> |
<DCC_ResourcePath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_ResourcePath)</DCC_ResourcePath> |
<DCC_ObjPath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_ObjPath)</DCC_ObjPath> |
<DCC_IncludePath>..\VCL_DRAGDROP;..\VCL_DEC;$(DCC_IncludePath)</DCC_IncludePath> |
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<ProjectExtensions> |
<Borland.Personality>Delphi.Personality</Borland.Personality> |
<Borland.Personality>Delphi.Personality.12</Borland.Personality> |
<Borland.ProjectType>VCLApplication</Borland.ProjectType> |
<BorlandProject> |
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> |
<Delphi.Personality> |
<Parameters> |
<Parameters Name="HostApplication">c:\winnt\explorer.exe</Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
55,30 → 95,18 |
<VersionInfo Name="CodePage">1252</VersionInfo> |
</VersionInfo> |
<VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"/> |
<VersionInfoKeys Name="FileDescription"/> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"/> |
<VersionInfoKeys Name="LegalCopyright"/> |
<VersionInfoKeys Name="LegalTrademarks"/> |
<VersionInfoKeys Name="OriginalFilename"/> |
<VersionInfoKeys Name="ProductName"/> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
<VersionInfoKeys Name="Comments"/> |
</VersionInfoKeys> |
<Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages> |
<Excluded_Packages Name="c:\programme\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages> |
89,11 → 117,18 |
<Source> |
<Source Name="MainSource">SecureMoveExt.dpr</Source> |
</Source> |
</Delphi.Personality> </BorlandProject></BorlandProject> |
</Delphi.Personality> |
<Platforms> |
<Platform value="Linux64">False</Platform> |
<Platform value="OSX32">False</Platform> |
<Platform value="Win32">True</Platform> |
<Platform value="Win64">False</Platform> |
</Platforms> |
</BorlandProject> |
<ProjectFileVersion>12</ProjectFileVersion> |
</ProjectExtensions> |
<ItemGroup /> |
<ItemGroup> |
<DelphiCompile Include="SecureMoveExt.dpr"> |
<DelphiCompile Include="$(MainSource)"> |
<MainSource>MainSource</MainSource> |
</DelphiCompile> |
<DCCReference Include="SecureMoveMain.pas"> |
100,6 → 135,20 |
<Form>DataModuleDragDropHandler</Form> |
<DesignClass>TDataModule</DesignClass> |
</DCCReference> |
<BuildConfiguration Include="Base"> |
<Key>Base</Key> |
</BuildConfiguration> |
<BuildConfiguration Include="Release"> |
<Key>Cfg_1</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
<BuildConfiguration Include="Debug"> |
<Key>Cfg_2</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
</ItemGroup> |
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
</Project> |
<ItemGroup/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> |
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> |
</Project> |
/trunk/Quelltext/ShlErase.dproj |
---|
3,26 → 3,65 |
<ProjectGuid>{f49bfd49-fe0d-41d8-82ac-55b6fa8d9879}</ProjectGuid> |
<MainSource>ShlErase.dpr</MainSource> |
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> |
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> |
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> |
<DCC_DependencyCheckOutputName>ShlErase.dll</DCC_DependencyCheckOutputName> |
<FrameworkType>None</FrameworkType> |
<ProjectVersion>19.5</ProjectVersion> |
<Base>True</Base> |
<Config Condition="'$(Config)'==''">Debug</Config> |
<Platform Condition="'$(Platform)'==''">Win32</Platform> |
<TargetedPlatforms>1</TargetedPlatforms> |
<AppType>Library</AppType> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> |
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> |
<Base_Win32>true</Base_Win32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> |
<Cfg_1>true</Cfg_1> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
<Cfg_2>true</Cfg_2> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base)'!=''"> |
<GenDll>true</GenDll> |
<SanitizedProjectName>ShlErase</SanitizedProjectName> |
<VerInfo_Locale>1031</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> |
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win32)'!=''"> |
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> |
<BT_BuildType>Debug</BT_BuildType> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
<VerInfo_Locale>1033</VerInfo_Locale> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1)'!=''"> |
<Version>7.0</Version> |
<DCC_DebugInformation>False</DCC_DebugInformation> |
<DCC_DebugInformation>0</DCC_DebugInformation> |
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> |
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> |
<DCC_Define>RELEASE</DCC_Define> |
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> |
<PropertyGroup Condition="'$(Cfg_2)'!=''"> |
<Version>7.0</Version> |
<DCC_Define>DEBUG</DCC_Define> |
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<ProjectExtensions> |
<Borland.Personality>Delphi.Personality</Borland.Personality> |
<Borland.Personality>Delphi.Personality.12</Borland.Personality> |
<Borland.ProjectType /> |
<BorlandProject> |
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> |
<Delphi.Personality> |
<Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters> |
43,28 → 82,49 |
<VersionInfo Name="CodePage">1252</VersionInfo> |
</VersionInfo> |
<VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"/> |
<VersionInfoKeys Name="FileDescription"/> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"/> |
<VersionInfoKeys Name="LegalCopyright"/> |
<VersionInfoKeys Name="LegalTrademarks"/> |
<VersionInfoKeys Name="OriginalFilename"/> |
<VersionInfoKeys Name="ProductName"/> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
<VersionInfoKeys Name="Comments"/> |
</VersionInfoKeys> |
<Source> |
<Source Name="MainSource">ShlErase.dpr</Source> |
</Source> |
</Delphi.Personality> </BorlandProject></BorlandProject> |
</Delphi.Personality> |
<Platforms> |
<Platform value="Linux64">False</Platform> |
<Platform value="OSX32">False</Platform> |
<Platform value="Win32">True</Platform> |
<Platform value="Win64">False</Platform> |
</Platforms> |
</BorlandProject> |
<ProjectFileVersion>12</ProjectFileVersion> |
</ProjectExtensions> |
<ItemGroup /> |
<ItemGroup> |
<DelphiCompile Include="ShlErase.dpr"> |
<DelphiCompile Include="$(MainSource)"> |
<MainSource>MainSource</MainSource> |
</DelphiCompile> |
<DCCReference Include="ShellEraseMain.pas" /> |
<BuildConfiguration Include="Base"> |
<Key>Base</Key> |
</BuildConfiguration> |
<BuildConfiguration Include="Release"> |
<Key>Cfg_1</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
<BuildConfiguration Include="Debug"> |
<Key>Cfg_2</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
</ItemGroup> |
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
</Project> |
<ItemGroup/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> |
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> |
</Project> |
/trunk/Quelltext/ShlExt.dproj |
---|
1,28 → 1,67 |
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> |
<PropertyGroup> |
<ProjectGuid>{f49bfd49-fe0d-41d8-82ac-55b6fa8d9879}</ProjectGuid> |
<ProjectGuid>{3FEC48A6-CCE4-446A-A8B0-D872DBC4D9A4}</ProjectGuid> |
<MainSource>ShlExt.dpr</MainSource> |
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> |
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> |
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> |
<DCC_DependencyCheckOutputName>ShlExt.dll</DCC_DependencyCheckOutputName> |
<FrameworkType>None</FrameworkType> |
<ProjectVersion>19.5</ProjectVersion> |
<Base>True</Base> |
<Config Condition="'$(Config)'==''">Debug</Config> |
<Platform Condition="'$(Platform)'==''">Win32</Platform> |
<TargetedPlatforms>1</TargetedPlatforms> |
<AppType>Library</AppType> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> |
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> |
<Base_Win32>true</Base_Win32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> |
<Cfg_1>true</Cfg_1> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
<Cfg_2>true</Cfg_2> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base)'!=''"> |
<GenDll>true</GenDll> |
<SanitizedProjectName>ShlExt</SanitizedProjectName> |
<VerInfo_Locale>1031</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> |
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win32)'!=''"> |
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> |
<BT_BuildType>Debug</BT_BuildType> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
<VerInfo_Locale>1033</VerInfo_Locale> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1)'!=''"> |
<Version>7.0</Version> |
<DCC_DebugInformation>False</DCC_DebugInformation> |
<DCC_DebugInformation>0</DCC_DebugInformation> |
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> |
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> |
<DCC_Define>RELEASE</DCC_Define> |
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> |
<PropertyGroup Condition="'$(Cfg_2)'!=''"> |
<Version>7.0</Version> |
<DCC_Define>DEBUG</DCC_Define> |
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> |
</PropertyGroup> |
<ProjectExtensions> |
<Borland.Personality>Delphi.Personality</Borland.Personality> |
<Borland.Personality>Delphi.Personality.12</Borland.Personality> |
<Borland.ProjectType /> |
<BorlandProject> |
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> |
<Delphi.Personality> |
<Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters> |
43,28 → 82,49 |
<VersionInfo Name="CodePage">1252</VersionInfo> |
</VersionInfo> |
<VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"/> |
<VersionInfoKeys Name="FileDescription"/> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"/> |
<VersionInfoKeys Name="LegalCopyright"/> |
<VersionInfoKeys Name="LegalTrademarks"/> |
<VersionInfoKeys Name="OriginalFilename"/> |
<VersionInfoKeys Name="ProductName"/> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> |
<VersionInfoKeys Name="Comments"/> |
</VersionInfoKeys> |
<Source> |
<Source Name="MainSource">ShlExt.dpr</Source> |
</Source> |
</Delphi.Personality> </BorlandProject></BorlandProject> |
</Delphi.Personality> |
<Platforms> |
<Platform value="Linux64">False</Platform> |
<Platform value="OSX32">False</Platform> |
<Platform value="Win32">True</Platform> |
<Platform value="Win64">False</Platform> |
</Platforms> |
</BorlandProject> |
<ProjectFileVersion>12</ProjectFileVersion> |
</ProjectExtensions> |
<ItemGroup /> |
<ItemGroup> |
<DelphiCompile Include="ShlExt.dpr"> |
<DelphiCompile Include="$(MainSource)"> |
<MainSource>MainSource</MainSource> |
</DelphiCompile> |
<DCCReference Include="ShellExtMain.pas" /> |
<BuildConfiguration Include="Base"> |
<Key>Base</Key> |
</BuildConfiguration> |
<BuildConfiguration Include="Release"> |
<Key>Cfg_1</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
<BuildConfiguration Include="Debug"> |
<Key>Cfg_2</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
</ItemGroup> |
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
</Project> |
<ItemGroup/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> |
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> |
</Project> |
/trunk/Quelltext |
---|
Property changes: |
Added: svn:global-ignores |
+__history |
+*.dcu |
+__recovery |
+*.otares |
+*.local |
+*.identcache |
/trunk/TODO.txt |
---|
0,0 → 1,9 |
1. Make it Unicode and Win11 compatible. |
2. Avoid 4GB+ ZIP compression to avoid data loss |
3. Check where we have stopped development in 2007. Are there unfinished things? Anything we should change? Anything we should remove? |
Was there a "secure recycle bin delete" in the works? Do we really need so much shell extension crap? |
4. FormClose does a lot of access violations (especially while "/clean"). Something is not good with the code! |
/trunk/VCL_DEC/DECUtil.pas |
---|
113,7 → 113,7 |
resourcestring |
sClassNotRegistered = 'Class %s not registered'; |
sWrongIdentity = 'Another class "%s" with same identity as "%s" are allready registered.'; |
sWrongIdentity = 'Another class "%s" with same identity as "%s" are already registered.'; |
var |
FClasses: TList = nil; |
233,7 → 233,7 |
class function TDECObject.Identity: LongWord; |
var |
Signature: String; |
Signature: AnsiString; |
begin |
Signature := StringOfChar(#$5A, 256 - Length(Classname)) + AnsiUpperCase(ClassName); |
Result := CRC32(IdentityBase, Signature[1], Length(Signature)); |
735,13 → 735,13 |
{$ENDIF} |
{$IFDEF VER_D3H} |
procedure ModuleUnload(Instance: Integer); |
procedure ModuleUnload(Instance: NativeInt); |
var // automaticaly deregistration/releasing |
I: Integer; |
begin |
if IsObject(FClasses, TList) then |
for I := FClasses.Count -1 downto 0 do |
if Integer(FindClassHInstance(TClass(FClasses[I]))) = Instance then |
if NativeInt(FindClassHInstance(TClass(FClasses[I]))) = Instance then |
FClasses.Delete(I); |
end; |
/trunk/VCL_DEC |
---|
Property changes: |
Added: svn:global-ignores |
+__history |
+*.dcu |
/trunk/VCL_DRAGDROP/DragDropFormats.pas |
---|
113,8 → 113,8 |
//////////////////////////////////////////////////////////////////////////////// |
TFixedStreamAdapter = class(TStreamAdapter, IStream) |
public |
function CopyTo(stm: IStream; cb: Largeint; out cbRead: Largeint; |
out cbWritten: Largeint): HResult; override; stdcall; |
function CopyTo(stm: IStream; cb: LargeUInt; out cbRead: LargeUInt; |
out cbWritten: LargeUInt): HResult; override; stdcall; |
end; |
//////////////////////////////////////////////////////////////////////////////// |
959,14 → 959,14 |
// TFixedStreamAdapter |
// |
//////////////////////////////////////////////////////////////////////////////// |
function TFixedStreamAdapter.CopyTo(stm: IStream; cb: Largeint; out cbRead: Largeint; |
out cbWritten: Largeint): HResult; |
function TFixedStreamAdapter.CopyTo(stm: IStream; cb: LargeUInt; out cbRead: LargeUInt; |
out cbWritten: LargeUInt): HResult; |
const |
MaxBufSize = 1024 * 1024; // 1mb |
var |
Buffer: Pointer; |
BufSize, BurstReadSize, BurstWriteSize: Integer; |
BytesRead, BytesWritten, BurstWritten: LongInt; |
BufSize, BurstReadSize, BurstWriteSize: FixedUInt; |
BytesRead, BytesWritten, BurstWritten: FixedUInt; |
begin |
Result := S_OK; |
BytesRead := 0; |
1069,8 → 1069,8 |
var |
Buffer: pointer; |
Stream: IStream; |
Remaining: longInt; |
Chunk: longInt; |
Remaining: FixedUInt; |
Chunk: FixedUInt; |
pChunk: PChar; |
begin |
if (Size > 0) then |
1133,8 → 1133,8 |
var |
Stream: IStream; |
p: pointer; |
Remaining: longInt; |
Chunk: longInt; |
Remaining: FixedUInt; |
Chunk: FixedUInt; |
begin |
Result := (Buffer <> nil) and (Size > 0); |
if (Result) then |
1773,8 → 1773,8 |
Name: string; |
MemStream: TMemoryStream; |
StatStg: TStatStg; |
Size: longInt; |
Remaining: longInt; |
Size: FixedUInt; |
Remaining: FixedUInt; |
pChunk: PChar; |
begin |
Result := False; |
/trunk/VCL_DRAGDROP |
---|
Property changes: |
Added: svn:global-ignores |
+__history |
+*.dcu |
/trunk/VCL_KAZIP/BLOCKS~1.OBJ |
---|
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/VCL_KAZIP/BLOCKSORT.OBJ |
---|
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/VCL_KAZIP/BZIP2.PAS |
---|
142,10 → 142,10 |
implementation |
{$L blocks~1.obj} //blocksort |
{$L blocksort.obj} |
{$L huffman.obj} |
{$L compress.obj} |
{$L decomp~1.obj} //decompress |
{$L decompress.obj} |
{$L bzlib.obj} |
{ $L crctable.obj} |
{ $L randtable.obj} |
/trunk/VCL_KAZIP/KAZip.pas |
---|
149,6 → 149,8 |
function GetCentralEntrySize: Cardinal; |
procedure SetComment(const Value: String); |
procedure SetFileName(const Value: String); |
function GetFileName: String; |
function GetFileComment: String; |
protected |
{ Protected declarations } |
public |
163,8 → 165,8 |
procedure SaveToStream(Stream: TStream); |
Function Test:Boolean; |
Property FileName : String Read FCentralDirectoryFile.FileName Write SetFileName; |
Property Comment : String Read FCentralDirectoryFile.FileComment Write SetComment; |
Property FileName : String Read GetFileName Write SetFileName; |
Property Comment : String Read GetFileComment Write SetComment; |
Property SizeUncompressed : Cardinal Read FCentralDirectoryFile.UncompressedSize; |
Property SizeCompressed : Cardinal Read FCentralDirectoryFile.CompressedSize; |
Property Date : TDateTime Read FDate; |
676,6 → 678,16 |
Result := Result + Stream.Write(BA.CompressedData[1],SizeCompressed); |
end; |
function TKAZipEntriesEntry.GetFileComment: String; |
begin |
result := string(FCentralDirectoryFile.FileComment); |
end; |
function TKAZipEntriesEntry.GetFileName: String; |
begin |
result := string(FCentralDirectoryFile.FileName); |
end; |
function TKAZipEntriesEntry.GetCompressedData: String; |
Var |
BA : TLocalFile; |
/trunk/VCL_KAZIP |
---|
Property changes: |
Added: svn:global-ignores |
+__history |
+*.dcu |
/trunk |
---|
Property changes: |
Added: svn:global-ignores |
+*.local |