кривая кодировка при сохранении в txt

[SarahConner]

Всем здравствуйте.
Вот код программки.
======

procedure TForm1.Button1Click(Sender: TObject);
begin
f:= TStringList.Create();
x:=120; y:=700; y1:=550;

  SetCursorPos(x, y);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
  SetCursorPos(x, y1);
  Mouse_Event(MOUSEEVENTF_LEFTUP, x, y1, 0, 0);

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
 f.Text:=ClipBoard.AsText;
  if ClipBoard.HasFormat(CF_Text)
 then
 begin
 f.savetofile('D:\МД\B- Delphi\Примеры\Мышь моя\text.txt')
 end
 else MessageDlg('В буфере обмена не текст!',mtError,[mbOK],0);
 f.Free;
end;

====
Все работает, но в text.txt попадает вот что:
?????: Mephistatus ?????? ??????? ?????? ? ???????
?????: ? natali9 ???????? 15 ? ??? ????
Где вопросы, там в сторонней программе русский текст.
Если же копировать ручками Ctrl+c и Ctrl+v, то все вставляется правильно. Я по поиску шерстил 2 часа. нашел ветки, там обсуждалась кодировка при вставке из буфера, пробовал от туда советы - не помогло.
Буду рад услышать мнение аудитории.

[Kotofff]

Из буфера копируются строки на русском языке ?
Если да, то можно попробовать через перевод раскладки клавиатуры:

KLayout: array [0..1023] of char;
...
...
...
  GetKeyboardLayoutName(KLayout);// запоминаем какая была раскладка
  LoadKeyboardLayout('00000419',KLF_ACTIVATE);  // переключаем на русский
  f.Text:=ClipBoard.AsText;// кусок твоего кода
  LoadKeyboardLayout(KLayout, KLF_ACTIVATE);// возвращаемся к запомненному

[SarahConner]

Спасибо за оперативность.
Ругается на это: GetKeyboardLayoutName(LKL);
Наверное надо указать тип LKL?

[Stilet]

Наверное надо указать тип LKL?

Да LKL:HKL;

[SarahConner]

ошибка ??
[Pascal Error] Unit1.pas(38): E2010 Incompatible types: 'HKL' and 'PAnsiChar'

(прошу прощения за такую пошаговость вопросов, но эта сторона языка мне еще не известна)
а действительно может быть проблема из-за раскладки, ведь при копировании руками все нормально?

[Stilet]

Короче смысл в переключении раскладки для копируемого текста:

Delphi World

//На русский
procedure TForm1.Button1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

//На английский
procedure TForm1.Button2Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

Или как Котов сказал:

var CurrentKeyboard:HKL;
...
 CurrentKeyboard:=GetKeyboardLayout(0); // Запомним раскладку
 LoadKeyboardLayout('00000419',KLF_ACTIVATE); // на русский
...
ActivateKeyboardLayout(CurrentKeyboard,0); // Обратно

[SarahConner]

Ребята, ВСЕМ огромное спасибо. Смена раскладки помогла.
Благодаря такой вот невозмездной помощи такие как я и становятся в чем-то грамотней.
Еще раз спасибо.

[Stilet]

невозмездной помощи

Загнула...

Еще раз спасибо.

От нас обоих - всегда пожалуйста.