如何调用windows标准的API函数？

[zhangteng]

如题

[hjd_cw]

1. use windows,.....

2. 按定义调用

[dreamfan]

多数都可以直接调用

[CeleronII]

直接调用就可以了

[yangguo_god]

直接调用

[l_xiaofeng]

关注一下吧,能否有人说的详细点.(不要说直接调用)

[chll]

use API所在单元
然后直接调用

[liuren2001]

举个例子啊

[爱编程的老五]

你在帮助体系中,可以看到windows sdk条目吧,那是windows标准API函数的使用帮助;此外windows单元封装了大多数的API函数,你只要USES windows单元然后在需要调用的地方像使用你自己定义的函数或过程一样使用即可.如果windows单元没有此函数,你就查一下是在delphi的什么单元文件里,然后在uses中加入即可.

[ollea]

FindFirstFile

VB声明
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据文件名查找文件
返回值
Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄
参数表
参数 类型及说明
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索
注解
由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件


FindNextFile

VB声明
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
说明
根据调用FindFirstFile函数时指定的一个文件名查找下一个文件
返回值
Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES
参数表
参数 类型及说明
hFindFile Long，由FindFirstFile函数返回的搜索句柄
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息
private
{ Private declarations }
procedure scan_tree (root: string);
public
{ Public declarations }
names_count:integer;
names:tstrings;
dnames:tstrings;
end;

var
Form3: TForm3;
stop_requested: boolean;
scanning: boolean;
inifile:tinifile;

implementation

{$R *.dfm}


///////////////////////搜索硬盘/////////////////////////
const

normal_names: array [1..2] of string =
('*.swf',
'*.exe');
procedure TForm3.scan_tree (root: string);
var
test_name: string;
full_name: string;
s: TSearchRec;
wanted: integer;
begin
if stop_requested then Exit;
root := LowerCase (root);
if root [Length (root)] <> '\' then
root := root + '\';
for wanted := 0 to names_count-1 do begin
Application.ProcessMessages;
test_name := root + names[wanted];
if FindFirst (test_name, faAnyFile, s) = 0 then
repeat
if stop_requested then Exit;
with s do begin
Name := LowerCase (Name);
if (Attr <> faDirectory) then begin
full_name := root + Name;
listbox1.Items.Add(full_name);

end;
end;
until FindNext (s) <> 0;
FindClose (s);
end;
test_name := root + '*.*';
if FindFirst (test_name, faAnyFile, s) = 0 then
repeat
with s do
if ((Attr and faDirectory) <> 0) and ((Name <> '.') and (Name <> '..'))
then scan_tree (root + Name);
until FindNext (s) <> 0;
FindClose (s);
end;
////////////////////////////////////////////////////////////
procedure TForm3.FormCreate(Sender: TObject);
var
p:pchar;i:integer;filename:string;
begin
////////////////////搜索硬盘的准备工作//////////////////////////////
names:=tstringlist.Create;
dnames:=tstringlist.Create;
getmem(p,255);
getwindowsdirectory(p,255);
filename:=p+'\scanswf.ini';
freemem(p);
scanning := False;
stop_requested := False;
for i:=1 to 2 do
dnames.Append(normal_names[i]);
if fileexists(filename) then
names.LoadFromFile(filename)
else begin
names:=dnames;
names.SaveToFile(filename);
end;
names_count:=names.Count;
//////////////////////////////////////////////////
end;

procedure TForm3.N2Click(Sender: TObject);
var i:char;drive:string;
begin
//搜索全部的硬盘
if scanning then begin
stop_requested := True;
end
else begin
listbox1.Items.Clear;
scanning := True;
stop_requested := False;
try
for i:='a' to 'z' do begin
drive:=i+':\';
if getdrivetype(pchar(drive))=DRIVE_FIXED then
scan_tree (drive);
end;
finally
end;
scanning := False;
end;
end;