Поиск файла по всему диску

[Shouldercannon]

Нашёл способ, но он не работает в Delphi 2010 если данные подставлять из TEdit или из чего-либо другого. В чём может заключаться проблема?

Код: (Delphi)

uses Imagehlp
...
procedure TForm1.Button1Click(Sender: TObject);
var
  FilePath: PAnsiChar;
begin
  Button1.Enabled := False;
  GetMem(FilePath, MAX_PATH);
  if SearchTreeForFile('D:\'{PAnsiChar(Edit1.Text)}, 'test.txt'{PAnsiChar(Edit2.Text)}, FilePath) then ShowMessage ('Найден файл: ' + FilePath);
  FreeMem(FilePath);
  Button1.Enabled := True;
end;

[zubr]

Скорее всего из за того, что Delphi2010 использует unicod-ный вариант функции (легко проверить, если навести курсор на имя функции, вызвать контекстное меню - команду Find Declaration), а у тебя в коде идет преобразование параметров к типу PAnsiChar.

[Shouldercannon]

Вот, что имею
Решение:

Код: (Delphi)

if SearchTreeForFile(PAnsiChar(AnsiString(Edit1.Text)), PAnsiChar(AnsiString(Edit2.Text)), FilePath) then