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

[Shouldercannon]

Нашёл в сети способ, но не могу в выделенную строку подставлять данные из TEdit

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

if SearchTreeForFile(PAnsiChar(Edit1.Text), PAnsiChar(Edit2.Text), FilePath) then ShowMessage ('Найден файл: ' + FilePath);

Ноль реакции

[Аватар]

Возможно в эдитах пробелы слева-справа, поэтому и не находит. А вообще при первом обращении к диску с большим к-вом папок и файлов серьезно парится

[Yurk@]

с твоим кодом нормально находит

[Stilet]

Ну а какова спецификация функции?
И что в Эдитах содержится?
И как функция работает?

[Shouldercannon]

Сообщение от Yurk@

с твоим кодом нормально находит

Пробелов в TEdit's нет. Очередная заморочка Delphi 2010. В Delphi 7 через PChar и PAnsiChar работает нормально, а в Delphi 2010 только PAnsiChar и то не работает.
Даже такой изврат не прокатывает

procedure TForm1.Button1Click(Sender: TObject);
var
  Path, sFile, FilePath: PAnsiChar;
begin
  Button1.Enabled := False;

  Path := PAnsiChar(Edit1.Text);
  sFile := PAnsiChar(Edit2.Text);

  GetMem(FilePath, MAX_PATH);
  if SearchTreeForFile(Path, sFile, FilePath) then ShowMessage ('Найден файл: ' + FilePath);
  FreeMem(FilePath);

  Button1.Enabled := True;
end;

Как теперь решить эту проблему?

Сообщение от Stilet

Ну а какова спецификация функции?
И что в Эдитах содержится?
И как функция работает?

# http://winapi.freetechsecrets.com/wi...reeForFile.htm
# В первом Edit путь, во втором имя файла
# http://winapi.freetechsecrets.com/wi...reeForFile.htm

[Shouldercannon]

Решение проблемы

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