Поиск файла по всему диску
Добавлено: 01 сен 2012, 14:47
Нашёл способ, но он не работает в Delphi 2010 если данные подставлять из TEdit или из чего-либо другого. В чём может заключаться проблема?
Код: Выделить всё
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;