Текущий архив: 2004.04.04;
Скачать: CL | DM;
Вниз
Аналог Найти похожие ветки
← →
С@ня (2003-07-28 11:53) [0]Уважаемые мастера!!! У меня небольщая проблемма
Имеется процедура
procedure PutStringIntoClipBoard(const Str: WideString);
var
Size: Integer;
Data: THandle;
DataPtr: Pointer;
begin
Size:=Length(Str);
if Size = 0 then exit;
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Clipboard.AsText:=Str
else
begin
Size:=Size shl 1 + 2;
Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
try
DataPtr := GlobalLock(Data);
try
Move(Pointer(Str)^, DataPtr^, Size);
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data);
raise;
end;
end;
end;
С помощью ее можно скопировать в буфер строку и потом без искажения вставить ее в Word. Как написать подобное, используя KOL.
Заранее благодарен
← →
SPeller © (2003-07-28 12:16) [1]А в КОЛ что мешает?
← →
С@ня (2003-07-28 12:18) [2]Мешает Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
← →
SPeller © (2003-07-28 12:21) [3]В КОЛ есть набор функций для работы с буфером обмена. Посмотри в сипиравке.
← →
С@ня (2003-07-28 12:38) [4]Не могу найти. Может все-таки кто-нибудь поможет
← →
SPeller © (2003-07-28 15:02) [5]Открываем kol.pas, жмём Ctrl+F и вводим clipboard, и смотрим на что наткнулись.
← →
SPeller © (2003-07-28 15:04) [6]
> Не могу найти
Не ищешь. По себе знаю :)
Страницы: 1 вся ветка
Текущий архив: 2004.04.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.059 c
