const
CP_UTF8 = 65001;
{ ... }
var
FileName: string;
S: string;
begin
FileName := 'test.txt';
if not LoadStringFromFileInCP(FileName, S, CP_UTF8) then
begin
Log('Error loading the file');
end
else
if StringChangeEx(S, 'žluťoučký kůň', 'ďábelské ódy', True) <= 0 then
begin
Log('No value was replaced');
end
else
if not SaveStringToFileInCP(FileName, S, CP_UTF8) then
begin
Log('Error writing the file');
end
else
begin
Log('Replacement successful');
end;
end;
LoadStringFromFileInCP
и SaveStringToFileInCP
поступают из:
Inno Setup - преобразование массива строк в Unicode и обратно в ANSI
Требуется кодВерсия Inno Setup для Unicode (единственная версия для Inno Setup 6).
Для строковых литералов Unicode ваш файл .iss
должен быть в кодировке UTF-8 с BOM.