Пример использования:
При написании использовалась функция для Delphi
предоставленная by Sergey Popov, Usinsk, Komi:
Как использовать функцию :
//----------------------------------------------------
Процедура гл8СообщитьБуфер() Экспорт
Перем БуферОбмена, Стр;
ЗагрузитьВнешнююКомпоненту("AddIn_V7MyClipboard.dll");
БуферОбмена = СоздатьОбъект("AddIn.AddIn_V7MyClipboard");
Стр=БуферОбмена.ПолучитьТекстИзБуфераОбмена(0);
Сообщить(Стр);
КонецПроцедуры // гл8СообщитьБуфер
//----------------------------------------------------При написании использовалась функция для Delphi
предоставленная by Sergey Popov, Usinsk, Komi:
//----------------------------------------------------
Uses
...
Clipbrd;
function GetFromClipboardToList(Buf : TStrings; ClearAfter : boolean) : boolean;
{Взять текстовые данные из Clipboard}
var
MyHandle: THandle;
TextPtr: PChar;
MyString: string;
begin
Result:=FALSE;
if Buf<>NIL then begin
Buf.Clear;
if Clipboard.HasFormat(CF_TEXT) then begin
ClipBoard.Open;
try
MyHandle := Clipboard.GetAsHandle(CF_TEXT);
TextPtr := GlobalLock(MyHandle);
Buf.SetText(TextPtr);
GlobalUnlock(MyHandle);
if ClearAfter then ClipBoard.Clear;
if Buf.Count>0 then begin
Result:=TRUE;
end;
finally
Clipboard.Close;
end;
end;
end;
end;
//----------------------------------------------------Как использовать функцию :
//----------------------------------------------------
Var
List : TStrings;
begin
List := TStringList.Create;
TRY
GetFromClipboardToList(List, false);
...
...
...
FINALLY
if List<>NIL then begin
List.Clear;
List.Free;
List:=NIL;
end;
END;
end;
//----------------------------------------------------
