Кодировка русских символов

[DemonXpPro]

Приветствую всех.
Не получается разобраться в чем проблема.
Использую Lazarus.
Мне необходимо всего лишь выполнить ShellExecute с параметрами, в которых есть русские символы, и как итог получаю крякозябры.

делаю так:

var
  strMessage: string;
  str: PChar;
begin
  strMessage := 'mailto:sample@sample.com?subject=Project%20Баги%20,' +
    'вопросы%20,предложения&Body=1.%20Тип:(Баг,Вопрос,Предложение)';
  GetMem(str, Length(strMessage) + 1);
  StrCopy(str, PChar(strMessage));
  ShellExecute(Handle, 'open', str, nil, nil, SW_RESTORE);

но в итоге, когда открывается почтовик (встроенный в windows 10),
вижу только такое "1. РўРёРї:(Баг,Р’РѕРїСЂРѕСЃ,Предложение)"

Укажите пожалуйста куда двигать?

Сообщение отредактировано: DemonXpPro - 10.08.18, 13:59

[Славян]

Можно (желательно) всё сделать в WideString (уникод), вызывая ShellExecuteW. Как в Паскале - не знаю, в Си: wchar_t *str = L"строка";

[DemonXpPro]

Ура! Нашелся способ!
Через OpenURL работает отлично!