|
Платные хостинги
Раскрутка сайта
Книги по программированию
Работа с Clipboard, Присвоить строковой переменной...
- Здравствуйте уважаемы мастера Delphi!!! Хотел спросить у вас, как можно содержимое буфера обмена (ClipBoard) поместить в строковую переменную. Пример:var stroka:string;...stroka:=Clipboard........Как это сделать я не знаю, вот и спрашиваю у вас! Заранее спасибо за ответ, буду очень благодарен.
- Код Uses ClipBrd;...Var Stroka: String;Begin Stroka := Clipboard.AsText;End;highlightSyntax('delphimODM=','delphi'); Это сообщение отредактировал Rrader - 9.5.2005, 02:49
- Это самый простой способ. Однако, когда-то, мне нужна была маленькая программа, а модуль ClipBrd резко увеличивал ее объем (не помню уже на сколько, то ли на 75К, то ли на все 300К). А из него мне нужна была только вставка и копирование текста... Поэтому покромсав модуль ClipBrd я написал свой.Код unit ClipBoard;interfaceuses windows;procedure Init (wnd : hWnd);function SetText(const s : string) : boolean;function GetText: string;implementationvar window : hWnd;procedure Init (wnd : hWnd);begin window := wnd;end; function GetText : string;var Data: THandle;begin if not OpenClipboard(window) then exit; Data := GetClipboardData(CF_TEXT); try if Data <> 0 then Result := PChar(GlobalLock(Data)) else Result := ''; finally if Data <> 0 then GlobalUnlock(Data); CloseClipboard; end;end;function SetText(const s : string) : boolean;var Data: THandle; DataPtr: Pointer;begin result := false; if not OpenClipboard(window) then exit; try Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Length(s)+1); try DataPtr := GlobalLock(Data); try Move(PChar(s)^, DataPtr^, Length(s)+1); EmptyClipboard; SetClipboardData(CF_TEXT, Data); finally GlobalUnlock(Data); end; except GlobalFree(Data); raise; end; finally result := CloseClipboard; end;end;end.highlightSyntax('delphiGMzMjg','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
