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;
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;