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

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

[mak-karpov]

Ой сдается мне, что ты затеваешь что-то недоброе. Копирование себя, сокрытие файла, ребут.... Что-то мне это напоминает....

[PhoeniX]

SetFileAttributes
ShellExecute, WinExec или CreateProcess по вкусу.
И shutdown.exe в комплекте любой винды.

[true]

SetFileAttributes - это не пойдет т.к файл будет занят другим процессом, просто программу хочу засунуть в автозагрузку, а перезагрузка нужна для сохранения параметро и очищения мусора

[Konrad]

Очередной вирус...


Ты что-то полезное хоть пытался написать?

[true]

Если так то я не понимаю зачем этот раздел все с чегото начинали.

[PhoeniX]

Konrad, да забей, всё равно вирусы этих начинающих кулхацкеров не могут никуда пролезть, и отлично палятся эвристикой большинства антивирусов
true, попробуй FileSetAttr

[BoRoV]

Сообщение от true

Если так то я не понимаю зачем этот раздел все с чегото начинали.

Ога. Ещё когда учился в универе писали на паскале в эмуляторе под линухом. И вот очередная лаба, нужно было написать программу которая бы передвигала круг с одного угла экрана в другой. Ну вот, я тогда не особо блескал знаниями, да и программирование не особо интересовало. И вот я такой горепрограмер написал, на глаз всё верно написано, запускаю... и вылетает эмулятор к чертям, ещё раз захожу и запускаю... тоже. Думаю, что за дела. Прихожу к другу на винду, говорю запусти у себя, он запускает... результат ещё круче чем в эмуляторе монитор нахрен вырубает полностью, никак его не запустить, кроме перезагрузки. Моя первая такая вредоносно/шутливая программа Вот с тех пор я и увлекся программирование. Пытался написать что-то вредоносное, но мне сказали, что на паскале ничего толкового не напишешь, нужно учить асм. Я что-то попыжился, так ничего и не вышло, и завязал с этими детским наивными идея про вирусню.

[Bargest]

у меня было что-то подобное. Экспериментировал в паскале со встроенной асмой, поставил 9й режим экрана. На всех компах просто вылетает, а на моем моник отрубается нафиг.
Еще как-то на пасе+асм написал программу, которая случайно убила NTVDM, да так, что пришлось винду переставлять - не работало ничего, что связано с досом.

На самом деле в этой вирусне смысла нет никакого. Просто хочется людям написать что-нить, и первое что идет в голову - вирус. "Ну как же, если я терь программер, значит как и кулхацкеры должен писать вирус!"
Просто на побаловаться - не страшно. Думаю после одного-двух таких прог надоест.