Question

delphi中利用api函数

我想在delphi中调用一个简单的api函数，那位大侠能帮我举个例子！越简单越好，我的主要目的是想学会用api函数，希望您的一个例子能帮我掌握api函数的入门，非常感谢！

Answer 1

　　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.
　　Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。

Answer 2

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.

Answer 3

ShowWindow(Handle,SW_HIDE);
使当前窗体隐藏，相当于self.hide；
由于ShowWindow这个函数在window.pas中有，所以不需要特别添加单元，其它大部分不常用的api都在shellapi上。
总的说用api就像用普通的函数一样，只要你记住函数和参数的作用就可以了。