• R/O
  • SSH
  • HTTPS

akdf: Commit


Commit MetaInfo

Revisión419 (tree)
Tiempo2019-12-04 05:37:03
Autorderekwildstar

Log Message

Corrigidas as declarações de tipos existentes em KRK.Lib.Rtl.Win.Windows.pas. Para mais informações acesse https://www.zettaomnis.net.br/portal/a2d-mei/articles-a2d-mei/185-os-tipos-nativeint-e-nativeuint-aquempossainteressar.html
Removida a declaração de ULONG_PTR de KRK.Lib.Rtl.Win.NCrypt.pas
Removidos comentários desnecessários
Projetos para todos os Delphis criados

Cambiar Resumen

Diferencia

--- trunk/KRKLIB/PRJ/Delphi 10 (Delphi 2006)/KRKLib.bdsproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 10 (Delphi 2006)/KRKLib.bdsproj (revision 419)
@@ -1,169 +1,30 @@
1-<?xml version="1.0" encoding="utf-8"?>
1+<?xml version="1.0" encoding="utf-8"?>
22 <BorlandProject>
3- <PersonalityInfo>
4- <Option>
5- <Option Name="Personality">Delphi.Personality</Option>
6- <Option Name="GUID">{803D0121-59E9-45FD-BA3B-38DAB41CF326}</Option>
7- </Option>
8- </PersonalityInfo>
9- <Delphi.Personality>
10- <Source>
11- <Source Name="MainSource">KRKLib.dpk</Source>
12- </Source>
13- <Compiler>
14- <Compiler Name="UnitAliases"></Compiler>
15- <Compiler Name="NamespacePrefix"></Compiler>
16- <Compiler Name="DefaultNamespace"></Compiler> <Compiler Name="A">8</Compiler>
17- <Compiler Name="B">0</Compiler>
18- <Compiler Name="C">1</Compiler>
19- <Compiler Name="D">1</Compiler>
20- <Compiler Name="E">0</Compiler>
21- <Compiler Name="F">0</Compiler>
22- <Compiler Name="G">1</Compiler>
23- <Compiler Name="H">1</Compiler>
24- <Compiler Name="I">1</Compiler>
25- <Compiler Name="J">0</Compiler>
26- <Compiler Name="K">0</Compiler>
27- <Compiler Name="L">1</Compiler>
28- <Compiler Name="M">0</Compiler>
29- <Compiler Name="N">1</Compiler>
30- <Compiler Name="O">1</Compiler>
31- <Compiler Name="P">1</Compiler>
32- <Compiler Name="Q">0</Compiler>
33- <Compiler Name="R">0</Compiler>
34- <Compiler Name="S">0</Compiler>
35- <Compiler Name="T">0</Compiler>
36- <Compiler Name="U">0</Compiler>
37- <Compiler Name="V">1</Compiler>
38- <Compiler Name="W">0</Compiler>
39- <Compiler Name="X">1</Compiler>
40- <Compiler Name="Y">1</Compiler>
41- <Compiler Name="Z">1</Compiler>
42- <Compiler Name="ShowHints">True</Compiler>
43- <Compiler Name="ShowWarnings">True</Compiler>
44- <Compiler Name="GenerateDocumentation">False</Compiler>
45- <Compiler Name="SymbolDeprecated">True</Compiler>
46- <Compiler Name="SymbolLibrary">True</Compiler>
47- <Compiler Name="SymbolPlatform">True</Compiler>
48- <Compiler Name="SymbolExperimental">True</Compiler>
49- <Compiler Name="UnitLibrary">True</Compiler>
50- <Compiler Name="UnitPlatform">True</Compiler>
51- <Compiler Name="UnitDeprecated">True</Compiler>
52- <Compiler Name="UnitExperimental">True</Compiler>
53- <Compiler Name="HResultCompat">True</Compiler>
54- <Compiler Name="HidingMember">True</Compiler>
55- <Compiler Name="HiddenVirtual">True</Compiler>
56- <Compiler Name="Garbage">True</Compiler>
57- <Compiler Name="BoundsError">True</Compiler>
58- <Compiler Name="ZeroNilCompat">True</Compiler>
59- <Compiler Name="StringConstTruncated">True</Compiler>
60- <Compiler Name="ForLoopVarVarPar">True</Compiler>
61- <Compiler Name="TypedConstVarPar">True</Compiler>
62- <Compiler Name="AsgToTypedConst">True</Compiler>
63- <Compiler Name="CaseLabelRange">True</Compiler>
64- <Compiler Name="ForVariable">True</Compiler>
65- <Compiler Name="ConstructingAbstract">True</Compiler>
66- <Compiler Name="ComparisonFalse">True</Compiler>
67- <Compiler Name="ComparisonTrue">True</Compiler>
68- <Compiler Name="ComparingSignedUnsigned">True</Compiler>
69- <Compiler Name="CombiningSignedUnsigned">True</Compiler>
70- <Compiler Name="UnsupportedConstruct">True</Compiler>
71- <Compiler Name="FileOpen">True</Compiler>
72- <Compiler Name="FileOpenUnitSrc">True</Compiler>
73- <Compiler Name="BadGlobalSymbol">True</Compiler>
74- <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
75- <Compiler Name="InvalidDirective">True</Compiler>
76- <Compiler Name="PackageNoLink">True</Compiler>
77- <Compiler Name="PackageThreadVar">True</Compiler>
78- <Compiler Name="ImplicitImport">True</Compiler>
79- <Compiler Name="HPPEMITIgnored">True</Compiler>
80- <Compiler Name="NoRetVal">True</Compiler>
81- <Compiler Name="UseBeforeDef">True</Compiler>
82- <Compiler Name="ForLoopVarUndef">True</Compiler>
83- <Compiler Name="UnitNameMismatch">True</Compiler>
84- <Compiler Name="NoCFGFileFound">True</Compiler>
85- <Compiler Name="ImplicitVariants">True</Compiler>
86- <Compiler Name="UnicodeToLocale">True</Compiler>
87- <Compiler Name="LocaleToUnicode">True</Compiler>
88- <Compiler Name="ImagebaseMultiple">True</Compiler>
89- <Compiler Name="SuspiciousTypecast">True</Compiler>
90- <Compiler Name="PrivatePropAccessor">True</Compiler>
91- <Compiler Name="UnsafeType">False</Compiler>
92- <Compiler Name="UnsafeCode">False</Compiler>
93- <Compiler Name="UnsafeCast">False</Compiler>
94- <Compiler Name="OptionTruncated">True</Compiler>
95- <Compiler Name="WideCharReduced">True</Compiler>
96- <Compiler Name="DuplicatesIgnored">True</Compiler>
97- <Compiler Name="UnitInitSeq">True</Compiler>
98- <Compiler Name="LocalPInvoke">True</Compiler>
99- <Compiler Name="MessageDirective">True</Compiler>
100- <Compiler Name="CodePage"></Compiler>
3+ <PersonalityInfo>
4+ <Option>
5+ <Option Name="Personality">Delphi.Personality</Option>
6+ <Option Name="GUID">{8A3C75A4-8C93-48D1-9AC2-02475D49A582}</Option>
7+ </Option>
8+ </PersonalityInfo>
9+ <Delphi.Personality>
10+ <Source>
11+ <Source Name="MainSource">KRKLib.dpk</Source>
12+ </Source>
13+ <Compiler>
14+ <Compiler Name="UnitAliases"></Compiler>
15+ <Compiler Name="NamespacePrefix"></Compiler>
16+ <Compiler Name="DefaultNamespace"></Compiler>
10117 </Compiler>
102- <Linker>
103- <Linker Name="ExeDescription">Anak Krakatoa Library</Linker> <Linker Name="MapFile">0</Linker>
104- <Linker Name="OutputObjs">0</Linker>
105- <Linker Name="GenerateHpps">False</Linker>
106- <Linker Name="ConsoleApp">1</Linker>
107- <Linker Name="DebugInfo">False</Linker>
108- <Linker Name="RemoteSymbols">False</Linker>
109- <Linker Name="GenerateDRC">False</Linker>
110- <Linker Name="MinStackSize">16384</Linker>
111- <Linker Name="MaxStackSize">1048576</Linker>
112- <Linker Name="ImageBase">4194304</Linker>
18+ <Linker>
19+ <Linker Name="ExeDescription">Anak Krakatoa Library</Linker>
11320 </Linker>
114- <Directories>
115- <Directories Name="UnitOutputDir">..\..\dcu\d10</Directories>
116- <Directories Name="PackageDLLOutputDir"></Directories>
117- <Directories Name="PackageDCPOutputDir"></Directories>
118- <Directories Name="SearchPath">..\..\res;..\..\res\dfm</Directories>
119- <Directories Name="Conditionals"></Directories>
120- <Directories Name="DebugSourceDirs"></Directories> <Directories Name="OutputDir"></Directories>
121- <Directories Name="Packages"></Directories>
122- <Directories Name="UsePackages">False</Directories>
123- </Directories> <FileVersion>
124- <FileVersion Name="Version">7.0</FileVersion>
125- </FileVersion>
126- <Parameters>
127- <Parameters Name="RunParams"></Parameters>
128- <Parameters Name="HostApplication"></Parameters>
129- <Parameters Name="Launcher"></Parameters>
130- <Parameters Name="UseLauncher">False</Parameters>
131- <Parameters Name="DebugCWD"></Parameters>
132- <Parameters Name="Debug Symbols Search Path"></Parameters>
133- <Parameters Name="LoadAllSymbols">True</Parameters>
134- <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
135- </Parameters>
136- <Language>
137- <Language Name="ActiveLang"></Language>
138- <Language Name="ProjectLang">$00000000</Language>
139- <Language Name="RootDir"></Language>
140- </Language>
141- <VersionInfo>
142- <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
143- <VersionInfo Name="AutoIncBuild">False</VersionInfo>
144- <VersionInfo Name="MajorVer">1</VersionInfo>
145- <VersionInfo Name="MinorVer">0</VersionInfo>
146- <VersionInfo Name="Release">0</VersionInfo>
147- <VersionInfo Name="Build">0</VersionInfo>
148- <VersionInfo Name="Debug">False</VersionInfo>
149- <VersionInfo Name="PreRelease">False</VersionInfo>
150- <VersionInfo Name="Special">False</VersionInfo>
151- <VersionInfo Name="Private">False</VersionInfo>
152- <VersionInfo Name="DLL">False</VersionInfo>
153- <VersionInfo Name="Locale">1046</VersionInfo>
154- <VersionInfo Name="CodePage">1252</VersionInfo>
155- </VersionInfo>
156- <VersionInfoKeys>
157- <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
158- <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
159- <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
160- <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
161- <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
162- <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
163- <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
164- <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
165- <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
166- <VersionInfoKeys Name="Comments"></VersionInfoKeys>
167- </VersionInfoKeys>
21+ <Directories>
22+ <Directories Name="UnitOutputDir">..\..\dcu\d10</Directories>
23+ <Directories Name="PackageDLLOutputDir"></Directories>
24+ <Directories Name="PackageDCPOutputDir"></Directories>
25+ <Directories Name="SearchPath">..\..\res;..\..\res\dfm</Directories>
26+ <Directories Name="Conditionals"></Directories>
27+ <Directories Name="DebugSourceDirs"></Directories>
28+ </Directories>
16829 </Delphi.Personality>
16930 </BorlandProject>
--- trunk/KRKLIB/PRJ/Delphi 10 (Delphi 2006)/KRKLib.dpk (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 10 (Delphi 2006)/KRKLib.dpk (revision 419)
@@ -1,33 +1,15 @@
11 package KRKLib;
22
33 {$R *.res}
4-{$ALIGN 8}
5-{$ASSERTIONS ON}
6-{$BOOLEVAL OFF}
7-{$DEBUGINFO ON}
8-{$EXTENDEDSYNTAX ON}
9-{$IMPORTEDDATA ON}
10-{$IOCHECKS ON}
11-{$LOCALSYMBOLS ON}
12-{$LONGSTRINGS ON}
13-{$OPENSTRINGS ON}
14-{$OPTIMIZATION ON}
15-{$OVERFLOWCHECKS OFF}
16-{$RANGECHECKS OFF}
17-{$REFERENCEINFO ON}
18-{$SAFEDIVIDE OFF}
19-{$STACKFRAMES OFF}
20-{$TYPEDADDRESS OFF}
21-{$VARSTRINGCHECKS ON}
22-{$WRITEABLECONST OFF}
23-{$MINENUMSIZE 1}
24-{$IMAGEBASE $400000}
4+
255 {$DESCRIPTION 'Anak Krakatoa Library'}
266 {$LIBPREFIX ''}
277 {$LIBSUFFIX '100'}
8+{$LIBVERSION ''}
9+{$IMPLICITBUILD OFF}
2810 {$RUNONLY}
29-{$IMPLICITBUILD OFF}
3011
12+
3113 requires
3214 DesignIde,
3315 soaprtl,
@@ -37,7 +19,6 @@
3719 dsnap;
3820
3921 contains
40- crtl,
4122 KRK.Lib.ToolsAPI.OTA.Creators in '..\..\SRC\ToolsAPI\KRK.Lib.ToolsAPI.OTA.Creators.pas',
4223 KRK.Lib.ToolsAPI.OTA.Utilities in '..\..\SRC\ToolsAPI\KRK.Lib.ToolsAPI.OTA.Utilities.pas',
4324 KRK.Lib.Rtl.Common.Classes.Interposer in '..\..\SRC\Rtl\Common\KRK.Lib.Rtl.Common.Classes.Interposer.pas',
--- trunk/KRKLIB/PRJ/Delphi 11 (Delphi 2007)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 11 (Delphi 2007)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{9CB65B24-8FB8-484D-AA63-300E841BC946}</ProjectGuid>
3+ <ProjectGuid>{3E1EFFBF-F0C1-4981-B110-A7737BA76FC6}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 12 (Delphi 2009)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 12 (Delphi 2009)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{52678061-04B5-47B9-8641-58D5CA28FC51}</ProjectGuid>
3+ <ProjectGuid>{475E5A51-8FAC-4B52-816D-9B0FF73A113A}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 14 (Delphi 2010)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 14 (Delphi 2010)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{9B95274C-5BF5-40D6-9AD7-A39FDF06D299}</ProjectGuid>
3+ <ProjectGuid>{9BA5C5F8-4090-45C7-BC7F-834A991F0DE1}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 15 (Delphi XE)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 15 (Delphi XE)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{D5B5456A-FCA1-4EFB-A8B6-ADB3F24DA088}</ProjectGuid>
3+ <ProjectGuid>{2576F87C-6AA6-4EF4-972E-EFF439A29CBE}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 16 (Delphi XE2)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 16 (Delphi XE2)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{0ADCB396-896F-4ED2-85BF-76D895F9D6C5}</ProjectGuid>
3+ <ProjectGuid>{DCA9B2C7-D508-41E3-9F90-FCEED740CFDA}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 17 (Delphi XE3)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 17 (Delphi XE3)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{AF5CDF32-7BD9-4129-AE69-8AB9FB819B0C}</ProjectGuid>
3+ <ProjectGuid>{55F33575-28A1-48F0-A615-3B3F8A60FC52}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 18 (Delphi XE4)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 18 (Delphi XE4)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{D4AF6760-AEB8-4925-B6EA-442D57D94F96}</ProjectGuid>
3+ <ProjectGuid>{550812EE-EF5C-4EAF-8101-6E974791F0CB}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 19 (Delphi XE5)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 19 (Delphi XE5)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{B23AFF1B-0DE5-408F-9B30-5701357E3F3C}</ProjectGuid>
3+ <ProjectGuid>{3A5B31E4-C9D7-4DC3-B948-4BDEABC0D799}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 20 (Delphi XE6)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 20 (Delphi XE6)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{A96B88BA-FD61-48DE-BF05-599145D16169}</ProjectGuid>
3+ <ProjectGuid>{D97CC0AA-84C8-4C0C-AFBB-E27AB9CB6620}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 21 (Delphi XE7)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 21 (Delphi XE7)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{04678F75-7BEF-40E4-82C7-7CD17ABA351C}</ProjectGuid>
3+ <ProjectGuid>{8C1E52F7-6DF0-49E3-8B7A-05EB12011D61}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 22 (Delphi XE8)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 22 (Delphi XE8)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{6801BF07-0DC3-43ED-8F18-52B03B95C80E}</ProjectGuid>
3+ <ProjectGuid>{6075D96F-BA7E-4502-BDD4-B55B6D7EE418}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 23 (Delphi Seattle)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 23 (Delphi Seattle)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{9C614E0B-197C-4141-A99D-F0B7F50E1FC8}</ProjectGuid>
3+ <ProjectGuid>{8A97C95A-D1E8-45AD-A682-376B0E1BC917}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 24 (Delphi Berlin)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 24 (Delphi Berlin)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{71180AEA-3B82-4557-B924-567528EE54C3}</ProjectGuid>
3+ <ProjectGuid>{2D1D36DB-410C-45B6-98DD-8CACD495FECC}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/PRJ/Delphi 25 (Delphi Tokyo)/KRKLib.dproj (revision 418)
+++ trunk/KRKLIB/PRJ/Delphi 25 (Delphi Tokyo)/KRKLib.dproj (revision 419)
@@ -1,6 +1,6 @@
11 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22 <PropertyGroup>
3- <ProjectGuid>{07F0F72A-8C60-4DBF-B7D1-5E36D907F9F8}</ProjectGuid>
3+ <ProjectGuid>{80381490-22BF-4C82-836A-8A4E2234C5CD}</ProjectGuid>
44 <MainSource>KRKLib.dpk</MainSource>
55 <Base>True</Base>
66 <Config Condition="'$(Config)'==''">Base</Config>
--- trunk/KRKLIB/SRC/Rtl/Win/KRK.Lib.Rtl.Win.NCrypt.pas (revision 418)
+++ trunk/KRKLIB/SRC/Rtl/Win/KRK.Lib.Rtl.Win.NCrypt.pas (revision 419)
@@ -46,16 +46,11 @@
4646 interface
4747
4848 uses
49- Windows, Types, KRK.Lib.Rtl.Win.BCrypt;
49+ Windows, KRK.Lib.Rtl.Win.Windows, Types, KRK.Lib.Rtl.Win.BCrypt;
5050
5151 {$HPPEMIT '#include <ncrypt.h>'}
5252
5353 type
54- {$IF RTLVersion < 19 }
55- {$EXTERNALSYM ULONG_PTR}
56- ULONG_PTR = DWord;
57- {$IFEND}
58-
5954 {$EXTERNALSYM SECURITY_STATUS}
6055 SECURITY_STATUS = Longint;
6156
--- trunk/KRKLIB/SRC/Rtl/Win/KRK.Lib.Rtl.Win.WinSCard.pas (revision 418)
+++ trunk/KRKLIB/SRC/Rtl/Win/KRK.Lib.Rtl.Win.WinSCard.pas (revision 419)
@@ -1,15 +1,3 @@
1-// A tabela abaixo mostra o significado dos aliases de strings no C++ e sua
2-// correspondência no Delphi
3-//
4-// ALIAS NO C++ | SIGNIFICADO NO C++ | DELPHI | OBS
5-// -----------------------------------------------------------------------------
6-// LPSTR | char * | PChar | ANSICHAR
7-// LPCSTR | const char * | PChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
8-// LPWSTR | wchar_t * | PWideChar | WIDECHAR
9-// LPCWSTR | const wchar_t * | PWideChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
10-// LPTSTR | LPSTR ou LPWSTR | PChar ou PWideChar | ANSICHAR OU WIDECHAR
11-// LPCTSTR | LPCSTR or LPCWSTR | PChar ou PWideChar | NÃO EXISTEM PONTEIROS CONSTANTES NO DELPHI
12-
131 {******************************************************************}
142 { }
153 { Borland Delphi Runtime Library }
--- trunk/KRKLIB/SRC/Rtl/Win/KRK.Lib.Rtl.Win.Windows.pas (revision 418)
+++ trunk/KRKLIB/SRC/Rtl/Win/KRK.Lib.Rtl.Win.Windows.pas (revision 419)
@@ -7,13 +7,13 @@
77
88 {$IF RTLVersion < 20}
99 type
10- LONG_PTR = NativeInt;
11- ULONG_PTR = NativeUInt;
12- LPVOID = Pointer;
13- LONG = Longint;
10+ LONG_PTR = Integer;
11+ ULONG_PTR = Cardinal;
1412 PVOID = Pointer;
13+ LPVOID = PVOID;
14+ LONG = Integer;
1515 DWORD_PTR = ULONG_PTR;
16- UINT_PTR = NativeUInt;
16+ UINT_PTR = ULONG_PTR;
1717
1818 const
1919 IMAGE_FILE_MACHINE_IA64 = $0200;
@@ -44,6 +44,7 @@
4444 function GetWindowLongPtrW(hWnd: HWND; nIndex: Integer): LONG_PTR; stdcall; external user32 name 'GetWindowLongW';
4545 function SetWindowLongPtrW(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR; stdcall; external user32 name 'SetWindowLongW';
4646 {$ENDIF}
47+function GetFileSizeEx(hFile: THandle; var lpFileSize: Int64): ByteBool; stdcall; external kernel32 name 'GetFileSizeEx';
4748 {$IFEND}
4849
4950 procedure InitializePerformanceCounter;
--- trunk/KRKTOOLS/TESTADOR/prj/Testador.bdsproj (nonexistent)
+++ trunk/KRKTOOLS/TESTADOR/prj/Testador.bdsproj (revision 419)
@@ -0,0 +1,175 @@
1+<?xml version="1.0" encoding="utf-8"?>
2+<BorlandProject>
3+ <PersonalityInfo>
4+ <Option>
5+ <Option Name="Personality">Delphi.Personality</Option>
6+ <Option Name="ProjectType">VCLApplication</Option>
7+ <Option Name="Version">1.0</Option>
8+ <Option Name="GUID">{9C401A21-C747-4B04-AD89-0CA951830081}</Option>
9+ </Option>
10+ </PersonalityInfo>
11+ <Delphi.Personality>
12+ <Source>
13+ <Source Name="MainSource">Testador.dpr</Source>
14+ </Source>
15+ <FileVersion>
16+ <FileVersion Name="Version">7.0</FileVersion>
17+ </FileVersion>
18+ <Compiler>
19+ <Compiler Name="A">8</Compiler>
20+ <Compiler Name="B">0</Compiler>
21+ <Compiler Name="C">1</Compiler>
22+ <Compiler Name="D">1</Compiler>
23+ <Compiler Name="E">0</Compiler>
24+ <Compiler Name="F">0</Compiler>
25+ <Compiler Name="G">1</Compiler>
26+ <Compiler Name="H">1</Compiler>
27+ <Compiler Name="I">1</Compiler>
28+ <Compiler Name="J">0</Compiler>
29+ <Compiler Name="K">0</Compiler>
30+ <Compiler Name="L">1</Compiler>
31+ <Compiler Name="M">0</Compiler>
32+ <Compiler Name="N">1</Compiler>
33+ <Compiler Name="O">1</Compiler>
34+ <Compiler Name="P">1</Compiler>
35+ <Compiler Name="Q">0</Compiler>
36+ <Compiler Name="R">0</Compiler>
37+ <Compiler Name="S">0</Compiler>
38+ <Compiler Name="T">0</Compiler>
39+ <Compiler Name="U">0</Compiler>
40+ <Compiler Name="V">1</Compiler>
41+ <Compiler Name="W">0</Compiler>
42+ <Compiler Name="X">1</Compiler>
43+ <Compiler Name="Y">1</Compiler>
44+ <Compiler Name="Z">1</Compiler>
45+ <Compiler Name="ShowHints">True</Compiler>
46+ <Compiler Name="ShowWarnings">True</Compiler>
47+ <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
48+ <Compiler Name="NamespacePrefix"></Compiler>
49+ <Compiler Name="GenerateDocumentation">False</Compiler>
50+ <Compiler Name="DefaultNamespace"></Compiler>
51+ <Compiler Name="SymbolDeprecated">True</Compiler>
52+ <Compiler Name="SymbolLibrary">True</Compiler>
53+ <Compiler Name="SymbolPlatform">True</Compiler>
54+ <Compiler Name="SymbolExperimental">True</Compiler>
55+ <Compiler Name="UnitLibrary">True</Compiler>
56+ <Compiler Name="UnitPlatform">True</Compiler>
57+ <Compiler Name="UnitDeprecated">True</Compiler>
58+ <Compiler Name="UnitExperimental">True</Compiler>
59+ <Compiler Name="HResultCompat">True</Compiler>
60+ <Compiler Name="HidingMember">True</Compiler>
61+ <Compiler Name="HiddenVirtual">True</Compiler>
62+ <Compiler Name="Garbage">True</Compiler>
63+ <Compiler Name="BoundsError">True</Compiler>
64+ <Compiler Name="ZeroNilCompat">True</Compiler>
65+ <Compiler Name="StringConstTruncated">True</Compiler>
66+ <Compiler Name="ForLoopVarVarPar">True</Compiler>
67+ <Compiler Name="TypedConstVarPar">True</Compiler>
68+ <Compiler Name="AsgToTypedConst">True</Compiler>
69+ <Compiler Name="CaseLabelRange">True</Compiler>
70+ <Compiler Name="ForVariable">True</Compiler>
71+ <Compiler Name="ConstructingAbstract">True</Compiler>
72+ <Compiler Name="ComparisonFalse">True</Compiler>
73+ <Compiler Name="ComparisonTrue">True</Compiler>
74+ <Compiler Name="ComparingSignedUnsigned">True</Compiler>
75+ <Compiler Name="CombiningSignedUnsigned">True</Compiler>
76+ <Compiler Name="UnsupportedConstruct">True</Compiler>
77+ <Compiler Name="FileOpen">True</Compiler>
78+ <Compiler Name="FileOpenUnitSrc">True</Compiler>
79+ <Compiler Name="BadGlobalSymbol">True</Compiler>
80+ <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
81+ <Compiler Name="InvalidDirective">True</Compiler>
82+ <Compiler Name="PackageNoLink">True</Compiler>
83+ <Compiler Name="PackageThreadVar">True</Compiler>
84+ <Compiler Name="ImplicitImport">True</Compiler>
85+ <Compiler Name="HPPEMITIgnored">True</Compiler>
86+ <Compiler Name="NoRetVal">True</Compiler>
87+ <Compiler Name="UseBeforeDef">True</Compiler>
88+ <Compiler Name="ForLoopVarUndef">True</Compiler>
89+ <Compiler Name="UnitNameMismatch">True</Compiler>
90+ <Compiler Name="NoCFGFileFound">True</Compiler>
91+ <Compiler Name="ImplicitVariants">True</Compiler>
92+ <Compiler Name="UnicodeToLocale">True</Compiler>
93+ <Compiler Name="LocaleToUnicode">True</Compiler>
94+ <Compiler Name="ImagebaseMultiple">True</Compiler>
95+ <Compiler Name="SuspiciousTypecast">True</Compiler>
96+ <Compiler Name="PrivatePropAccessor">True</Compiler>
97+ <Compiler Name="UnsafeType">False</Compiler>
98+ <Compiler Name="UnsafeCode">False</Compiler>
99+ <Compiler Name="UnsafeCast">False</Compiler>
100+ <Compiler Name="OptionTruncated">True</Compiler>
101+ <Compiler Name="WideCharReduced">True</Compiler>
102+ <Compiler Name="DuplicatesIgnored">True</Compiler>
103+ <Compiler Name="UnitInitSeq">True</Compiler>
104+ <Compiler Name="LocalPInvoke">True</Compiler>
105+ <Compiler Name="MessageDirective">True</Compiler>
106+ <Compiler Name="CodePage"></Compiler>
107+ </Compiler>
108+ <Linker>
109+ <Linker Name="MapFile">0</Linker>
110+ <Linker Name="OutputObjs">0</Linker>
111+ <Linker Name="GenerateHpps">False</Linker>
112+ <Linker Name="ConsoleApp">1</Linker>
113+ <Linker Name="DebugInfo">False</Linker>
114+ <Linker Name="RemoteSymbols">False</Linker>
115+ <Linker Name="GenerateDRC">False</Linker>
116+ <Linker Name="MinStackSize">16384</Linker>
117+ <Linker Name="MaxStackSize">1048576</Linker>
118+ <Linker Name="ImageBase">4194304</Linker>
119+ <Linker Name="ExeDescription"></Linker>
120+ </Linker>
121+ <Directories>
122+ <Directories Name="OutputDir"></Directories>
123+ <Directories Name="UnitOutputDir"></Directories>
124+ <Directories Name="PackageDLLOutputDir"></Directories>
125+ <Directories Name="PackageDCPOutputDir"></Directories>
126+ <Directories Name="SearchPath"></Directories>
127+ <Directories Name="Packages"></Directories>
128+ <Directories Name="Conditionals"></Directories>
129+ <Directories Name="DebugSourceDirs"></Directories>
130+ <Directories Name="UsePackages">False</Directories>
131+ </Directories>
132+ <Parameters>
133+ <Parameters Name="RunParams"></Parameters>
134+ <Parameters Name="HostApplication"></Parameters>
135+ <Parameters Name="Launcher"></Parameters>
136+ <Parameters Name="UseLauncher">False</Parameters>
137+ <Parameters Name="DebugCWD"></Parameters>
138+ <Parameters Name="Debug Symbols Search Path"></Parameters>
139+ <Parameters Name="LoadAllSymbols">True</Parameters>
140+ <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
141+ </Parameters>
142+ <Language>
143+ <Language Name="ActiveLang"></Language>
144+ <Language Name="ProjectLang">$00000000</Language>
145+ <Language Name="RootDir"></Language>
146+ </Language>
147+ <VersionInfo>
148+ <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
149+ <VersionInfo Name="AutoIncBuild">False</VersionInfo>
150+ <VersionInfo Name="MajorVer">1</VersionInfo>
151+ <VersionInfo Name="MinorVer">0</VersionInfo>
152+ <VersionInfo Name="Release">0</VersionInfo>
153+ <VersionInfo Name="Build">0</VersionInfo>
154+ <VersionInfo Name="Debug">False</VersionInfo>
155+ <VersionInfo Name="PreRelease">False</VersionInfo>
156+ <VersionInfo Name="Special">False</VersionInfo>
157+ <VersionInfo Name="Private">False</VersionInfo>
158+ <VersionInfo Name="DLL">False</VersionInfo>
159+ <VersionInfo Name="Locale">1046</VersionInfo>
160+ <VersionInfo Name="CodePage">1252</VersionInfo>
161+ </VersionInfo>
162+ <VersionInfoKeys>
163+ <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
164+ <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
165+ <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
166+ <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
167+ <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
168+ <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
169+ <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
170+ <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
171+ <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
172+ <VersionInfoKeys Name="Comments"></VersionInfoKeys>
173+ </VersionInfoKeys>
174+ </Delphi.Personality>
175+</BorlandProject>
--- trunk/KRKTOOLS/TESTADOR/src/UPrincipal.pas (revision 418)
+++ trunk/KRKTOOLS/TESTADOR/src/UPrincipal.pas (revision 419)
@@ -6,7 +6,7 @@
66 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
77 Dialogs, StdCtrls, Menus, Mask, ComCtrls, ExtCtrls, ActnPopup,
88 KRK.Components.StandardControls.GroupBox, KRK.Components.StandardControls.Panel,
9- Tabs, Vcl.PlatformDefaultStyleActnCtrls;
9+ Tabs;
1010
1111 type
1212 TForm8 = class(TForm)
@@ -205,7 +205,7 @@
205205
206206 procedure TForm8.BUTNGetFileCheckSumClick(Sender: TObject);
207207 begin
208- with TFileOpenDialog.Create(Self) do
208+ with TOpenDialog.Create(Self) do
209209 try
210210 if Execute then
211211 EDITCheckSumHmac.Text := GetFileCheckSum(FileName,[THashAlgorithm(CBBXHashAlgorithms.ItemIndex)],nil);
@@ -533,7 +533,7 @@
533533 BufferContentSize := TamanhoConteudo;
534534
535535 if not CryptEncrypt(CryptKeyHandle,0,True,0,Buffer,@BufferContentSize,BufferSize) then
536- raise Exception.Create('Fornicou! ' + GetLastError.ToString)
536+ raise Exception.Create('Fornicou! ' + IntToStr(GetLastError))
537537 else
538538 begin
539539 BTS.Bytes := Buffer;
Show on old repository browser