hide the files

procedure TForm3.Button3Click(Sender: TObject);
var
   attr:integer;
begin
   attr := fileGetAttr(ExtractFilePath(Application.ExeName)+'sb.tbr');
   if not ((attr and faHidden) = faHidden )then
   begin
   fileSetAttr(ExtractFilePath(Application.ExeName)+'sb.tbr',attr or faHidden);
   MessageBox(0,'  完成','提示',MB_OK);
   end;
end;