Форум: "Основная";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
ВнизКак загнать текст в буфер программно? Найти похожие ветки
← →
Muhan_ (2006-03-24 13:52) [0]Надо загнать допустим из memo1.text в буфер...как это сделать программно... :)
Спасибо заранее )
← →
MBo © (2006-03-24 14:14) [1]CLipboard.Text
← →
clickmaker © (2006-03-24 14:35) [2]+
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;
← →
Muhan_ (2006-03-24 16:45) [3]хмм CLipboard.Text будет достаточно? :)
← →
Muhan_ (2006-03-24 17:27) [4]блин, не разобратья ))
переменные не описаны ((
CLipboard.Text ...а с этим не разобраться что добавить в Uses
← →
Гаврила © (2006-03-24 19:14) [5]
> а с этим не разобраться что добавить в Uses
Посмотри в справке
в D7 справка нормальная, такие вещи надо уметь искать в справке
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c