[true]

вот есть код:

procedure TForm1.Button1Click(Sender: TObject);
var
folder: pchar;
list: pitemidlist;
begin

shgetspecialfolderlocation(0,csidl_startup,list);
new(folder);
shgetpathfromidlist(list,folder);

chdir(folder);

copyfile(pchar(extractfilepath(paramstr(0)) + 'Project1.exe'), 'Project1.exe', true);

Как сменить атрибут уже скопированного файла на "скрытый"
и если это произошло то перезагрузить компьютер?