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

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函数时必须保证类型一致才行,这是我们必须注意的一点
这些科技产品和革新或在今年“横空出世”?! 现代Objective-C七宗罪 Google工程总监Ray Kurzweil意欲打造“虚拟朋友” 惠普开源JavaScript框架Enyo更新:支持桌面和移动平台 分析:三星或将成为科技行业第五巨头 是真的 诺基亚真有可能推Android手机 如何打造IE10的指尖触碰式用户体验 SUSE全球OEM联盟总监:为何SAP HANA只选择SUSE? 推荐2013年最佳PHP开发框架 Patrick Wyatt:代码没问题 程序却有bug? NoSQL的可靠性及扩展操作 最新Skype加密技术:“无声”通话能躲过FBI监听 谷歌锁死SDK,能阻止Android碎片化吗? KitCam团队专访:为应用做加法也能雄踞榜首 谷歌哭了:Replicant 4.0 SDK发布搅乱大局 忍者神龟与禅宗启示:如何突破移动广告困境 Linux会是更好的游戏平台?暴雪是这么认为的! 新型恶意软件瞄准Java服务器 AWS被纳为“战略物资”市值或可达到300亿美元? 十张图带你入门Map/Reduce 低端Android野心,Intel发布Atom Z2420处理器 淘宝网的技术发展史(一)——个人网站时代 看Pinterest如何通过架构变化将EC2成本降低了62% 内容vs渠道:法国电信商Free叫板Google 让网站成为应用:Firefox OS掀起革命风潮 屌丝伞兵的逆袭:4人+盛大+远程+最佳手游 新年头彩:Chartboost喜获1900万美元融资 高富帅跻身移动领域 福特开放车载声控API 传低端iPhone最低只要99美元 你怎么看? 辉煌不再 Encanto超级计算机可能被拆分“出售” 知己知彼 企业应用移足云端必须清楚的10大方面 如何赋值给存储过程的datetime类型参数呢? dos界面下如何用dll调用一个.exe文件? 关于CELL粘贴图片 请问怎么样才能在一个软件启动后显示系统的某些信息 如何创建ADO的ConnectionString ? oracle 连接问题 我想考scjp,我想了解它的时效性,意思是几年之内不用再考一遍 怎么获取服务器端机器名称 关于delphi开发工具与其他开发工具的比较? dos界面下如何用dll调用一个.exe文件 dos下如何设置硬盘的电源管理。关闭硬盘停止响应功能的命令。谢谢 Python news 3-19 客户端会出现commandtext does not return a result set提示怎么办? 在BCB中,怎样向一个存储过程的一个DateTime类型的输入参数传递值??????? 我在datawindow中加个按钮,script在那里写,请帮帮忙 祝檬檬生日快乐~~~~~! win2K pro版无法启动! QueryPerformCounter()函数的用法? 求教:如何在delphi 5 中使用HTML Help(.CHM) 神经元网络BP算法源代码? =急=急=急=这个SQL语句是什么意思?? 从数据库读出的一个问题 我昨天在使用过程中发现如下问题,希望能得到您的答复! 请教一个如何写如下的存储过程:查找'abcd',允许错两个字符(错误位置任意),例如'abef'可以, 但是'aefg'不行 小弟学习c有一段时间,究竟学到什么程度才能开始学c++呀? 各位,有没有碰到过这种情况! =急=急=急=大家来看看这个SQL语句是什么意思~~ 在ACESS2000的查询中如何/可否使用ISNULL函数。请举例。 c++ 搞什么呀?不是说有专家回答吗?人呢? blob字段的长度限制是:????? 这样的公司我呆下去还有没有意义? unix 消息队列 这是什么意思??? XML还有什么好处? 读写文本文件的问题??急 程序中每一个按钮和动作对应一个存储过程好吗? 按回车键时,在TEXT中输入大于号怎么实现,谢谢! 请问高手:怎样在interDev6.0中调试程序??? 在jb6中,如何制作包含jdbc和自定义包的jar文件。 问一个很菜的问题:怎么使用编译器? 一个让我头疼的问题,大家来帮帮我! 送分!!!送分!!!!救命救命!!一共200分 何处有单独的SQL Anywhere 5.5下载,只是驱动一下,并不用PowerBuilder开发 www.%s.co.cn如何解决? 请问怎样用VBA将office文档转换为txt文件?? 绝对超难问题,答对的话给50分!!! 为学java散分 说说borland c++的发展史吧 谁能告诉哪里能申请教育网的免费邮件地址,或你给我一个算了,100分给你! BP神经元网络算法的原代码 关于电场强度和电势下列说法正确的是A.具有不规则表面的导体带有电荷时,表面处处等势B.场强大的地方,电势一定高C.场强为零的地方,电势一定为零D.带正电荷的物体的电势一定为正求解释 把原子核和电子所带电荷的电荷用正负数表示出来科学实验表明原子核与电子所带电荷是两种相反的电荷,物理学规定原子核所带电荷为正电荷,氢原子中的原子核与电子各带一个电荷,把它们 紫外测COD波长为什么是254 一半径为R的绝缘球壳上均匀带有+Q的电荷,球心O上场强为零,挖去半径为r的小圆孔求圆心场强和方向 小孩子玩的哪个吹泡泡的是叫什么的? 吹出来的美丽的肥皂泡,求它的配方 奶粉中蛋白质含量为15%-20%,蛋白质按氮量平均为16%,若某1袋品牌奶粉400g中加了1g三聚氰铵,相当于增加了 g蛋白质.奶粉中含蛋白质15%——20%.蛋白质中含氮量平均为16%我知道答案 但是不懂为什么 请问小孩子吹泡泡用的那种液体是用什么化水最好 如何快速提高数学和英语成绩(高中的) 真空中的两个点电荷A,B相距20cm,A带正电Q=4.0×10-10C.已知A对B的吸引力为F=5.4×10-8N,则B在A处产生的场强为多少?请给出具体过程,O(∩_∩)O谢谢 晶胞类型有哪些.经常做题问该晶胞属于哪种晶胞类型.总共有哪些?难道还有复杂的. 怎么快速提高数学英语成绩我是高二文科生 高中物理电场强度题目一微粒质量为m,电荷量为+q,以初速度v跟水平方向成45度角斜向上进入匀强电场区域,粒子恰沿直线运动,求这匀强电场场强的最小值,并说明方向. 电容器,一边接地的接地的那边代表什么意思呢? 怎样快速提高英语数学成绩?我现在初三,初二初三的时候数学英语都没学,根本不懂,现在离中考还有两个月.怎样快速提高成绩? 哪里可以下载初中数学概念大全?初一初二初三的、还有英语 六年级月考复习的方法.我语文和英语读挺好的,就是数学.有什么方法把数学弄上去?叫我点方法和经验.月考遇到不会做的数学题怎么办?月考语数英怎么复习?遇到不会做的数学题怎样解方程? 晶胞的理解? 水平放置的两块平行金属板A、B相距为d,电容为c,开始两板均不带电,A板接地且中央有孔.现将带电荷量...水平放置的两块平行金属板A、B相距为d,电容为c,开始两板均不带电,A板接地且中央有孔. 电场力的方向怎么判断?静电力的方向是指同性相斥,异性相吸是吗?那在物理选修3-1里的电场强度的实验,左边的三个试探电荷的箭头不都指向左边,而右边的不都指向右边吗?那个是什么的方向 什么是超晶胞 相距为d,水平放置的两金属板a,b的电容为C,开始时都不带电,a接地且中间有孔现将带电量为Q,质量为m的带电液一滴一滴从小孔正上方h处无初速地滴下,竖直落到b板上层,电荷全被b板吸收,重力加 一个质量为2*10^-16千克的带正电的油滴,静止在两块相距3.2cm水平放置的平行金属板之间,则两极板之间电压的最大可能是A800v B600v C400v D200v 蛋白质中含氮量平均为16%,以某合格奶粉蛋白质含量为18%计算,含氮量为? 过硫酸钾氧化-紫外分光光度法测总氮220nm波长吸光度过高我用过硫酸钾氧化-紫外分光光度法测总氮时在220nm波长的吸光值都是大于1(用的硝酸钾标准液的浓度时10ug/L硝酸钾),而在275nm波长的 某原子的相对原子质量为X可以形成带两个单位正电荷的阳离子该阳离子核外电子总数为Y则该原子核电荷数为 肥皂泡是如何制作的?怎样配制这种溶液?我要做一个魔术,要吹出得泡泡时间持久的肥皂液. 碱性过硫酸钾紫外分光光度法测定水中总氮时,为什么要在两个波长测定吸光度? 带电荷的原子团一定是阳离子 如何制作美丽的“肥皂泡”? 总氮的测定:碱性过硫酸钾分光光度法测总氮我加完碱性过硫酸钾怎么不显色啊加氮完也不显谁知道为什么啊 若原子得到电子形成带负电荷的阴离子,微粒半径____;原子失去电子形成带正电荷的阳离子,微粒半径____老师还没讲~分别是变大、变小还是不变? 如何做肥皂泡 我刚刚开始做水中总氮的实验,碱性过硫酸钾紫外分光光度法, 某品牌合格奶粉蛋白质含量为18%含氮量为2.88% 电容器为什么要接地接地是为了电势为零 那你直接规定那一极电势为零就行了 还接地干嘛接地电荷还会改变 使情况更复杂 小明每分钟吹一次肥皂泡,每次恰好吹出100个,肥皂泡吹出之后,经过一分钟有一半破了,经过二分钟还有1/20没有破,经过两分半钟肥皂泡全破了,小明在第20次吹出100个新的肥皂泡的时候,没有破的 某品牌合格奶粉蛋白质含量为18%,含氮量为2.88%(假设奶粉中的含氮量全部来自蛋白质).若每某品牌合格奶粉蛋白质含量为18%,含氮量为2.88%(假设奶粉中的含氮量全部来自蛋白质).若每100g奶 肥皂泡如何制作,注意,不要胶水,而且泡泡吹出来要好看,一连可以吹出很多个泡泡! 小华每分钟吹一次肥皂泡,每次恰好吹100个.肥皂泡吹出后,经过一分钟有一半破了,经过两分钟还有二十分 以100g某合格奶粉蛋白质含量喂18%计算,含氮量为2.88%,若该奶粉中60%的氮元素用加入三聚氰胺的办法提供,则需加多少克三聚氰胺才能使奶粉合格 晶胞参数的求法设一个原子的半径为R,那么体心立方堆积的晶胞参数为R=根号(3)/4*a;金刚石型堆积的晶胞参数为R=根号(3)/8*a.问个很菜的问题,这些答案是怎么推导出来的...最好有图解... 亮亮每分钟吹一次肥皂泡,每次恰好吹出100个.肥皂泡吹出之后,经过一分钟有一半破了,经过两分钟后还有二十分之一没有破,经过两分半钟肥皂泡全部破了.小明在第100次吹出100个新的肥皂泡 高中物理电场强度题如图,在光滑绝缘水平面上,三个带电小球a、b和c分别位于边长为l的正三角形的三个顶点上;a、b带正电电荷量均为q,c带负电.整个系统置于方向水平的匀强电场中.已知静电 电容接地数字芯片中,数字地接一电容作用.我也知道大概就是过滤 防干扰吧 原理是什么呢? 牛吃草问题:小军每分钟吹一次肥皂泡,每次恰好吹出100个,肥皂泡吹出后,一分钟后一半破了,两分钟后还有二十分之一没破,两分半以后全破了.那么,小军在吹完第20次后,还有多少个肥皂泡没破 电场强度处处相同的区域内,电势也一定出处处相同.为什么不对? 谁教我怎么判断由吸电子/斥电子效应而导致的原子带电荷正负情况?1L 我说的是有机 肥皂泡?小明每分钟吹一次肥皂泡,每次恰好吹出180个,肥皂泡吹出之后,经过一分钟有一半破了,经过两分钟还有百分之5没有破,经过两分半钟肥皂泡全破了,小明在第30次吹了80个新的肥皂泡的时 一半径为R,电荷量为Q的均匀带点球体,设无穷远处电势为0,求1球体内外电场强度分布2球体内外电势分布 某品牌合格奶粉蛋白质含量为18%,含氮量为2.88%.每100克奶粉中添加0.1克三聚氰胺,理论上能增加多少克蛋白质某品牌合格奶粉蛋白质含量为18%,含氮量为2.88%(假设奶粉中的含氮量全部来自蛋白质) 我总是不会找晶胞,谁能教教我?是不是晶胞向左向右向上向下平移后会重合? 金属锡的原子核带有50个原电荷,他的原子核外带有多少个电子这些电子总共带多少库仑的电荷?为什么金属锡对外不显电性? 原子呈中性是因为原子中的正负电荷数量相等还是因为原子中的正负电荷互相抵消了 请问电容接地有什么用? 静电场中电场强度处处相同的区域内,电势也一定出处处相同吗? 静电是正负电荷的其中一个吗?电与电荷的区别是什么? 紫外分光光度法测定COD用纯水调零还是空气调零为什么 电场强度大的地方是否电势就高?电势高的地方是否电场强度就大?如题 期待详解 在线ing. 原子所带的正负电荷数一定相同吗?请举例说明下 国标COD检测 空白试验的值有多少空白试验中消耗硫酸亚铁铵标准溶液的用量
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘