GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed OS.Version for Delphi XE2

Browse Source 
Resolved string typecast warning
This commit is contained in:
Mark van Renswoude 2014-12-31 09:36:39 +00:00
parent 868b443eae
commit d762903951
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
X2UtApp.pas
View File

@ -359,7 +359,7 @@ begin
GetPropList(Strings.ClassInfo, tkStrings, pProps); GetPropList(Strings.ClassInfo, tkStrings, pProps);
for iProp := 0 to iCount - 1 do begin for iProp := 0 to iCount - 1 do begin
if VerQueryValue(pBuffer, PChar(string(cName) + '\' + pProps^[iProp]^.Name), if VerQueryValue(pBuffer, PChar(string(cName) + '\' + string(pProps^[iProp]^.Name)),
Pointer(pValue), dVer) then Pointer(pValue), dVer) then
SetStrProp(Strings, pProps[iProp], pValue); SetStrProp(Strings, pProps[iProp], pValue);
end; end;

2
X2UtOS.pas
View File

@ -14,6 +14,7 @@ uses
Windows; Windows;
type type
{$IF CompilerVersion < 23}
TOSVersionInfoEx = packed record TOSVersionInfoEx = packed record
dwOSVersionInfoSize: DWORD; dwOSVersionInfoSize: DWORD;
dwMajorVersion: DWORD; dwMajorVersion: DWORD;
@ -27,6 +28,7 @@ type
wProductType: Byte; wProductType: Byte;
wReserved: Byte; wReserved: Byte;
end; end;
{$IFEND}
//:$ Enumeration of the recognized Operating System versions //:$ Enumeration of the recognized Operating System versions