Копирование текста в буфер в Windows 7

[DemonXT]

Доброе время суток!

Мне нужно скопировать путь к программе в буфер.
Делаю так:

Clipboard.SetTextBuf(PChar(paramstr(0)));

В пути могут может использоваться кириллица!
Когда вставляю из буфера под Windows XP текст отображается корректно, но когда программа загружена под Windows 7 начинаются проблемы с кодировкой! Русские буквы становятся не читабельны.
Пробовал конвертировать текст в unicode:

var wideChars:array[0..High(word)] of WideChar; myString:string;
...
      myString:=paramstr(0);
      StringToWideChar(myString,wideChars,Length(paramstr(0))+1);
      Clipboard.SetTextBuf(PChar(wideChars));
...

но это помогает
Подскажите в чём моя ошибка?

[GunSmoker]

Версию Delphi может скажешь?

[Человек_Борща]

unit Unit2;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  Clipbrd,
  StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  myDir: AnsiString;
begin
  myDir:=ExtractFilePath(ParamStr(0));
  Clipboard.AsText:=myDir;
end;

Так, не?

[DemonXT]

Сообщение от GunSmoker

Версию Delphi может скажешь?

Delphi 2006
Человек_Борща,
неработате как надо в Windows 7

[eduard93]

Когда копируете, следите чтобы была выставлена русская раскладка на клаве.

[GunSmoker]

Сообщение от DemonXT

Delphi 2006

И что, по-твоему, принимает SetTextBuf?

Я тебе скажу - он принимает Ansi-строчку.

Тебе даже компилятор должен был сказать, что ты написал ерунду - трактуешь unicode как ansi и ждёшь, что это будет работать.

Тебе надо вызывать WinAPI напрямую.

[DemonXT]

Во общем нашёл рабочий вариант. Может кому ещё поможет:

procedure TextToClipboard(const sSrt:string);
var N:Integer; mem:Cardinal; ptr:Pointer;
begin
  with Clipboard do try
    Open;
    if IsClipboardFormatAvailable(CF_UNICODETEXT) then
    begin
      N:=(Length(sSrt)+1)*2;
      mem:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,N);
      ptr:=GlobalLock(mem);
      Move(PWideChar(widestring(sSrt))^, ptr^,N);
      GlobalUnlock(mem);
      SetAsHandle(CF_UNICODETEXT,mem);
    end;
    AsText:=sSrt;
    mem:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,SizeOf(dword));
    ptr:=GlobalLock(mem);
    dword(ptr^):=(SUBLANG_NEUTRAL shl 10) or LANG_RUSSIAN;
    GlobalUnLock(mem);
    SetAsHandle(CF_LOCALE,mem);
  finally Close;
  end;
end;