Скачать: CL | DM;

Как програмно записать строку в буфер обмена?   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c