先来看看灰鸽子源码中对系统操作的代码是怎么写的，
{系统文件夹路径}
function Syspath :string;
var sysdir:array [0..255] of char; //定义sysdir为char型数组，长度为255字节
begin
GetSystemDirectory(sysdir,255); //调用api函数GetSystemDirectory并将结果存放在sysdir中
Result :=sysdir;
if copy(Result,length(Result),1)<>'\' then //复制结果直到遇到\结束，
Result:=Result+'\'; //得到系统文件夹路径
end;
{安装目录路径}
function Windowspath :string;
var sysdir:array [0..255] of char; //同上
begin
GetWindowsDirectory(sysdir,255);//调用GetWindowsDirectory函数获得安装目录
Result :=sysdir;
if copy(Result,length(Result),1)<>'\' then
Result:=Result+'\'; //同上
end;
{临时文件夹路径}
function Temppath :string;
var tmpdir:array [0..255] of char;
begin
GetTempPath(255,@tmpdir);
Result :=StrPas(Tmpdir);
if copy(Result,length(Result),1)<>'\' then
Result:=Result+'\';
end;
从以上代码可以看出，不管是Delphi还是vb，系统编程都离不开api函数，也就是离不开windows操作系统，以及后面的系统用户名，计算机名称，物理内存啊，操作系统版本啊等等，都离不开api函数，GetVersionEx，GlobalMemoryStatus，GetComputerName等，所以，学好api是学好编程的必要条件。
