怎么得到当前路径？后菜的，先谢谢各位了!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
   PathBuffer: array[0..255] of char;
   FilePart: PChar;
begin
  Label1.Caption := ExtractFileName(FileListBox1.FileName);
  GetFullPathName(PChar(Label1.Caption), 255, PathBuffer, FilePart);
  Label2.Caption := string(PathBuffer);
end;

Answer 1

application.getnamepath（好象是这样写）就可以了！

Answer 2

千万不要用函数GETCURRENTDIR！！！！
为何？你在程序中放一个opendialog控件然后再试试，如果你选择过文件后，这个函数的结果
就会变成你选择的目录。
用Extractfilepath(paramstr(0))

Answer 3

//取得当前程序的工作路径function TMainForm.GetDir: string;
begin
  Result := ExtractFilePath(ParamStr(0));
  if Result[length(Result)] <> '\' then
    Result := Result + '\';
end;