delphi clipboard

判断clipboard里的格式:

if   CliPBoard.HasFormat(CF_TEXT)   then  
      EdIT1.Text   :=   CliPBoard.AsText

从clipboard中取数据:

①str:= clipboard.AsText;

②imgMain.Picture.Assign(ClipBoard);//要求格式相同

锁定和解锁:

GlobalLock(Handle)

GlobalUnlock(Handle)

时间: 2024-11-10 01:23:14

delphi clipboard的相关文章

c++builder Delphi 直接使用剪贴板 Clipboard

delphi use  Vcl.Clipbrd procedure TForm27.FormCreate(Sender: TObject);begin  Caption := Clipboard.AsText;end; 不用创建对象,直接使用剪贴板 #include <Vcl.Clipbrd.hpp> Caption = Clipboard()->AsText'

DELPHI下API简述(1800个API)

DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 auxOutMessage API 向输出设备发送消息 auxSetVolume API 设置附属设备卷 AbortDoc API 终止一项打印作业 AbortPath API 终止或取消DC中的一切路径 AbortPrinter API

Delphi 获取网站验证码的图片

[delphi] view plain copy print? uses ActiveX,ComObj; procedure TfrmMain.FormCreate(Sender: TObject); begin OleInitialize(nil); end; procedure TfrmMain.DomImg2Image(wb:TWebBrowser); var i:Integer; rang:IHTMLControlRange; s:string; begin try //pic是图片的节

Delphi I/O Errors(几百种不同的错误)

The following are the Windows API (and former DOS) IO errors, which are also the IO errors often returned by Delphi programs, and which are generally difficult to find reference for, and are especially difficult to find referenced as Delphi errors. S

delphi CXGRID用法 (取行、列值;定位选中某行等等)

CXGRID用法 (取行.列值:定位选中某行等等) Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行 cxGrid1DBTableView1.Controller.FocusedColumn 当前列 cxGrid1DBTableView1.Controller.Focused

Delphi 导出数据至Excel的7种方法【转】

转自:http://blog.csdn.net/zang141588761/article/details/52275948 一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; a

delphi WebBrowser控件上网页验证码图片识别教程(一)

步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm1.BitBtn1Click(Sender: TObject); var I:Integer; begin for I:=0 to WebBrowser1.OleObject.document.images.length-1 do Memo1.Lines.Add(WebBrowser1.OleObj

delphi备份恢复剪切板

http://blog.csdn.net/youthon/article/details/7327776 分类:            Delphi编程2012-03-07 10:31578人阅读评论(0)收藏举报 delphidestructorconstructorintegerclasswindows 看了季世平老兄的C++代码后翻译过来的 [delphi] view plaincopyprint? unit clipbak; interface uses SysUtils, Classe

delphi备份恢复剪切板(使用了GlobalLock API函数和CopyMemory)

看了季世平老兄的C++代码后翻译过来的 [delphi] view plain copy unit clipbak; interface uses SysUtils, Classes, Clipbrd, Windows, Contnrs; type TClipData = class Format: WORD; Data: THANDLE; end; TClipBackuper = class private ClipList: TList; public constructor Create;