Как определить, соответствует ли файл определенной маске?
uses
..., Masks;
procedure TForm1.Button1Click(Sender: TObject);
begin
if MatchesMask( 'c:\boot.ini', '*t.?ni' ) then
ShowMessage( 'Файл соответствует маске' )
else
ShowMessage( 'Файл не соответствует маске' );
end; |
