| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как загнать текст в буфер программно? [D7, WinXP]

Muhan_ ©   (2006-03-24 13:52:00) 

Надо загнать допустим из memo1.text в буфер...как это сделать программно... :)
Спасибо заранее )

---

Гаврила   (2006-03-24 19:14:00) [1]

> а с этим не разобраться что добавить в Uses

Посмотри в справке
в D7 справка нормальная, такие вещи надо уметьискать в справке

---

Muhan_   (2006-03-24 17:27:00) [2]

блин, не разобратья ))
переменные не описаны ((

CLipboard.Text ...а с этим не разобраться что добавить в Uses

---

Muhan_   (2006-03-24 16:45:00) [3]

хмм CLipboard.Text будет достаточно? :)

---

clickmaker   (2006-03-24 14:35:00) [4]

+

if Win32Platform = VER_PLATFORM_WIN32_NT then begin

 Len := Length(sText);
 cbSize := MultiByteToWideChar(CP_ACP, 0, PChar(sText), Len, nil, 0);
 if (cbSize > 0) then begin
   Mem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, (cbSize shl 1) + 2);
   if Mem <> 0 then begin
     WP := GlobalLock(Mem);
     try
       if WP <> nil then begin
         MultiByteToWideChar(CP_ACP, 0, PChar(sText), Len, WP, cbSize);
         SetClipboardData(CF_UNICODETEXT, Mem);
       end;
     finally
       GlobalUnlock(Mem);
     end;
   end;  
 end;
end;

---

MBo   (2006-03-24 14:14:00) [5]

CLipboard.Text

---

Наверх