关于当前路径以及书的问题。

Question

我是一个Delphi初学者。最近看到求windows以及system目录路径ＡＰＩ函数的调用。但书中并没有继续介绍求当前文件目录路径的函数或者方法。请老师教给一二。另外我买的书实在太差。内容多但每项都只点粗面，没有更加细致的。想继续了解下去也不行。就向上述问题一样。对我初学者感觉问题太多了。谢谢老师指教。

Answer 1

http://expert.csdn.net/Expert/topic/1392/1392137.xml?temp=.7339441

Answer 2

GetWindowsDirectory 可以得到系统路径

Answer 3

GetCurrentDirectory可以取得程序当前的路径（不是程序所在路径）
想取得程序所在路径可以这样：
（抱歉我不太懂delphi只能用C方法写给你看）
module = GetModuleHandle(0);
GetModuleFileName(module,buffer,SizeOfBuffer);
这样就取得了当前程序包括路径的文件名，然后....自己看着办吧:)

Answer 4

你要的两个目录用以下两个函数搞定:
GetWindowsDirectory;
GetSystemDirectory;
给你写:
var
  WinDir,SysDir:String;
begin;
  GetWindowsDirectory(PChar(WinDir),256); 
  SetLength(S,StrLen(PChar(WinDir)));  // 将变量WinDir还原至未转换类型时的大小;
  GetSystemDirectory(PChar(SysDir),256); 
  SetLength(S,StrLen(PChar(SysDir)));  // 将变量SysDir还原至未转换类型时的大小;
end;
之后变量WinDir和变量SysDir就分别包含了Windows与System目录所在的路径。