Запарка с буфером

[Sanchezzz]

Код: Выделить всё

Dim hMem As Long
    Dim pMem As Long
    Dim sText As String
    Dim deb As Long
    sText = "Test"
    hMem = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, LenB(sText))
    pMem = GlobalLock(hMem)
    CopyMemory ByVal pMem, ByVal sText, LenB(sText)
  GlobalUnlock hMem
OpenClipboard (Me.hwnd)
EmptyClipboard
SetClipboardData CF_TEXT, ByVal hMem
CloseClipboard

Привет всем. Подскажите пожалуйста что не так в этом коде? Уже всё перепробовал... Не копируется строка и всё

[GSerg]

Нда...


clipboard.settext

[Sanchezzz]

нет не потянет. Вообще там данные будут копироваться. Это я просто с текстом решил сначала попробовать

[Денис Победря]

Данные в текст прегнать (хотя если конечный юзер вставит туда, куда не надо, ему резко поплохеет)

[GSerg]

Ну раз не потянет, тогда в поиск по названию главной функции из приведённого кода. 8 результатов.

[Sanchezzz]

Чтоб текст копировался я сделал уже. А вот ещё такой вопрос: почему когда я этот текст пытаюсь куда нибуть вставить из буфера (скажем в том же блокноте) вставляется какая то абракадабра? переводить сроку в уникод с помощью StrConv пробовал, не помогло. Может есть у кого идеи? Запарился уже

[Хакер]

А ты что во что конвертировал
ANSI->UC
или
UC->ANSI

[Sanchezzz]

Код: Выделить всё

sText = StrConv(sText, vbUnicode)