知识大全 DELPHI中使用API函数的方法

Posted 2022-07-22 函数

篇首语：幽沉谢世事，俯默窥唐虞。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 DELPHI中使用API函数的方法相关的知识，希望对你有一定的参考价值。

DELPHI中使用API函数的方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　DELPHI的文章已经很多了大家是不是被它强大的开发功能所折服？可视化编程的出现使很多朋友圆了程序梦的确几个控件的搭配再加上几条语句也许一个软件就出来了但是你是否已不满足使用别人的元件？想更深入的了解windows的编程？更换的掌握DELPHI？OK 请继续往下看

　　DOS下的INT H对于开发DOS程序很重要而对于在WINDOWS下开发程序了解api函数是很有必要的元件就像招式而API函数就好比内功心法有了高深的内力那么学习招式就易如反掌啦所以掌握的API函数越多你就越可能成为DELPHI高手甚至WINDOWS编程高手所以无论是C＋＋ VB还是DELPHI都无一例外的支持API函数的调用 C＋＋和DELPHI是全面支持API函数而VB仅支持部分API函数（部分也不少了已经有几百条之多）尤其是DELPHI调用API函数最方便已经达到与API函数合二为一的境界调用API函数和使用自身的函数几乎一样下面我将为大家详细讲解API函数在DELPHI中的使用每条语句我都会写个小例子让大家更能明白其是如何使用的如果你认真看完本文后相信大家一定会对DELPHI编程有更深的了解但是千万不要半途而废畏难怕繁记住欲练神功必下苦功！学编程可不是玩游戏不能弄个FPE啥作弊的

　　（一）控件与消息函数

　　①语法 AnyPopup BOOL

　　单元 windows pas（该单元DELPHI会自行在USES里加上下同）

　　作用判断屏幕上是否存在任何弹出式窗口

　　返回值 BOOL 如存在弹出式菜单则返回TRUE

　　注解对该函数来说弹出式菜单包含所有可见的包容顶级窗口无论弹出式还是重叠窗口

　　示例

　　procedure TForm Button Click（Sender Tobject）

　　begin

　　if （AnyPopup） then

　　Label Caption = Pop－ups found TRUE

　　else

　　Label Caption = Pop－ups found FALSE

　　end

　　②语法 EnableWindow（hWnd HWND bEnable BOOL） BOOL 单元 windows pas

　　作用指定的窗口里允许或禁止所有鼠标及键盘输入

　　返回值 BOOL 如果返回真 WINDOWS已经禁止否则返回假

　　示例

　　procedure TForm Button Click（Sender TObject）

　　begin

　　if （IsWindowEnabled（Edit Handle）） then

　　begin

　　EnableWindow（Edit Handle FALSE）

　　Button Caption = Enable Window

　　Edit Text = This window is disabled

　　end

　　else

　　begin

　　EnableWindow（Edit Handle TRUE）

　　Button Caption = Disable Window

　　Edit Text = This window is enabled

　　end

　　③语法 FlashWindow（hWnd HWND bInvert BOOL） BOOL

　　单元 windows pas

　　作用闪烁显示指定窗口这意味着窗口的标题和说明文字会发生变化似乎从活动切换到非活动状态或反向切换通常对不活动的窗口应用这个函数引起用户的注意

　　返回值 BOOL 如窗口在调用前处于活动状态则返回TRUE [Page]

　　注解该函数通常与一个计数器组合使用生成连续的闪烁效果

　　在windows NT及windowsfor workgroup中 bInvert参数会被忽略

　　但在windows 中不会忽略

　　示例

　　procedure TForm Timer Timer（Sender TObject）

　　begin

　　FlashWindow（Form Handle TRUE）

　　FlashWindow（Application handle TRUE）

　　end

　　④语法 SetWindowText（hWnd HWND lpString PChar） BOOL

　　单元 windows pas

　　作用设置窗口的标题文字或控件的内容

　　返回值设置成功返回TRUE 否则返回FALSE

　　示例

　　procedure TForm Button Click（Sender TObject）

　　var

　　TheText PChar

　　TextLen Integer

　　begin

　　TextLen =GetWindowTextLength（Form Handle）

　　GetMem（TheText TextLen）

　　GetWindowText（Form Handle TheText TextLen＋）

　　Edit Text =string（TheText）

　　FreeMem（TheText）

　　end

　　procedure TForm Button Click（Sender TObject）

　　begin

　　SetWindowText（Form Handle PChar（Edit Text））

　　end

　　⑤语法 IsWindow（hWnd HWND） BOOL

　　单元 windows pas

　　作用判断一个窗口句柄是否有效

　　返回值有效返回TRUE 否则返回FALSE

　　示例

　　procedure TForm Button Click（Sender TObject）

　　begin

　　if （IsWindow（Button Handle）） then

　　Button Caption = TRUE

　　else

　　Button Caption = FALSE

　　end

　　怎么样还过瘾吧？今天是第一次就介绍些较容易接受的函数否则朋友们肯定会喊吃不消不知道朋友们对这样的编排形式能够接受吗？还有我会按照API函数的分类（控件与消息函数/硬件与系统函数/菜单函数/文本和字体函数/打印函数等等）分别介绍但我不会介绍全部的API函数否则大有骗稿费之嫌疑而且本人的水平也难做到每个语句都有示例只介绍平常用得上的本人经常使用的函数有时也会介绍一下比较隐秘但却非常有用的API函数

　　附tips（DELPHI技巧）一个

　　如果有这样一个目录

　　c windowsmediatempabcsoundchime wav

　　我希望它能缩短成

　　c windows……soundchime wav

　　如何写程序呢？

　　回答

　　用下面的过程试试

　　function shortenfilename（s string） string

　　var drive curdrive string［］

　　dir curdir string［］

　　name string［］ [Page]

　　ext string［］

　　i byte

　　begin

　　for i = to length（s） do s［i］ =upcase（s［i］）

　　s =fexpand（s）

　　fsplit（s dir name ext）

　　drive =copy（dir ）

　　dir =copy（dir length（dir）－）

　　getdir（ curdir）

　　curdrive =copy（curdir ）

　　curdir =copy（curdir length（curdir）－）＋

　　if drive=curdrive then begin

　　if copy（dir length（curdir））=curdir then begin

　　i =length（curdir）

　　if length（dir）<>i then dir =dir＋

　　shortenfilename =copy（dir i＋ length（dir）－i－）＋name＋ext

　　end else shortenfilename =copy（s length（s）－）

　　end else shortenfilename =s

　　end

cha138/Article/program/Delphi/201311/8422