Delphi, Asm, C, WinAPI, PHP, ..., FAQ Опции

[-=CHE@TER=-]

Delphi programs in API.
На английском.
Очень подробно всё описано, плюс есть исходные коды готовых юнитов.
Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял).

[Siberian GRemlin]

Собственно, я и спрашивал как правильно перегнать PAnsiChar -> PWideChar.

Добавлено:
Сделал пока так. Насчёт локалей в системе ничего не понял. Это что такое? Желательно писать или по-русски или по-английски, чтобы понять можно было, ибо винегрет плохо усваивается организмом.

CODE

//Обычную в юникод
function StringToWideString(const s: AnsiString; codePage: Word=0): WideString;
var
  l: integer;
begin
  if s = '' then
    Result := ''
  else
  begin
    l := MultiByteToWideChar(codePage, MB_PRECOMPOSED, PChar(@s[1]), - 1, nil, 0);
    SetLength(Result, l - 1);
    if l > 1 then
      MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]),
        - 1, PWideChar(@Result[1]), l - 1);
  end;
end;