вот есть код:
Цитата:
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);
|
Как сменить атрибут уже скопированного файла на "скрытый"
и если это произошло то перезагрузить компьютер?
