Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск и копирование файла с удаленного компа

Автор: Alex103 12.8.2005, 06:26

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

Код


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

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

Автор: Bes 12.8.2005, 07:21

Наоборот 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;

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

Автор: Song 12.8.2005, 07:26

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

детский сад smile

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

Что по сабжу:

Код


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

Автор: Akella 12.8.2005, 08:53

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