怎样新建一个文件夹。并将其设为隐藏？

Question

怎样新建一个文件夹。并将其设为隐藏？

Answer 1

uses Dialogs;
begin  {$I-}
  { Get directory name from TEdit control }
  MkDir(Edit1.Text);
  if IOResult <> 0 then
    MessageDlg('Cannot create directory', mtWarning, [mbOk], 0, mbOk)
  else
    MessageDlg('New directory created', mtInformation, [mbOk], 0, mbOk);
end;

Answer 2

SetFileAttributes(pchar('c:\dd'),FILE_ATTRIBUTE_HIDDEN );

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
    CreateDirectory('C:\testDir', nil);
    SetFileAttributes('C:\testDir', GetFileAttributes('C:\testDir')  or FILE_ATTRIBUTE_HIDDEN);
end;