Ребята помогите решить одну проблемму! А все началось с того что мой лучший друг купил в нете одну класную программу єто так по его словам она класная!Когда я его пропросил что-бі он дал её мне я услышал то что совсем не ожидал от лучшего друга!Он сказал что не даст и причем даже когда я предложил заплатить ему деньги он тоже скзал что не даст! И это меня так разозлило что у меня появилшась идея написать прогу которая бы вытащила эту программу с его компа и еще один файл который автор программы выслал ему для того что-бы программа стала не трииальной нназвание программы я у него думаю вычислю а там дело в шляпе. Нужно сделать по моему следующее нужно найти программу. Файл который зарегестрировал программу и отправить это все на мыло. Но как это сделать я не знаю я нашел функцию которая ищет фалы но как ей пользоваться я не знаю

Код

FirstFind(cost Path: String; Attr: Integer; F: TsearchRec): Integer;

подскажите как ей пользоваться и как потом если будет найден определенный файл отправить его на мыло! Заранее благодарен! С ув. Александр!

Это сообщение отредактировал(а) Alex - 12.8.2005, 08:22

Наоборот FindFirst

Код

Var      F:TSearcRec; Begin      FindFirst('c:\*.*',faAnyFile,F);      Repeat           if f.filename='MyFile.exe' then showmessasge('ok');      Until FindNext(F)<>0;      FindClose(F); End;

Что-то в этом роде написал без дельфи прям здесь так что не эталон, а вообще эта тема недавно точно обсуждалась прямо с готовым рекурсивным кодом. поищи хорошо.

Цитата(Alex103 @ 12.8.2005, 07:26)

Ребята помогите решить одну проблемму! А все началось с того что мой лучший друг купил в нете одну класную программу єто так по его словам она класная!Когда я его пропросил что-бі он дал её мне я услышал то что совсем не ожидал от лучшего друга!Он сказал что не даст и причем даже когда я предложил заплатить ему деньги он тоже скзал что не даст!

детский сад

ну купи себе такой же диск.

Что по сабжу:

Код

function FileSearch(const Name, DirList: string): string;

а про отправку по электронной почте поищи в теме Delphi и сети. Там вчера видел примеры для "тихой" отправки e-mail