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

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函数时必须保证类型一致才行,这是我们必须注意的一点
软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” 这是个神奇的国度:细数五大印度裔IT牛人CEO Atmel CMO Sander Arts眼中的创客运动 Unity“三巨头”:全心全意为开发者服务 全球移动广告现状报告:哪种平台、应用最赚钱? 《近匠》Smart Wallit,钱包找不到了?给它“打个电话”吧 Mozilla新CTO:JavaScript、 Firefox OS专家Andreas Gal 李彦宏发布百度大数据引擎,及与谷歌、亚马逊等类似项目对比 大数据领域,实时打击欺诈犯罪的4个战场 一周消息树:谷歌Project Ara,将开启下一个智能手机时代 数据恢复服务商的6个最佳实践 【走近讲师】谭晓生:魔高一尺道高一丈,360基于大数据的网络攻击检测 一周热点:摩尔定律让位于贝索斯定律 阿里巴巴集团CTO王坚确认出席第六届中国云计算大会 【走近讲师】青云甘泉:混合云的构建及其对企业的帮助 RadiumOne创始人兼CEO因家暴被公司解雇 3D打印狂潮:可检测皮肤疾病的低价手机显微镜 浅谈导航设计,开发者必备的十大实用技巧 【云先锋 41】上海越诚:基于云服务的建站类iService软件超市 董西成:Hadoop将在高速发展和完善中扩大优势! 【走近讲师】 华云数据郁珉:公有云市场八仙过海 价格不是唯一标准! Facebook、Twitter、Google移动广告之争 开发者的黄金时代=运维人员的恶梦? 研发团队平稳度过“从小到大”并非易事 诺基亚品牌手机不久将消失 Stephen Elop回应不是木马 看七家科技公司Logo的最初模样 移动UI框架Fries:私人定制最Sexy的用户界面 必须Mark!最佳HTML5应用开发工具推荐 百度技术开放日感悟:看百度如何获取大数据时代的“船票” 求教flash/存储卡开发 急救!如何再VB中把罗马数字和阿拉伯数字互相转换! dataGrid问题 在线等待 win2k server配了ad和dns后新开了很多端口,它们都是干什么的? 我的cb6怎么了?? 那位大哥能给我一个qq号?1000分酬谢? JBuilder7+Weblogic7+SQLServer2000的一个简单问题! 请问哪里有vfp的电子书? 3com Switch 1100 不能用了,怎么处理 急:怎样用crontab生成sa文件记录每天机器的耗内存情况? usb的通信问题,进者有分! 如何让WIN 2000 Prefession 装上服务器端 键盘delete怎么调用? 用Asp怎么得到用戶的機器名? 《Java与模式》一书作者的专栏 各位长老,如何修改本机的网关并让其立即生效? 关于数据表查询的问题? 创建二叉树及遍历的问题 高手请进! 研究生到底上些什么课,偶想知道,好明确自己的方向,请知道的朋友来谈谈。 如何在ASP.NET中连接PROGRESS数据库? VC中如何调用VB写的 DLL中的函数? 如何在程序背景中添加背景图片? postgreSQL中文问题 那里有informix的书下载 高分求助 MPEG4的视频问题 想为TListBox组件添加水平滚动条,有什么办法 在C#中,与CHTMLView类对应的控件是什么? 我有个小的30万象素的数码照相机,能用vb编程控制它自动照相么? 为什么我编译最基本的java文件总出错,告诉我import javax.servlet.http.*包 在linux下安装应用程序 关于串口的疑难问题 怎么连接数据库啊 请问如何用setfilter检索日期型数据 谁熟悉mpeg4 Audio? 怎么实现在界面上画网络拓补图!!!??? 一个关于企业上网的问题--高分求教 请问各位大哥如何屏蔽掉不想让此IP访问特定的网页? 厦门地区等待程序员办证通知的朋友,谁先知道具体时间请公布! 我调用数据库中的数据时候出现问题了 菜鸟提问! 串口问题 高分求两个文件:分别为tlbimp.exe和excel.dll 50分一个 串口问题 有谁知道HSV和RGB两种颜色模式的转换公式? 关于照片显示,请大家讨论 请教:关于表格的滚动问题 一个关于企业上网的问题--高分求教 数据类型转换问题 有了解“广州南方电信系统软件有限公司”的哥们么,了解一下情况。 有谁知道HSV和RGB两种颜色模式的转换公式? PPT上发标注重点,怎样在重点字上画出红色圆圈?教一下~谢谢啊!~PPT发给别人的时候要标注红色圆圈~~怎么标注? 怎么使用标注框.本人菜鸟,要保存之后发给别人还能看到红色圈圈的那种~~ 想图 煤粉炉的粒度要求是多少,最大2mm可以吗? 重力势能的改变只与物体始末两位置的高度差有关. PPT自选图形旋转后 文字也旋转了 怎么把文字正过来 在12M高的塔上,以一定的初速度竖直上抛一物体,经2S到达地面,则物体抛出去的速度为多大?物体上升的最大高度是多少(离地面高度)?三.甲物体从离地高度为h处自由落下,同时在它的正下方的 When someone walking ahead of you keeps the door open for you , 陶侃惜谷看出陶侃怎样的政治主张?如题 高一物理运动学公式帮我整理一份吧,我是高一新生都没学,不会整理啊人教A版的 如图所示,平直木板AB倾斜放置,板上的P点距A端较近,小物块与木板间的动摩擦因数由A到B逐渐减小,先让物要D的详解如图所示,平直木板AB倾斜放置,板上的P点距A端较近,小物块与木板间的动 急.辩论赛“响鼓也需重锤敲”, 乙酸乙酯含有醚建吗 0 11 -C-O-C 这个酯基中包含醚键吗?O 11 -C-O-C-是这个 求2人对话《The seaside place that you want to visit 我最想参观的海边城市》,20句左右,谁帮我编一段,做好有中文翻译, 桃树上的树脂怎么做菜 吃多了高热量的食物,但再运动很多的话会变肌肉还是消耗脂肪?吃多了高热量的,再运动很多,会形成肌肉?还是消耗脂肪? 操场上滚动的足球具有---能 桃树有··树脂?咱家楼下的桃树树干上长了大大小小的结晶体= =橙黄,浅黄的都有,有点像琥珀那种 咱妈说是桃树分泌的油.所以问问呢,这是啥东西~用来干什么的? 哪类食物不提供能量,哪种运动最消耗能量怎么减去小腿肌肉 急就这样了 miao~ 足球停在操场上,被人踢了一脚,开始在操场上滚动,同时速度逐渐减少,最后停下了,问:(1)足球从静止变为运动的原因是什么?(2)足球被踢出后,不再受脚的作用力,为什么足球还能在草地上 我家桃树为什么出了好多树脂?还有桃树上的桃子将要成熟时就会烂掉?这是为什么啊? 急!哪位化学高手告诉我一下如何判断化合物中是否含有σ键或者是π键,离域π键如题 足球停在操场上,被人踢了一脚,开始在操场上滚动,同时速度逐渐减小,最后停下来,足球从静止变为运动的原因是什么? 熟鸡蛋撞生鸡蛋,为什么熟鸡蛋先碎 选择 下面不是谁地里的微生物是( ) A、鼓藻 B、草履虫 C、水蚤 D、青霉菌 冬天怎么才能防止手龟裂? 我想利用发动机转速来带动车轮转动,请问怎么计算转速!比如 轮胎直径是70,发动机转速在2000转的时候我想利用发动机转速来带动车轮转动,请问怎么计算时速!比如 轮胎直径是70,发动机转速在 he tried hard but couldn't____the reason why she kept silence at the meetingAlook for Bfind Cfind out Dlook after 草履虫与水蚤,养在一起会发生什么,为什么 飞机起飞前在地面行驶,是靠轮胎转动还是靠引擎的推力? She couldn,t help thinkingabout the matter成分分析 夜深了,我望着沙发上鼓鼓的书包,深深地叹了一口气,我累了,我渐渐进入了梦想.作文400字 发动机转速不变,把车轮掉在空中的转动速度和在路上的转动速度一样吗?如果不一样哪个比较快?原因?我提问车子吊在空中和陆地上哪个的移动速度快主要就是为了了解摩擦力究竟会减速还是 血浆中的水来自哪?为什么? 响鼓不用重锤作文 女高音歌唱家的声带是宽还是窄? 内能转化为机械能的是1.子弹打入墙中2.火箭发射后,在他进入轨道之前的运行过程3.刀在石头上被磨得发烫4.篮球撞到地面上又被弹回来 根据《喇叭和鼓》这则寓言写一篇作文(400字左右)喇叭问鼓:“平心而论,我一旦吹奏起来,比你动听多了,可是为什么人们还是更爱你呢?”  鼓回答说:“因为你只喜欢在成功之后去捧场 take we kiss and lock(er) up. “响鼓也要重锤敲”有什么事例?如《伤仲永》一文中所说,本为“神童”,但因不加以鞭策,不加努力,最终“泯然众人矣”,求找多几个类似的素材,正面反面素材都可以, 在含2摩尔硫酸的浓硫酸中加入足量锌粉,本使之充分反映,则下列推断错误的是 1,放出的气体为二氧化硫和氢气2只放出二氧化硫气体,其物质量为一摩尔3反应结束时转移电子的无质量为四摩尔. 陶侃是一个什么样的人 高一物理学法指导? 在硝酸钾溶液中植物细胞质壁分离,质壁分离自动复原的过程中,硝酸钾进入细胞的方式是主动运输还是协助扩散 守护甜心中Humpty Lock和Dumpty Key的中文是什么就是亚梦的锁和几斗的钥匙叫什么 血浆里的水和原尿里的水,哪个多?请各位大哥大姐解答一下! 您好!您有表格式的德语简历么?能够发我一份.249854242 守护甜心里的Dumpty key和Humpty (翻译成中文) 孟德尔遗传规律在哪种生物中不起作用人类 B.玉米 C.蓝藻 甲音叉每分钟振动2000次,乙音叉半分钟振动800次,则甲音叉振动的频率_)选填小于或大于乙音叉振动甲音叉每分钟振动2000次,乙音叉半分钟振动800次,则甲音叉振动的频率_)选填小于或大于乙音叉 《守护甜心》中的Humpty Lock和Dumpty Key~它们结合之后有什么作用?也就是说,解锁之后会怎么样?因为我是最近才听同学讲《守护甜心》很好看,才看了没几集... 求高中地理研究性课题名称(与地理有关的)速度啊~各位 实验中策动力的频率为200Hz,音叉臂的震动频率? 怎样做烤羊肉串 水滴鱼怎么吃 植物细胞在硝酸钾溶液中质壁分离后又复原,请问吸收钾离子及硝酸根时为什么是主动运输. 怎么做烤羊肉串? 微生物实验中的平板冷却倒置是为了避免污染,那倒置过来后水滴不都直接粘到培养基上了吗?还避什么污染啊 植物细胞质壁分离是否与核糖体有关如题植物细胞质壁分离还与什么植物细胞器有关? PPT怎么在文字外面加圆圈想对一个字在最下边加以解释,怎么在这个字后面打一个带有圆圈的1啊? 煤粉粒度太细太粗对锅炉有什么影响 植物细胞里的核糖体练习书上说植物的核糖体不能合成分泌蛋白?怎么回事啊? 澳学生流行靠吃“聪明药”提高成绩引发俄外交官被指在美国招募间谍 美联邦调美国拟投资82亿美元治水 有望以此刺俄称叙利亚军事对峙在加剧 系因种族教日本:中国舰队穿过冲绳本岛与宫古岛间墨西哥糖果厂爆炸致1人死40人伤 仍三名驻阿富汗英军官涉嫌私刑处决塔利班日议员质疑安倍 称应给首相出席国会次逾2.8万人白宫网站请愿 “杀光中国澳联邦贸易部长大赞华为 支持重估宽带新加坡办第四届“亚洲群英会” 特邀名澳大利亚借调英国电信精英助力国际宽带韩军警独岛防御联合演习 抵御外敌“入韩国前科技官员称福岛土壤污染可通过微克里称美国最大威胁非对手 而是内部机日民主党前干事长年内成立新团体 被疑巴西总统批美国监听默克尔 称美反恐理吉议会否决吉加金矿开采合作备忘录 股马达加斯加大选民众盼稳定 中国应邀派逾2.8万人白宫网站请愿 “杀光中国联合国继续准备销毁叙化武 瑞典提供运王伟忠 如果不上舞台我饶不了自己画风富童趣酷爱吃咖喱近九成入海排污口邻近海域水质超标《无人区》领跑古力首轮过关银行异口同声:保客户资金安全中法将签署中长期合作规划希望看到触动心灵的作品(图)欧巴朴施厚想找个中国girl fri姜文怀揣一顶帽子叫“愚蠢”“艾尔”听装黑啤被停售春兰杯-古力首轮惊险过关 中国六人出米歇尔赴成都喂熊猫吃苹果■数读财经男扮女揽客躲检查上树朴槿惠首次会晤安倍没对象丢人等着被人电整治伪基站须打好围剿战《我为喜剧狂》总决赛录制安抚乘客家属马航别躲猫猫日本插画家安西水丸逝世
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘