VPF::Ругаеться антивирус(( - Форум программистов

Volkogriz

Дата 27.1.2010, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Доброе время суток!
Помагите изменить подсказать альтернативу !
Ниже представленный код заставляет ругаться антивирус.
Но обязательно нужно как вы дагадались, найт папку виндовс активной системы!
Антивирус, Доктор веб!
мне кажется что он реагирует именно на этот код:

Код


var

text,Copiy:TStrings;
Windir: string;
WindirP: PChar;
Res: Cardinal;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then
WinDir := StrPas(WinDirP);
begin

Вот полный код программы:

Код


program CopiyaFiles;

{$I-}
{$D-}


uses
  sysutils,
  windows,
  classes;






var
c,i:integer;
//Path : string;
text,Copiy:TStrings;
Windir: string;
WindirP: PChar;
Res: Cardinal;
begin
text:=TStringList.Create;
text.LoadFromFile('NemFiles.txt');
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then
WinDir := StrPas(WinDirP);
begin
Copiy:= TStringList.Create;
Copiy.LoadFromFile('CopiyaFiles.txt');
begin
for c:=0 to text.count-1 do
for i:=0 to Copiy.count-1 do
CopyFile(PChar(Copiy.Strings[i]), PChar(PChar(text.Strings[c]) + Copiy.Strings[i]), false);

Exit;
end;
end;
end;
//Windir + '\system32\'
begin
end;



end.

Зарание блогодарен!
С уважением,
Volkogriz!

Это сообщение отредактировал(а) Volkogriz - 27.1.2010, 23:05

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Данкинг

Дата 27.1.2010, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Ну, у меня "Аваст" тоже иногда ругается на программу, в которой кроме Memo на форме ничего нет (я даже тему создавал по этому поводу). Глюки антивирей, видимо.

--------------------

There's nothing left but silent epitaphs.

Volkogriz

Дата 27.1.2010, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Нет Это другой случай!
У вас магёт быть эаражена делфя:
Внимание всем, использующим Delphi c 4 по 7 !
Специфичный Delphi-вирус
В интернете появился специфичный для Delphi вирус. Суть его в том, что заражённая программа ищет на диске установленные версии Delphi и, если находит, изменяет файл SysConst.dcu (старая версия сохраняется под именем SysConst.bak), и после этого все программы на Delphi, скомпилированные на этом компьютере, начинают точно так же заражать Delphi на тех компьютерах, где они запускаются. Распространению вируса способствовало то, что некторые версии популярного мессенджера QIP оказались заражены им (команда разработчиков QIP приносит за это свои извинения). Пока единственный обнаруженный вредный эффект от вируса — это то, что из-за ошибки в его коде при запуске заражённой программы возникает Runtime error 3, если ключ реестра HKEY_LOCAL_MACHINE\SOFTWARE\Borland \Delphi\x.0 (x — от 4 до 7) содержит неправильное значение параметра RootDir (для правильного значение ошибки не происходит). Видимо, просто обкатывалась технология распространения вируса.

Проверьте свои версии Delphi и, если найдёте у себя SysConst.bak, выполните следующие действия:
1. Удалите SysConst.dcu
2. Скопируйте SysConst.bak в SysConst.dcu. Важно именно скопировать, а не переименовать, чтобы SysConst.bak тоже остался на диске — это убережёт систему от повторного заражения.

подробности здесь:

http://gunsmoker.blogspot.com/2009/08/delphi-delphi.html

Это сообщение отредактировал(а) Volkogriz - 27.1.2010, 23:30

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Данкинг

Дата 27.1.2010, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(Volkogriz @ 27.1.2010, 23:26

)

У вас магёт быть эаражена делфя:

Да не думаю, я искал эти .bak'и, но ничего такого вроде не было.

--------------------

There's nothing left but silent epitaphs.

Volkogriz

Дата 28.1.2010, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Я нашол но после переустановке делфика тьфу,тьфу всё нормально!
Но мне нужжен прсто альтернативный код для поиска папки системы очень!!!
Помогите плиз!!!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

kami

Дата 28.1.2010, 00:20 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(Volkogriz @ 27.1.2010, 22:52

)

подсказать альтернативу !

SHGetFolderPath с флагом CSIDL_WINDOWS

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »