Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Вниз
Как програмно записать строку в буфер обмена? Найти похожие ветки
← →
n-neo (2004-11-07 21:28) [0]Как програмно записать строку в буфер обмена?
← →
KilkennyCat © (2004-11-07 21:35) [1]function SetClipboardData(Format: Word; Mem: THandle): THandle;
Format - в данном случае CF_Text
Mem - память, где данные.
← →
KilkennyCat © (2004-11-07 21:38) [2]и не забыть вначале выполнить OpenClipboard, и соответственно в конце - CloseClipboard.
← →
default © (2004-11-07 21:43) [3]или используй созданный объект Clipboard типа TClipboard
уж VCL так VCL, API лучше только там где VCL не в силах помочь
← →
GuAV © (2004-11-07 21:46) [4]procedure CopyText(const S: string);
var hglbCopy: THandle; L: Cardinal;
begin
L:=Length(S)+1;
Win32Check(OpenClipboard(Application.Handle));
try
Win32Check(EmptyClipboard);
hglbCopy:=GlobalAlloc(GMEM_DDESHARE, L);
Move(PChar(S)^,GlobalLock(hglbCopy)^,L);
GlobalUnlock(hglbCopy);
SetClipboardData(CF_TEXT, hglbCopy);
finally
CloseClipboard;
end;
end;
← →
default © (2004-11-07 22:06) [5]uses Clipbrd;
...
Clipboard.AsText := NeedString
← →
GuAV © (2004-11-07 22:18) [6]default © (07.11.04 22:06) [5]
А я, дурак, велосипед изобрёл... сам переводил прример с MSDN в Delphi...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c
