怎样用相对路径打开文件？

Question

assignfile(file,ExtractFilePath(Application.FileName) + 'filename')

Answer 1

getwindowsdirectory(lpbuffer:pchar;usize:uint):uint;
第一个参数返回windows目录；
getsystemdirectory(lpbuffer:pchar;usize:uint):uint;
第一个参数返回system目录；
gettemppath(usize:uint;lpbuffer:pchar):uint;
第二个参数返回临时目录；
getcurrentdirectory(usize:uint;lpbuffer:pchar):uint;
返回当前目录；
如：
  a:array[0..max_path] of char;
  getcurrentdirectory(sizeof(a),a);
  showmessage(strpas(a)):

Answer 2

ExtractFilePath(application.ExeName);
返回当前运行程序目录

Answer 3

assignfile(file,ExtractFilePath(Application.FileName) + 'filename')