说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB怎样在DELPHI中使用API函数

HTML文档下载 WORD文档下载 PDF文档下载
VB怎样在DELPHI中使用API函数

 
  实际上,在DELPHI中调用WIN32 API函数与在C或C++中调用WIN32 API函数没有大的区别。DELPHI中将C或C++中引用 的WINDOWS.H头文件改写为WINDOWS.PAS单元,使WINDOWS API函数的定义符合PASCAL语法。而其他的头文件在DELPHI中也都有相应的.PAS单元一一对应,所以在DELPHI中调用API函数时,只须将相应的API函数单元加入到USES语句的单元之中,便可直接调用相应的函数了。

  下面我们来看一个简单的例子,程序的作用是改变桌面墙纸:

  unit Unit1;
  interface
  {Windows.PAS是DELPHI提供的标准单元,我们要调用API函数,需要引用这个单元}
  uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
  type
    TForm1 = class(TForm);
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private { Private declarations }
    public { Public declarations }
  end;
  var Form1: TForm1;        
  implementation {$R *.DFM}
  procedure TForm1.Button1Click(Sender: TObject);
  var filename1:string;
  begin
    filename1:='c:\windows\mywallpaper.bmp';
    {调用API函数SystemParametersInfo来设置桌面墙纸的图片文件为'c:\windows\mywallpaper.bmp'}
    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,pchar(filename1), SPIF_UPDATEINIFILE);
  end;
  end.

  其中SystemParametersInfo函数的参数的意义如下表:

参数: 意义
uAction Longint,指定要设置的参数。参考uAction常数表
uParam Longint,参考uAction常数表
lpvParam 不定,按引用调用的Integer、Longint和数据结构。
fuWinIni 参数规定了在设置系统参数的时候,是否应更新用户设置参数
常数SPIF_UPDATEINIFILE表示更新

  下面是本例的uAction常数,和使用它的方法:

参数 意义和使用方法
SPI_SETDESKWALLPAPER 设置桌面背景墙纸,用法为:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, 图片路径, 1)

  好了在DELPHI中调用API函数就是这样简单,我们需要知道的只是API函数的意义和参数列表,然后把它用到程序中就可以了。需要提醒的是C的数据类型可能会与DELPHI的数据类型有些不同,而调用API函数时必须保证类型一致才行,这是我们必须注意的一点
MDCC 2015移动开发者大会 八大技术专场首批议题剧透 Apple TV指南:从零开始用Swift开发个tvOS应用 React Native、开源:MDCC平台与技术Android专场全揭秘! 相约MDCC 2015 首批免费展位破茧而出 MDCC 2015召开在即,平台与技术iOS专场大咖来了! 一个iOS开发者对tvOS SDK的初探 前Twitter iOS技术团队负责人:使用第三方库的四大准则 【SDCC讲师专访】巨杉数据库创始人兼CTO王涛:SequoiaDB为何要开源? 对话函数式编程语言Roy之父Brian Mckenna GitLab获400万美元A轮融资,GitLab 8.0将很快到来 【CTO讲堂】如何构建高可用和可伸缩的架构? 未来程序员会被机器取代吗? React Native实战(一):配置和起步 集聚MDCC 2015 免费展位第二波正式放出 【深入浅出Koa】入门知识,带你以现代化开发方式构建Web应用 升级到Node V4的七个理由 支持大量ES6特性 像写SQL一样编写Java数据应用 Swift 2.0实战:如何实现从非零下标遍历数组? 手把手教学:在iOS 8中使用Cocoapods 交互技术前沿与应用实战:MDCC虚拟现实专场议程揭晓 解密“攻城狮使用手册” 技术专家齐聚!MDCC 2015精彩日程全曝光 基于ActiveMQ的消息中间件系统 OneMM逻辑与物理架构设计详解 John Carmack大神亲操刀,为Oculus开发Netflix应用 React Native实战(二):Android的打包 独立游戏的成功秘诀:好设计才是王道 Swift 2.1的新变化 Apple TV实战:用TVML开发第一款tvOS应用 【SDCC讲师专访】阿里王晶昱:云时代的分布式数据库DRDS 硬件研发、嵌入式技术演进:MDCC IoT峰会日程揭晓 专访百度知道iOS团队负责人孙源:代码强迫症的死实践派 用InstallShield如何安装COM+组件 帮我看看!先给100,答玩再给100 有谁能告诉我怎么使用索尼DSC-F717相机的“扩展”功能? 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 进程外组件的关于注册的问题? jsp中怎样生成静态页面 请问:如何返回webservice类的一个或多个实例? 怎样触发另一个窗口中的javascript函数? 谁能提供一些检测内存泄露的工具或方法 如何将 FoxBase 中的数据导入到 SQL Server 中? 求助:API操作注册表出现奇怪问题 请问如何改变windows xp中的用户的登陆顺序 有问题:如何通过页面下载附件? 离子共存时,是否有电性? 如图所示,固定的竖直轨道CD是光滑的四分之一圆弧,其最低点C的切线水平,半径R=0.3m.光滑水平面上,长L=2m的平板车上表面与C登高.车的左端A处放一质量m=1kg的小物块,物块与小车间的动摩擦因数 hypermesh划分的壳单元(shell63),对于两个component上的单元,可以做一个连接么? 一粒钢珠从静止状态开始自由下落,然后陷入泥潭中.若把在空中下落过程称为1,进入泥潭过程为2,则A,过程Ⅰ中钢珠动量改变等于重力的冲量B,过程Ⅱ中阻力冲量的大小等于过程Ⅰ中重力冲量的 境界究竟是何界?所以事物 vertify,confirm.certify之间用法有什么区别如题,例句:this result merely ____earilier american studies.填哪个,它们三者之间又是用如何应用的 质量为m的小球从离泥潭高好H出由静止落下,不计空气阻力,落在泥潭上又深入泥潭h后停止,求小球在泥潭中运动时所受平均阻力多大? 如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦.将a、b两小球分别从两轨道右侧正 核电厂设备分级中 1E的字面含义是什么?是什么单词的缩写吗? 叶绿素不能添加在酸性食品中吗 谁能给我一些初二物理的题目?麻烦各位大虾了 请问在hypermesh里面怎么将材料属性赋值给单元啊? 抛物线的准线,焦点分别指什么? 题目来问我,科学 秦山核电站能抗几级地震? 超声波去除眼袋怎样 题目来问我,科学的 hypermesh中怎么建立弹簧单元 谁做过超声波去眼袋 AB是两个地震观测点,他们相距200千米,A测得在AB两点连线的左侧32°方向上有地震B测得在AB两点连线的方向左侧43°方向上有地震,请你根据图形,计算出震中点C到观测点B的距离 核电站与地震是否有必要担心 超声波去眼袋的优势有哪些? 螃蟹吃高粱—— (写歇后语) HyperMesh 材料属性中密度是那个单词 p/e值与p/b如何计算,如何根据p/e与p/b值分析股票内在价值 爱情的最高境界是什么样求大神帮助 请教一道关于判断电势高低的题有一用均匀导线做成的正方形线框ABCD(以左上角为顶点A,右上角为顶点B),正方形的一半放在和纸面垂直向里的匀强磁场中,当磁场的磁感应强度均匀增强时,试 怎么求电流最大变化率 股票是什么? 入秋的高梁,老来红 20℃,把50g硝酸钾投入80g水中,得到的溶液中溶质的质量分数是( )%(20℃时,硝酸钾的溶解度为31.6g)20℃,200gKNO3饱和溶液蒸发掉50g水后,仍保持在20℃,则析出KNO3晶体的质量为-------g 洛论兹力永远不做功吗? 有没有英语超级好的人.马上考英语了. 电路中的比例R1等于10欧 R2等于30欧 将它们并联在电路中,通过R1的电流为I1,将它们串联字电路中,通过R2的电流为I2 则I1比I2为? 抛物线准线、焦点点P是抛物线Y2=2X上的一个动点,则点P到(0,2)的距离与点P到该抛物线准线的距离之和的最小值为多少? 爱到什么程度,就是最高境界. 对如何解决留守儿童的入学问题,与会者提出了认真地意见和建议【修改病句】求求求求求求求求求求求 抛物线的准线和焦点表达 高粱开花——(歇后语)求大神帮助 留守儿童的学习与生活环境使我们关注修改病句 关于四川地震的作文400—500字 爱情的最高境界是什么啊? “进一步强化政府对留守儿童的责任,建立关爱留守儿童的长效机制,是解决留守儿童问题的关键”是病句吗? 动作电位如何沿神经元传导 cf里哪个区人最多!哪个区好点? 讲质量m=3kg的一块石头从离地面H=3m高处由静止开始释放,落入泥潭并陷入泥中h=10cm深处,不计空气阻力,求泥对石头的平均阻力.g=10. 光的折射 透镜 填空1.用照相机拍摄相片时,景物到镜头的距离要____________,所成的像是一个____________________________像. 一位同学看到闪电开始计时,经3秒后听到雷鸣声,则打雷处距该同学多远?这种问题需要考虑光的传播速度吗? 电流的变化率是什么,具体可以用什么来衡量, 从神经元两端向中间传导的两个动作电位相遇后为什么会抵消 爱的最高境界究竟是什么? 小明同学在使用天平称量物体时,不论是增加砝码,还是减少砝码都不能使天平达到平衡,于是他通过调节平衡螺母是天平达到平衡,请分析他的这种做法的结果 同学们我想问哈,生物里的生态营养结构是不是指是食物网呢?还有,在碳循环过程中,碳的形式是答有机物还是二氧化碳呢,要分什么情况啊? 在同一地点看到闪电之后三秒听到打雷,问打雷地点距离多少? 我28岁优质精子5.92%,1级精子14.49%,2级精子30.81,3级精子6.32,2级+3级37.13%,PH值6.4,畸形0这样能怀孕吗,我该怎么办啊,应该去哪里看比较好啊? 一道碳氧循环的初中生物题是不是所有的箭头指向的是二氧化碳库?即A是不是里面所有生物 BEFD箭头指向的是分解者?此道理在题目中是否适用? 谁能介绍下confirm用法 等离子是否显电性 一次闪电 经过4秒听见雷声 问闪电在多元的地方 核电,核能发电站,1E级与非1E级指的是什么,有什么区别?核电,核能发电站,1E级与非1E级指的是什么,有什么区别? 吉议会否决吉加金矿开采合作备忘录 股马达加斯加大选民众盼稳定 中国应邀派逾2.8万人白宫网站请愿 “杀光中国联合国继续准备销毁叙化武 瑞典提供运默克尔打破沉默亲评美监听事件:朋友间韩军警在韩日争议岛演练登陆 旨在抵御贝卢斯科尼女友否认系同性恋 索赔千万伊核问题引美以分歧 美同意合法保留以俄外交官被指在美国招募间谍 美联邦调沙特表态将与美国保持距离 美官员:这奥巴马敦促国会通过移民改革法 称有利日媒:五艘中国军舰穿过日本冲绳本岛与韩媒称韩高官暗示将引进美国“萨德”反奥斯卡影后赞与查尔斯王子跳舞比“亲热韩国法院:研究低估三星芯片厂对人体的马达加斯加总统选举开始 或有望解决该美研究称已婚者比单身汉更长寿 但容易男子用数百公斤大南瓜造船 划水距离创韩国前科技官员称福岛土壤污染可通过微俄外交官被指在美国招募间谍 美联邦调外交部:中印重申双方不将其军事能力用相机视界杭州开摘“法净禅茶”灿烂童心在童话里闪耀钻石后盖用来去角质一次春日之约 一场欢购盛宴玩起互联网概念中国出版集团副总裁等三人涉嫌违纪立案泸州白酒已形成了完整的“微笑曲线”首届恭王府“福”文化节开幕我国增派船只继续搜寻团中央书记处举行第七次集体学习人间四月天 陪你赏花去非洲打工老板消失 策划绑架南充被抓创8个月以来新低信息化将直接引入餐饮行业蓬安也有动物大迁徙 4月中旬去看看吧如果杭州限牌了……鱼翅燕窝不得上桌“三单”齐全才报账九旬老人无所依 巡回法庭家门口调解15岁少年 伤人纵火为哪般?新车月增2万辆 成都暂不考虑控制总量
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘