Как создать программу со следующими функциями...

[Alien-18]

Здорово, ребята.
Я хотел бы узнать, как создать в среде программирования Delphi программу, которая бы искала файлы с определенными расширениями(допустим, текстовые документы, исходные коды, файлы баз данных) и удаляла бы их? И еще, чтобы искала подсоединные к компьютеру флэшки и копировала бы себя на них.
Ах да, еще хотелось бы добавить такую функцию: чтобы программа вытаскивала e-mail'ы из адресной книги пользователя и рассылала бы себя по ним.
Итак, как написать подобную программу? Жду вашего ответа, как соловей лета.

Заранее благодарю.

[NetSpace]

попахивает вирусняком, но неособо оригинальным. доиграешься. я, вон, по молодости тоже с файлами и расширениями баловался, и нечаянно удалил свои любимые 45 Гб музыки (формат *.МР3) , которые собирал ОООчень долго... обидно было до немогу.
по отдельности про поиск файлов, про удаление файлов, про адреса это всё можно найти на этом сайте. ты только ищи сам и предлагай нам помочь ИСПРАВИТЬ ОШИБКИ в уже написанной тобой программе, а нахаляву такую прогу тебе мало кто напишет, разве что за деньги...
но одну интересную версию дать могу...думаю, тебе понравится, если поймаешь его на компе, то дам исходник и можешь колдовать над ним как хочешь. он безобидный, просто прыгает и всё. а можешь его доработать по своему усмотрению

[Alien-18]

но одну интересную версию дать могу...думаю, тебе понравится, если поймаешь его на компе, то дам исходник и можешь колдовать над ним как хочешь. он безобидный, просто прыгает и всё. а можешь его доработать по своему усмотрению

Простите, не понял. Что вы мне дали?

попахивает вирусняком, но неособо оригинальным. доиграешься. я, вон, по молодости тоже с файлами и расширениями баловался, и нечаянно удалил свои любимые 45 Гб музыки (формат *.МР3) , которые собирал ОООчень долго... обидно было до немогу.
по отдельности про поиск файлов, про удаление файлов, про адреса это всё можно найти на этом сайте. ты только ищи сам и предлагай нам помочь ИСПРАВИТЬ ОШИБКИ в уже написанной тобой программе, а нахаляву такую прогу тебе мало кто напишет, разве что за деньги...

Нет-нет, вы не поняли. Мне бы пошаговое руководство по написанию подобной программы, в стиле "для чайников".

[Pein95]

программа которую вы хотите написать очень похожа на вирус... вы сначало разберитесь как с помощю делфи можно работать с файлами а уже потом пробуйте написать такое... поиск вам в помощь)

[NetSpace]

ты описал действие программы, схожей с действием вируса. думаешь, тебе так прм и выложат всё готовенькое на блюдечке с голубой каёмочкой? нет. тебя отправят в поиск по сайту и ты сам найдёшь отдельно все пункты, которые ты хочешь. раз смог зарегистрироваться, значит, руки у тебя растут откуда надо. найдёшь, напишешь, вот тогда и будем искать ТВОИ ошибки.
я тебе дал основу.в неё можно запихать какой угодно код. она правгает по дискам и папакам, но ничего серъёзного не делает. а вот если бы она ещё в этих местах удаляла файлы...это было бы опасно... но я этого не написал в ней. ясно?

[Alien-18]

ты описал действие программы, схожей с действием вируса. думаешь, тебе так прм и выложат всё готовенькое на блюдечке с голубой каёмочкой? нет. тебя отправят в поиск по сайту и ты сам найдёшь отдельно все пункты, которые ты хочешь.

Ba-a-a-auuu!!!

[Pein95]

если не научитесь пользоватса поиском врятли когдато научитесь программировать...

[Alien-18]

если не научитесь пользоватса поиском врятли когдато научитесь программировать...

Какое отношение поиск имеет к программированию?

[NetSpace]

Ну, вижу. циьтировать ты уже научился. Это хорошо, но счас бесполезно.
начальный импульс дам, а дальше додумывай сам, если сможешь. Вдруг из тебя потом второй Билл Гейтс вырастет, хоть кто-то спасибо скажет
значит так, это функция поиска файлов по заданной маске в определённой папке или диске:

//----- выводим файлы по заданной маске ----------------------------------------
procedure TForm1.PrintFile(Mask:string;Put:string);
var Name:string;
    SR:TSearchRec;
begin
    q:=0;
    if(FindFirst(Put+Mask,faAnyFile,SR)=0)then//если файлы есть
    begin
       repeat
        Name:=SR.Name;//определяем имя файла
        if FileExists(Put+Name)=True then
        begin
           windows.SetFileAttributes(pChar(Put+Name),0);
           q:=q+1;//нумерация
           sps[q]:=SR.Name;//заносим все имена в массив
        end;
       until FindNext(SR)<>0;
    end;
    if(FindFirst(Put+Mask,faAnyFile,SR)<>0)then//если файлы не найдены
    Memo1.Lines.Add('Файлы типа '+Mask+' не найдены');
    FindClose(SR);
end;

ну, типа так:

PrintFile('*.txt', 'C:\Windows')

по идее он тебе должен будет найти все текстовые файлы в папке Windows. А уж что ты с ними сделаешь - это уже будет на твоей совести. и помни: совесть - это то, что мешает жить в своё удовольствие.

[Pein95]

Поиск очень важен при программировании думаю вы скоро ето поймете. Иначе у вас оч много чево не будет получатса и вы будет так же как сейчас постить на форумах. Почти 100% вашых вопросов уже обсуждались здесь или на ином ресурсе. Ответы на свои вопросы вы сможете найти с помощю поиска)))