Delphi設置文件安全權限代碼 另加50分

S:='echo y|cacls h: /t /c /g everyone:F';

AssignFile(F, 'c:\FolderRight.cmd');

rewrite(f);

Append(F); // 以追加的方式打開文件

Writeln(F, S); // 將S變量中的內容追加到文本尾後。

CloseFile(F); // 關閉文件

ShellExecute(handle,'open','c:\FolderRight.cmd','','',SW_ShowNormal);