Windows使用剪贴板观察器和观察链.剪贴板观察器是一个显示剪贴板当前内容的窗口.            通常它应该至少能显示三种普通格式的内容:文字CF_TEXT.位图CF_BITMAP.元文件CF_MET            AFILEPICT.剪贴板观察链是一系列相互独立的剪贴板观察窗口,它们都能够接受当前发送            到剪贴板的内容.我们大致按照以下步骤在窗口中处理有关剪贴板的内容.                            首先,使用SetClipboar

Delphi Excel 操作大全 (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿:ExcelApp.WorkBook

delphi 换行操作 我将我的商用<旅行社管理系统>的 发团通知 部分奉献给您,望对您有所帮助. procedure TFrmMain.N327Click(Sender: TObject); var FWord :Variant; FDoc :Variant; strSQL :string; begin //首先创造对象,如果出现异常就做出提示 try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见,值为false时

/*Title:Delphi摄像头操作 *Author:Insun *Blog:http://yxmhero1989.blog.163.com *From:www.4safer.com */ 为了笔耕不辍,为了way out,为了Dota激情的时候不内疚,偶尔发发. 各种远控软件都有摄像头操作,其实编程起来没什么技术可言. DELPHI一般直接使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程,一般不喜欢TVideoCap控件. 首先常量定义和函数定义: implementation

Delphi内存操作API函数System.IsMemoryManagerSet;System.Move;System.New;System.ReallocMem;System.ReallocMemory;System.SetMemoryManager;System.SysAllocMem;System.SysFreeMem;System.SysGetMem;System.SysReallocMem; SysUtils.DisposeStr;SysUtils.NewStr; TlHelp32.H

这是一个很有意思的地方,很多不了解的人或者初级的js编程者会觉得很不可思议,js都那么强大了,访问剪贴板一个粘贴复制,大概就是一行命令的事情,但是事实如此,js对于访问本地计算机的剪贴板的支持其实是十分滞后的,看起来似乎是一个很小很小的一个功能,其实即使是html5标准里对于剪贴板操作目前也仍处于草案提议阶段,各浏览器有自己各自的部分实现方案,有的甚至根本就没有需要的实现接口,而且事实上,访问剪贴板的接口标准制定并不是那么容易的一件事情,需要考虑的事情有很多方面,具体哪些地方感兴趣的可以参考这里

delphi nethttpclient操作cookie unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Net.URLClient, System.Net.HttpClient, System.Net.Htt

文件是同一种类型元素的有序集合,是内存与外设之间传输数据的渠道.文件的本质是一个数据流,所有的文件实际上是一串二进制序列.文件管理包括:1.文件操作.2.目录操作.3.驱动器操作.三部分. 1.常见文件操作函数和过程.1.1.AssignFile过程作用:将一个外部文件的文件名与一个File类型的变量关联,并对变量进行初始化.原型:procedure AssignFile(var F; FileName: String);F:一个File类型的变量,可以是任何数据类型.FileName:外部文件

摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi  控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题

快捷方式减少了系统的重复文件,是快速启动程序或打开文件或文件夹的方法,快捷方式对经常使用的程序.文件和文件夹非常有用.在Windows系统中,充斥着大量的快捷方式,那么如何操作这些快捷方式就是一个很头疼的问题,在Windows的编程中,无疑会经常碰到操作快捷方式文件的问题,例如为程序创建快捷方式,修改程序的快捷方式等等.为了操作快捷方式,本人封装了两个函数,而且给出了一个详细的例子. 1. 快捷方式文件的基本信息 快捷方式包含的信息有:目标文件名.程序运行时的参数.快捷键.运行窗口的状态.描述.

csfinal90我的:收件箱资源博客空间设置|帮助|退出 首页 业界 移动 云计算 研发 论坛 博客 下载 更多 windzb的专栏 目录视图 摘要视图 订阅 IT俱乐部创始人杜鸿飞专访      2013年10月微软MVP当选名单揭晓!    Tag功能介绍-我们为什么打Tag    "说说家乡的互联网"主题有奖征文    订阅CSDN社区周刊,及时了解社区精华内容 Delphi中文件操作的总结 [转] 2008-02-21 19:00 883人阅读 评论(0) 收藏 举报 del

1.复制文字到剪贴板 CString strText = L"须要拷贝到剪贴板的文字"; if ( ::OpenClipboard(m_hWnd) ) { if ( ::EmptyClipboard() )//清空剪贴板内数据 { int nSize = strText.GetLength()*2+1;//这里是字节数,UNICODE编码每一个字符占2个字节,后面加上一个\0结尾符. HGLOBAL hMem = ::GlobalAlloc(GHND, nSize); byte* pD

我要提醒一下大家,看了我的博文学到的知识,千万不要用于实际开发,不然你会被你的上司骂:“妈的,这些东西哪来的,从来没有人这样做过.”不信你试试,脑细胞被冻结的经理或者技术总监们肯定会这样说的. 如果是一些有X年工作经验(X永远不可能大于100)的程序员肯定会说:“你怎么这么不成熟?”你如果被别人这么说之后,不知道你会不会很伤心,或者很生气? 我呢,曾经被N个人这样教育过,不过你猜猜我当时的心情,我非常高兴,喜悦.为什么呢? 你不妨想想,当一个人说你不成熟的时候,你说他其实在说什么,他其实是在说他

Delphi中默认有input和output两个文件变量,使用可以不用定义,直接使用. 但: input:只读.output:只写.用时注意以免引起异常. 文件是由文件名标识的一组数据的集合,文件通常存放在磁盘上.源程序.学生档案记录.图形.音乐等均可以作为文件存储在磁盘上.操作系统是以文件为单位对数据进行管理的,也就是说,如果想读取外存介质上的数据,必须先按文件名找到所指定的文件,然后再从该文件中读取数据.要向外存介质上存储数据,也必须先建立一个文件(以文件名标识),才能向它输出数据.在程序运

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;

Delphi利用系统环境变量获取常用系统目录 //譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取: var s: string; begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:\WINDOWS} end; 一些系统目录变量列表: --------变量-----------------------------,-------描述------------------------------------

DELPHI 把数据库中的数据转换成XML格式 function ReplaceString(AString: string): string; begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]); Result := StringReplace(Result, '>', '>', [rfReplaceAll]); Result := StringReplace(Result, '<', '&l

输入 procedure TypeKeyString(s: string); var c: Char; i: integer; off: integer; vkw: Word; begin to Length(s) do begin c := s[i]; ) then begin vkw := VkKeyScan(c); off := ; = $ then keybd_event(VK_SHIFT, , off, ); = $ then keybd_event(VK_CONTROL, , off

看你要做什么,比较现在网络很流行的QQ.MSN这些软件都屏蔽了,你可能还可以访问一些小软件的这些控制,思路及方案如下(API函数自己去百度查一下)1.得到你要这个窗口的句柄 使用FindWindow2.利用枚举函数EnumChildWindows把这个窗口里的所有文本框.按钮找到,并得到其句柄,EnumChildWindows需要一个回调函数,你可以在回调函数中把模拟输入,单击双击这些操作加上去 3.在回调函数里,其实就是向你找到的按钮或文本框发送消息消息说明:比如得到文本框中的文字消息:WM_

unit UnitWinUtils; interface uses Windows; Type TDWA128=Array [..] of LongWord; TDWA256=Array [..] of LongWord; TDWA512=Array [..] of LongWord; TDWA1024=Array [..] of LongWord; TDWA4096=..] of LongWord; TDWA32768=..] of LongWord; function GetAllChild

Delphi判断文件夹(目录)是否存在,不存在就创建一个,可以一次创建多级目录 procedure TForm1.Button1Click(Sender: TObject);begin if not FileExists(Edit1.Text) then//if not DirectoryExists(Edit1.Text) then 判断目录是否存在 try begin CreateDir(Edit1.Text); //ForceDirectories(Edit1.Text); 创建目录 en