function CharToOemInc(var pwStr: PWSTR): AnsiString;
var
buf: array [0 .. 255] of AnsiChar;
begin
CharToOemW(pwStr, @buf);
Result := buf;
Inc(pwStr, Length(Result) + 1);
end;
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.