Форум: "Основная";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];
ВнизВ бувер из консольной проги. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c