FileSearch的问题

Question

在使用FileSearch对某特定路径下的某文件进行查找时，该怎么动态的获取正确的路径呢？谢谢

Answer 1

不太清楚你的所指的正确路径指的是谁的路径，请参考这个
procedure TForm1.Button1Click(Sender: TObject);var
  buffer: array [0..255] of char;
  FileToFind: string;
begin
  GetWindowsDirectory(buffer, SizeOf(buffer));//获取路径
//常用的获得特定路径的函数
//GetWindowsDir,GetWindowsSysDir,GetCurrentDirectory......
  FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);
  if FileToFind = '' then
    ShowMessage('Couldn''t find ' + Edit1.Text + '.')
  else
    ShowMessage('Found ' + FileToFind + '.');end;