Проблема с передачей кириллицы через буфер обмена Windows

[Vodnik]

Привет! Как правильно нужно поместить обычный текст с кириллицей в буфер обмена Windows XP, чтобы он затем корректно мог быть вставлен в приложения Windows Office? Использую формат CF_TEXT, но в Notepad, Exel и проч. текст вставляется в неправильной кодировке, хотя во многие приложения (FAR) вставляется корректно. Спасибо!

[lennon]

незнаю , но попробуй перед копированием в буфер

setlocale(LC_CTYPE, "Russian_Russia.1251");

нехочеться проверять

[abyss_by]

Взято из KOL;

function Text2Clipboard( const S: AnsiString ): Boolean;
var gbl: THandle;
    str: PAnsiChar;
begin
  Result := False;
  if not OpenClipboard( 0 ) then Exit;
  EmptyClipboard;
  if S <> '' then
  begin
    gbl := GlobalAlloc( GMEM_DDESHARE, Length( S ) + 1 );
    if gbl <> 0 then
    begin
      str := GlobalLock( gbl );
      Move( S[ 1 ], str^, Length( S ) + 1 );
      GlobalUnlock( gbl );
      Result := SetClipboardData( CF_TEXT, gbl ) <> 0;
    end;
  end
    else
      Result := True;
  CloseClipboard;
end;