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

Unicode compatibility for App.Version.Strings

Browse Source
This commit is contained in:
Mark van Renswoude 2014-07-02 13:44:16 +00:00
parent 2bf7ac5bf9
commit 2ff0f544d3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
X2UtApp.pas
View File

@ -199,7 +199,7 @@ uses
Windows; Windows;
const const
tkStrings = [tkString, tkLString, tkWString]; tkStrings = [tkString, tkLString, tkWString{$IF CompilerVersion >= 23}, tkUString{$IFEND}];
var var
GApp: TX2App; GApp: TX2App;
@ -359,8 +359,8 @@ 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 VerQueryValueA(pBuffer, PAnsiChar(cName + AnsiString('\') + pProps^[iProp]^.Name), if VerQueryValue(pBuffer, PChar(string(cName) + '\' + pProps^[iProp]^.Name),
Pointer(pValue), dVer) then Pointer(pValue), dVer) then
SetStrProp(Strings, pProps[iProp], pValue); SetStrProp(Strings, pProps[iProp], pValue);
end; end;
finally finally