请问在DELPHI中怎么样才能获取系统的目录如(windows目录啊winnt啊)

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..256]of Char;
begin
  GetSystemDirectory(vBuffer, 256);
  ShowMessage(vBuffer);
  GetWindowsDirectory(vBuffer, 256);
  ShowMessage(vBuffer);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..256]of Char;
begin
  GetSystemDirectory(vBuffer, 256);
  ShowMessage(vBuffer);
  GetWindowsDirectory(vBuffer, 256);
  ShowMessage(vBuffer);
end;

Answer 2

使用GetWindowsDirectory（）就行。具体如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  cDir:array[0..Max_Path] of char;
begin
  GetWindowsDirectory(cDir,Max_Path);
  label1.caption:=cDir;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..256]of Char;
begin
  GetSystemDirectory(vBuffer, 256);
  Edit1.text:=vBuffer;
  GetWindowsDirectory(vBuffer, 256);
  edit2.text:=vBuffer;
end;

Answer 4

GetSystemDirectory(Vbuf:array[0..255] of char;255);
GetWindowsDirectory(Vbuf:array[0..255] of char;255);
其中Vbuf就是得到的路径。