Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
procedure CreateLink(const FileName, LinkSelfFileName: pchar);
var IObject: IUnknown;
begin
Coinitialize(nil);
if CoCreateInstance(CLSID_ShellLink, nil, 1 or 4,
IUnknown, IObject) <> 0 then
begin CoUninitialize;exit;end;
(IObject as IShellLink).SetPath(FileName);
(IObject as IPersistFile).Save(
PWChar(WideString(LinkSelfFileName)), FALSE);
CoUninitialize;
end;
if(strpos($content,'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'))
{
echo "Seems like \"Virus.Win32.AdWare\"";
}
* This source code was highlighted with Source Code Highlighter.
Программист и антивирус II — окончание истории