Текущий архив: 2003.12.04;
Скачать: CL | DM;

Вниз

В бувер из консольной проги.   Найти похожие ветки 

← →
DLLMaN   (2003-11-25 15:25) [0]

Как в консольной проги копировать текс из буффера и вставить. Если можно с примером.

---

← →
app ©   (2003-11-25 15:28) [1]

Что за буфер и куда вставить

---

← →
DLLMaN   (2003-11-25 15:33) [2]

Буффер обмена те ClipBoard

---

← →
Palladin ©   (2003-11-25 15:34) [3]

Буфер вставить в буфер?

---

← →
clickmaker ©   (2003-11-25 15:35) [4]

Clipboard.AsText, GetClipboardData

---

← →
DLLMaN   (2003-11-25 15:42) [5]

GetClipboardData можно пример с этой функцией

---

← →
DLLMaN   (2003-11-25 15:49) [6]

Просто возвращаемое значение Cardinal, а нужно в стринг

---

← →
Digitman ©   (2003-11-25 16:02) [7]

ЭТО не я придумал, ЭТО - у тебя перед носом, в тексте станд.модуля clipbrd.pas :


function TClipboard.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;
var
Data: THandle;
begin
Open;
Data := GetClipboardData(CF_TEXT);
if Data = 0 then Result := 0 else
begin
Result := StrLen(StrLCopy(Buffer, GlobalLock(Data), BufSize - 1));
GlobalUnlock(Data);
end;
Close;
end;


---

← →
Digitman ©   (2003-11-25 16:05) [8]

и ЭТО - там же, почти рядом ... как раз то, что тебе нужно :


function TClipboard.GetAsText: string;
var
Data: THandle;
begin
Open;
Data := GetClipboardData(CF_TEXT);
try
if Data <> 0 then
Result := PChar(GlobalLock(Data)) else
Result := "";
finally
if Data <> 0 then GlobalUnlock(Data);
Close;
end;
end;


---

← →
DLLMaN   (2003-11-25 21:22) [9]

А как в клип боард скинуть стринг =)

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.04;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.009 c